Program menentukan grade menggunakan nilai

Berikut merupakan program untuk menentukan grade menggunakan nilai menggunakan bahasa Pascal, dengan menggunakan statement CASE OF.

• SOURCE CODE

Program menentukan_grade_menggunakan_nilai;
uses crt;
var
   nilai : integer;
begin
clrscr;
     write('masukkan nilai : ');
     readln(nilai);
       case nilai of
           85..100:writeln('Grade A');
           79..84:writeln('Grade B');
           60..78:writeln('Grade C');
           0..59 :writeln('Grade D');
       end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program menentukan_grade_menggunakan_nilai;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   nilai : integer;     {Inisiasi variabel}
begin     {Awal insruksi program}
clrscr;     {Membersihkan layar}
     write('masukkan nilai : ');     {Cetak masukkan nilai :}
     readln(nilai);     {Baca variabel nilai}
        case nilai of     {Jika kasus input ? = nilai maka akan}
            85..100:writeln('Grade A');     {nilai = 85..100 Cetak Grade A}
            79..84:writeln('Grade B');      {nilai = 79..84 Cetak Grade B}
            60..78:writeln('Grade C');     {nilai = 60..78 Cetak Grade C}
            0..59:writeln('Grade D');     {nilai = 0..59 Cetak Grade D}
        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 dowload di bawah ini.

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

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