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 "
2 comments:
Posting Komentar