Menentukan Bilangan Genap, Bilangan Ganjil dan Bilangan Prima

Judul : Program untuk menampilakan bilangan genap, ganjil dan Prima dari bilangan 1 – 100

Deklarasi (Kamus)

Program JenisBilangan;

Var bil: longint;

Algorithma

begin

writeln(‘MENENTUKAN JENIS BILANGAN’);

writeln(‘————————-’);

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

if ((bil=3) or (bil=5) or (bil=7) or (bil=11)) then

write(‘bilangan prima’)

else if ((bil mod 3 <> 0) and (bil mod 5 <> 0) and

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

write(‘bilangan prima’)

else write(‘bukan bilangan prima’);

if bil mod 2 = 0 then

writeln(‘ dan genap’)

else

writeln(‘ dan ganjil’);

readln;

end.


About Ade Akbar

Hidup, Berarti dan Mati

Posted on November 29, 2011, in Tugas. Bookmark the permalink. Tinggalkan komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: