Program Pascal: menentukan bilangan ganjil, genap dan prima

Pernah kan pas di SD,SMP,SMK kita disuruh nentuin bilangan ini ganjil apa genap, prima apa bukan. Sekarang kita jadiin program.

1: Program JenisBilangan;

2: var bil: longint;

3: begin

4: writeln('MENENTUKAN JENIS BILANGAN');

5: writeln('-------------------------');

6: write('Masukkan angka: ');readln(bil);

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

8: write('bilangan prima')

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

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

10: write('bilangan prima')

11: else write('bukan bilangan prima');

12: if bil mod 2 = 0 then

13: writeln(' dan genap')

14: else

15: writeln(' dan ganjil');

16: readln;

17: end.

Pada baris ke-7 sampai 12 adalah tempat menentukan bilangan prima atau bukan. Masih ingat kan karateristik bilangan prima? bilangan yang hanya bisa dibagi 1 dan dirinya sendiri dan juga hampir semuanya ganjil. Berhubung bilangan prima dibawah 10 adalah persyaratan untuk bilangan diatas 10 (perhatikan baris ke 7 dan 9), jadi bilangan prima dibawah 10 ditulis manual. Fungsi "mod" pada baris 9 dan 13 adalah sebagai sisa dari pembagian. Jika ditulis "7 mod 3" maka hasilnya adalah 1, artinya sisa dari 7/3 (tujuh dibagi tiga) adalah 1.

Gimana? Tinggal maen logika... kan? :P

Blog, Updated at: 06.22