Shabifa, nama yang dicantumkan di guestbook ku yang ingin tau salah satu bentuk dari program bahasa Pascal untuk mencari FPB 2 bilangan,
berikut diperlihatkan salah satu algoritma yang telah dituangkan kedalam bahasa pemrograman Pascal, jika masih ingin bertanya silakan saja, kenapa begitu?? kenapa tidak begini?? Silakan saja!!.....
Berikut salah satu bentuk program Pascal mancari FPB 2 bilangan:
Program FPB_dan_KPK_dari_2_bilangan;
uses crt;
var a,b,d:longint;
begin clrscr;
write('ketikkan bilangan ke-1: '); readln(a);
write('ketikkan bilangan ke-2: '); readln(b);
for d:=b downto 1 do
begin
if (a mod d=0) and (b mod d=0) then
begin
writeln('FPB dari ',a:4,' dan ',b:4,' adalah ',d:7);
d:=1
end;
end;
for d:=a to (a*b) do
begin if (d mod a=0) and (d mod b=0) then
begin writeln('KPK dari ',a:4,' dan ',b:4,' adalah ',d:7);
d:=a*b;
end;end; readln end.
Somoga membantu
