Program Pascal Mencari FPB dari Dua Bilangan

Program Pascal Mencari FPB dari Dua Bilangan

Program FPB Pada Lazarus

Menggunakan Procedure untuk melakukan pertukaran nilai.

Bahasa Pascal

Program FPB;

uses wincrt;

var          a,b,c:integer;

procedure tukar (var a1, b1 : integer);

Var m: integer;

Begin

   if a1<b1 then begin

m:=a1;

a1:=b1;

b1:= m;

 end;

end;

Begin

writeln('==========================================');

writeln('==========================================');

Write('     MASUKKAN ANGKA  PERTAMA = '); readln(a);

Write('     MASUKKAN ANGKA KEDUA    = '); readln(b);

Tukar(a,b);

while b>0 do

  begin

       c:=a-b;

       if c>b then a:=c;

       if c<=b then begin

       a:=b; b:=c; end;

  end;

c:=a;

writeln('==========================================');

writeln('==========================================');

write('FPB dari kedua bilangan tersebut adalah =',' ',c);

readln;

readln;

end.

Program Pascal Mencari FPB dari Dua Bilangan

Kumpulan Program Pascal Tentang Matematika:
Kunjungi: Kumpulan Program Pascal