Berikut adalah Algoritma untuk program Turbo Pascal:
program menghitung_FPB_dua_Bilangan;
uses crt;
var a,b,q,r : integer;
label awal, akhir;
begin
clrscr;
writeln (' Program Menghitung FPB dari dua bilangan');
writeln (' ------------------------------------------');
writeln;
writeln (' Nama : Lia Amaliyah');
writeln (' NIM : 070821');
writeln (' Mata Kuliah : Program Komputer');
writeln; readln;
writeln(' Masukkan nilai a dan b yang akan dihitung ');
writeln;
write(' a = '); readln(a);
writeln;
write(' b = '); readln(b);
writeln;
writeln(' Maka FPB dari ( ',a,',',b,') melalui rumus a = qb + r adalah ');
writeln(' (Dimana q = a div b dan r = a mod b) ');
writeln;
if a>b then
awal:
begin
r:=a mod b;
q:=a div b;
textcolor (yellow);
writeln(' ',a,' = ', q ,' * ',b,' + ',r, ''); read; write;
if r=0 then
begin
writeln;
textcolor (9);
writeln(' FPB dari kedua bilangan adalah ', b); readln;writeln;
end else
a:=b; b:=r;
goto awal; end
else
if a
akhir:
begin
r:= b mod a;
q:= b div a;
write(' ',a,' = ',q,' * ',b,' + ',r, ''); readln;
writeln;
if r=0 then
writeln(' FPB dari kedua bilangan adalah ', a); readln;
end else
b:=a; a:=r;
goto akhir;
end.
