Program Pascal Untuk Mencari FPB dengan Algoritma Euclid

Dalam Bahasa Pascal


program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclid;

uses crt;

var
x,y,a,b,k,l:longint;

begin
clrscr;
writeln ('------------------------------------------');
writeln ('~~~~~~~~~~~~~~selamat_datang~~~~~~~~~~~~~~');
writeln ('program menentukan FPB dengan Algoritma Euclid');
writeln ('------------------------------------------');

writeln ('Masukan Bilangan Pertama : ');
readln (k);
writeln ('Masukan Bilangan Kedua : ');
readln (l);

if k>l then
begin
a:=k;
b:=l;

end else
begin
a:=l;
b:=k;

end;

writeln;
y:= a mod b;
x:= b div b;

write (a);
write ('=');
write (x);
write ('*');
write (b);
write ('+');
writeln (y);

repeat
a:=b;
b:=y;


y:= a mod b;
x:= a div b;

write (a);
write ('=');
write (x);
write ('*');
write (b);
write ('+');
writeln (y);

until y=0;

writeln ('nilai FPB-nya adalah : ');
write (b);

readln;

end.