Program Bilangan Prima dengan Pascal

Sekarang kita akan mencoba mentranslate Program Bilangan Prima tersebut kedalam bahasa Pascal. Kenapa kok hanya mentranslate/mengalihbahasakan saja? kenapa tidak membuat program baru? Jawabanya: karena dalam Pemrograman apapun bukan program yang menjadi patokan namun Algoritma. Algoritma inilah yang menjadi dasar seorang programmer bekerja dan membuat program. Jadi karena Algoritma Bilangan Prima sudah pernah dibahas di Pemrograman Bilangan Prima dengan Basic maka kita hanya tinggal mengalih bahasakan saja, gitu!

Ok, mari kita mencoba membuat program bilangan prima dengan melirik program bilangan prima yang sudah kita buat sebelumnya dengan bahasa Basic.

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.