Case Of

kali ini saya akan berbagi tentang tutorial bahasa pascal menggunakan delphi7.
jika sebelumnya saya membuwat tutorial sederhana menggunakan bahasa pemoragaman pascal menggunakan rumus if, sekarang saya akan menggunakan case of . 

sebagai programer, sebelum membuwat sebuah program alangkah baiknya jika kita membuwat Flow Chart nya terlebih dahulu.... karena Flow Chart adalah sebuah rancangan alur program yang akan kita buwat... 

ok, langsumg saja. saya akan membuwat sebuah program sederhana tentang penilaian nilai...

  -         -  Yang pertama desain Flow Chart nya... seperti di bawah ini...

-          -  Buka dulu program delphinya, Kemudian buat document baru dengan memilih 

          ( file – new – other  -  Console Application )

-          -  Kemudian copas scrip berikut :

       ------------------------------------------------------------------------------------------------

program tugas2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  n : integer;

  grade,ket : string;

begin

  write('Masukkan Nilai Anda = '); readln(n);

  case n of

  0..25 :

  begin

  grade :='E';

  ket :='Gagal';

  end;

  26..55 :

  begin

  grade :='D';

  ket :='Kurang';

  end;

  56..70 :

  begin

  grade :='C';

  ket :='Cukup';

  end;

  71..85 :

  begin

  grade :='B';

  ket :='Baik';

  end;

  else

  grade :='A';

  ket :='Sangat Baik';

  end;

writeln('Grade                    = ',grade);

writeln('Keterangan             = ',ket);

  readln

end.

----------------------------------------------------------------------------------------------

   - Maka jika di running dengan menekan (F9) maka akan muncul seperti dibawah ini...

   - Jika kita masukkan nilai misalnya 12 maka akan muncul seperti ini :

 Ok, sekian dulu tutorial kali ini... semoga Bermanfaat....