Dengan program pascal kita juga bisa membuat program yang untuk mencari Faktor Persekutuan Terbesar atau FPB. Dalam program ini, kita dapat memasukan dua angka yang kemudian akan dicari FPBnya seperti dibawah ini.
Nah untuk membuat program FPB, enkripsinya seperti berikut.
program fpb;
uses wincrt;
var x,y:longint;
begin
writeln('masukkan dua bilangan yang akan dicari FPB-nya:');read(x);read(y);
while x<>y do
if x>y then x:=x-y
else if y>x then y:=y-x
else if x=y then x:=x;
write('FPB:',x);
end.
Gimana kawan?
selamat mencoba. dokter matematika (www.doktermath.blogspot.com) :)
