Program Nama Bulan (Pascal)

    Berikut ini adalah contoh Program nama_bulan menggunakan perintah case .... of (fungsi Pemilihan)

program NAMA_bulan;
uses crt;

var angka :integer;
    bulan :integer;

begin
clrscr;
write('masukan angka: ');
readln(angka);
{MASUKAN ANGKA}
case angka of
 1 : write('Januari');
 2 : write('Pebruari');
 3 : write('Maret');
 4 : write('April');
 5 : write('Mei');
 6 : write('Juni');
 7 : write('Juli');
 8 : write('Agustus');
 9 : write('September');
 10: write('Oktober');
 11: write('November');
 12: write('Desember');
else write('Bukan Nama Bulan ULANGI!!!');

End;
readkey;
end.

penjelasan :

   ini adalah program pemilihan dengan subjek adalah nama bulan, dengan perintah pemilihan (pengandaian) manggunakan variabel yang telah kita beri nilai.

Example :

 1 : januari.

Dst,,
sampai  else ('  ');
 

  Diluar dari nilai karakter yang telah kita berikan maka program akan menyatakan error (salah) karena menggunakan fungsi else.

Sekian, semoga bermanfaat..