Pemograman Bahasa Pascal dengan If Then

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:

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.