Contoh Program Pascal II

Sekarang Saya akan membahas tentang " IF THEN ELSE AND".
mungkin ini sedikit asing karena dimana-mana cuma " IF THEN ELSE"..
Itulah saya belajar kreatif dan efisien..hehehe,,
Oke gak pake panjang lebar kita menuju TKP.!!

Contoh ketiga :

1:  Program contoh_3;

2:  uses wincrt;   
   
4:   var bil: longint;

5:          begin

6:          writeln(‘MENENTUKAN JENIS BILANGAN’);

7:          writeln(‘-------------------------’);

8:          write(‘Masukkan angka: ‘);
  
9:          readln(bil);

10:              if ((bil=2) or (bil=3) or (bil=5) or (bil=7)) then

11:               write(‘bilangan prima’)

12:               else if ((bil mod 2 <> 0) and (bil mod 3 <> 0)and

                 (bil mod 5 <> 0) and (bil mod 7 <> 0)) then

13:               write(‘bilangan prima’)

14:                     else
                        write(‘bukan bilangan prima’);

15:                         if bil mod 2 = 0 then

16:                         writeln(‘ dan genap’)

17:                            else

18:                            writeln(‘ dan ganjil’);

19: readln;

20: end.




Penjelasan untuk no.1 s/d no.9 mungkin sudah pernah kita bahas di pembahasan sebelumnya.
Sedangkan no.10 terdapat ststement IF. Fungsinya adalah untuk melakukan suatu perintah tertentu bila telah terpenuhinya suatu syarat.
Lalu apa fungsi "or" dan "and" pada IF yang terdapat pada no.10 dan no.12..?
Statement tersebut berfungsi untuk pemilihan didalam suatu statetment.
Selanjutnya statement "then" dan "Else" setelah  statement IF berfungsi saling melengkapi.
Else akan melakukan 'aksi' jika kondisi pertama 'salah'.Berikut logika sederhananya.
jika kondisi 'terpenuhi' maka lakukan aksi.dan jika kondisi 'tidak terpenuhi' lakukan 'aksi' pada 'else'.