Program Pascal Pilihan Jamak

Hai Sahabat Blogger... Bagi yang kuliah Jurusan Sistem Informasi/Manajemen Informasi/Teknik Informatika, pasti tidak asing lagi dengan yang namanya pascal kan ???

Disini saya ingin berbagi contoh-contoh Program Pascal, silahkan bagi yang perlu bisa langsung dicopast script nya :)

• Program Pilihan Jamak

Tuliskan Skrip berikut pada layar kerja Turbo Pascal

program pilihan_jamak;
uses wincrt;
var
   nilai  : integer;
   grade  : char;
   nama   : string[20];
   nim    : string[12];

begin
     writeln;
     writeln;
     writeln;
     writeln('               *****************************************');
     writeln('               -------------------------------------------------------');
     writeln;                                   
       write('               1.  NIM        : '); readln (nim);
       write('               2.  Nama       : '); readln (nama);
       write('               3.  Nilai      : '); readln(nilai);
       If nilai>= 85 then
          grade:= 'A'
       else
           if nilai>= 75 then
              grade:='B'
           else
               If nilai>=60 then
                  grade:='C'
               else
                   if nilai>=45 then
                      grade:='D'
                   else
                       grade:='E';
     writeln('               4.  Grade      :',grade);
     writeln('               _________________________________________');
     writeln('               *****************************************');

     end.

Setelah Anda ketikkan pada layar kerja Pascal, coba anda Compile terlebih dahulu (tekan tombol F9), apakah sudah tidak ada kesalahan, jika sudah benar, maka anda jalankan programnya dengan menekan tombol ctrl+F9. Maka akan tampil seperti berikut ini !

Berhasil tidak ?? Jika belum berhasil, atau ada yang Error.. silahkan koment saja :)

Terimakasih telah berkunjung ke Blog Saya....