Program menentukan grade berdasarkan nilai ujian

PROGRAM MENENTUKAN 

GRADE BERDASARKAN NILAI UJIAN

Berikut merupakan Program untuk Menentukan Grade berdasarkan nilai Ujian  menggunakan bahasa Pascal dengan menggunakan statement IF.

• 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

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa pascal, admin telah menyediakan file Source code, Penjelasan source code, Output Program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program       : Menentukan grade berdasarkan nilai ujian
• Source Code .pdf  : .:_Download_:.
• Flowchart .png     : .:_Download_:.
• Program .pas        : .:_Download_:.
• Password              : kamuspascal.blogspot.com
  

Jika anda tidak tahu bagaimana cara mendownload file-file diatas klik Disini, untuk mempelajarinya.