Program menentukan suatu bilangan prima

Program ini untuk menentukan apakah suatu bilangan yang di input dikatakan prima atau bukan, menggunakan bahasa pascal. terdapat 2 versi logika program yabg berbeda pada artikel ini namun hasil atau output yang dihasilkan sama.

Versi Pertama :

Uses crt;
Var
x:integer;
y:string;
begin
clrscr;
write ('input bilangan : ');
readln(x);
if ((x mod 2=0) and (x<>2)) or (x=1) then
y:='bukan bilangan prima'
else
if (x mod 3=0) and (x<>3) then
y:='bukan bilangan prima'
else
if (x mod 5=0) and (x<>5) then
y:='bukan bilangan prima'
else
if (x mod 7=0) and (x<>7) then
y:='bukan bilangan prima'
else
y:='bilangan prima';
writeln(x,' adalah ',y);
readln;
end.

Versi kedua :

Uses Crt ;
Var I,j,k,l,m,n : integer ;
Procedure input ;
Begin
Write ('input bilangan : ') ;
Readln (n) ;
End ;
Function proses (nilai :integer ) : integer ;
Begin
L :=0 ;
For I := 1 to nilai do
Begin
If nilai mod I= 0 then
Begin
L := L+1 ;
End ;
End ;
Proses := L ;
End ;
Procedure output (nilai : integer ) ;
Begin
If proses (nilai) = 2 then
Write (nilai, ' adalah bilangan prima ')
Else
Write (nilai , ' adalah bukan bilangan prima ');
End ;
Begin
Clrscr ;
Input ;
Output (n) ;
Readln ;
End.

Output dari kedua program diatas :

input bilangan : _ (misal 7)

7 adalah bilangan prima

input bilangan : _ (misal 8)

8 adalah bukan bilangan prima

Diatas adalah 2 program menggunakan bahasa pascal untuk mencari suatu bilangan prima atau bukan bilangan prima dengan 2 cara / logika program yang berbeda tapi hasil sama. kini anda tinggal mempelajari, menganalisa, dan memahami perbedaan kedua logika program diatas.

" Di tunggu Komentarnya "

Artikel terkait :