Gudang Info yang berisi Berita, Cerita, Hiburan, dan Ilmu Pengetahuan

Saturday, 6 June 2015

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\
Program Pascal Mencari FPB dari Dua Bilangan
Kumpulan Program Pascal Tentang Matematika:
Kunjungi: Kumpulan Program Pascal

0 comments:

Post a Comment