Bilangan Prima

Program Bilangan Prima dengan Pascal 

Setelah sebelumnya kita sudah belajar membuat Program Luas Segitiga, Keliling Persegi Panjang dan Volume Kerucut, sekarang kita akan mencoba membuat Program Bilangan Prima dengan bahasa Pascal.

Ok, mari kita mencoba membuat program bilangan prima dengan melirik program bilangan prima yang sudah kita buat sebelumnya dengan sele-sele ( kaga salah nih ).

FOR a = 1 to 20 <-- batas bilangan prima hanya sampai 20
c = 0 <-- bilangan kunci
FOR b = 1 to a <-- looping untuk pembagi
IF a MOD b = 0 THEN c = c + 1
NEXT b
IF c = 2 THEN PRINT a; "Bilangan Prima"
NEXT a

Nb: Diatas adalah script bilangan prima dengan menggunakan Basic.

Dari script basic diatas, kita rubah kedalam bahasa Pascal menjadi seperti ini:

Uses crt;
Var
a,b,c:integer;

begin
clrscr;
for a:=1 to 20 do
begin
c:=0;
for b:=1 to a do
begin
if a mod b = 0 then c:= c + 1;
end;
if c:= 2 then write (a); writeln (' Bilangan Prima');
end;
readln;
end.

Begitulah kira-kira hasil translat dari bahasa Basic ke Pascal program bilangan prima kita.