Admin
Admin
Posts : 47
Join date : 08.04.14
Age : 35
 | | Subyek: Pemograman Bahasa Pascal dengan If Then Sat Apr 12, 2014 9:57 pm | |
| Di sini saya dapat tugas dari dosen untuk membuat program data,nilai mahasiswa dan membuat program bisokop dengan mengunakan bahasa pascal. Dengan mengunakan If Then. 1. Buat program untuk input nama dan nilai mahasiswa dengan ketentuan: - Code:
-
Nilai > = 85 nilai huruf A
Nilai > = 75 nilai huruf B
Nilai > = 60 nilai huruf C
Nilai > = 50 nilai huruf D
Output/Tampilan
Nama :
Nilai :
Nilai Huruf :
1. 2. Buat program Bioskop dan input no_studio dengan ketentuan:
No studio = 1 judul film = ayat-ayat cinta
No studio = 2 judul film = jumpe
No studio = 3 judul film = CJ7
No studio = 4 judul film = DO
No studio = 5 udul film = In the name of time
Output/Tampilan
No Studio :
Judul Film :
berikut sourcecode programnya.
Program1
program nama_nilai_mahasiswa;
uses wincrt;
var
nama:string;
nilai:integer;
begin
clrscr;
writeln(’Nama dan Nilai Mahasiswa’);
writeln(’————————-’);
write(’Nama = ‘);
readln(nama);
write(’Nilai = ‘);
readln(nilai);
if (nilai >=85) then begin
writeln(’Nilai Huruf = A’);
end else if (nilai >=75) then begin
writeln(’Nilai Huruf = B’);
end else if (nilai >=60) then begin
writeln(’Nilai Huruf = C’);
end else if (nilai >=50) then begin
writeln(’Nilai Huruf = D’);
end else if (nilai <50) then begin
writeln(’Nilai Huruf = E’);
end;
readln;
end.
program2
program bioskop;
uses wincrt;
var
no_studio:integer;
begin
clrscr;
writeln(’Bioskop 2in1′);
writeln(’————’);
write(’No Studio =’);
readln(no_studio);
if (no_studio =1) then begin
writeln(’Judul Film = Ayat-Ayat Cinta’);
end else if (no_studio =2) then begin
writeln(’Judul Film = Jumper’);
end else if (no_studio =3) then begin
writeln(’Judul Film = CJ7′);
end else if (no_studio =4) then begin
writeln(’Judul Film = DO’);
end else if (no_studio =5) then begin
writeln(’Judul Film = In the name of love’);
end;
readln;
end. | |
|
