Program Mencari FPB dengan Pascal
Input :
program cari_fpb;
uses
WinCrt;
var
x,y,m,n,r : integer ;
begin
write('Masukkan nilai x:');read(x);
write('masukkan nilai y:');read(y);
if x>y then
begin
m:=x;
n:=y;
end
else
begin
m:=y;
n:=x;
end;
repeat
r:=m mod n;
if r=0 then
begin
write('FPB adalah :',n);
end
else
begin
m:=n;
n:=r;
end;
until (r=0);
readkey;
end.
lihat juga, program pascal mencari FPB dari n bilangan, satu program pascal bisa mencari FPB dari 3 bilangan, 7 bilangan bahkan mencari FPB dari 20 bilangan hanya dengan satu program, tergantung nilai n yang kita masukkan
BalasHapuslihat pembahasannya pada link berikut:
http://sahabat-informasi.blogspot.com/2011/06/program-pascal-fpb-dari-n-bilangan.html