PROGRAM MENENTUKAN
GRADE BERDASARKAN NILAI UJIAN
- SOURCE CODE
uses crt;
var
n : integer;
begin
clrscr;
write('Masukkan nilai uas :');readln(n);
writeln;
if n >= 8 then
writeln('Grade A')
else
if (n >= 7) and (n < 8) then
writeln('Grade B')
else
writeln('Grade C');
readkey;
end.
- PENJELASAN SOURCE CODE
uses crt; {Deklarasi unit CRT}
var {Variabel}
n : integer; {Inisiasi Variabel}
begin {Awal instruksi program}
clrscr; {Membersihkan layar}
write('Masukkan nilai uas :'); {Cetak Masukkan nilai uas :}
readln(n); {Baca variabel n}
writeln; {Menyisipkan baris}
if n >= 8 then {Jika n >= 8 kemudian}
writeln('Grade A') {Cetak Grade A}
else {Kalau tidak}
if (n >= 7) and (n < 8) then {Jika n >= 7 dan n < 8 kemudian}
writeln('Grade B') {Cetak Grade B}
else {Kalau tidak}
writeln('Grade C'); {Cetak Grade C}
readkey; {Instruksi untuk menunggu}
end. {Akhir instruksi program}
- PRINT SCREEN OUTPUT

ConversionConversion EmoticonEmoticon