Program menentukan grade berdasarkan nilai ujian

PROGRAM MENENTUKAN 

GRADE BERDASARKAN NILAI UJIAN


  • SOURCE CODE
Program menentukan_grade_berdasarkan_nilai_ujian;
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
Program menentukan_grade_berdasarkan_nilai_ujian;  {Judul Program}
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




Newest
Oldest