Program menentukan keterangan dari grade

Berikut merupakan Program untuk menentukan keterangan dari grade menggunakan bahasa Pascal dengan menggunakan statement CASE OF.

• SOURCE CODE

Program menentukan_keterangan_dari_grade;
uses crt;
var
   huruf : char;
begin
clrscr;
   huruf:='C';
   case (huruf) of
         'A':writeln('Sangan memuaskan');
         'B':writeln('Memuaskan');
         'C':writeln('Cukup');
         'D':writeln('Kurang');
         'E':writeln('Gagal');
   end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program menentukan_keterangan_dari_grade;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   huruf : char;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
   huruf:='C';     {huruf = C}
   case (huruf) of     {Jika kasus input ? = huruf maka akan}
         'A':writeln('Sangat memuaskan');     {huruf = A Cetak Sangat memuaskan}
         'B':writeln('Memuaskan');     {huruf = B Cetak Memuaskan}
         'C':writeln('Cukup');     {huruf = C Cetak Cukup}
         'D':writeln('Kurang');     {huruf = D Cetak Kurang}
         'E':writeln('Gagal');     {huruf = E Cetak Gagal}
   end;     {Akhir instruksi kondisi}
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 keterangan dari grade
• Source Code .pdf    : .:_Download_:.
• Flowchart .png       : .:_Download_:.
• Program .pas          : .:_Download_:.
• Password                : kamuspascal.blogspot.com

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