Popular Post

Posted by : Henny azalea Selasa, 19 Januari 2010







Berikut program sederhananya menggunakan bahasa Pascal :

Program FPB_dan_KPK_dari_2_bilangan;
uses crt;
var a,b,d:longint;
begin clrscr;
write('ketikkan bilangan ke-1: '); readln(a);
write('ketikkan bilangan ke-2: '); readln(b);
for d:=b downto 1 do
begin
if (a mod d=0) and (b mod d=0) then
begin
writeln('FPB dari ',a:4,' dan ',b:4,' adalah ',d:7);
d:=1
end;
end;
for d:=a to (a*b) do
begin if (d mod a=0) and (d mod b=0) then
begin writeln('KPK dari ',a:4,' dan ',b:4,' adalah ',d:7);
d:=a*b;
end;end; readln end.

Leave a Reply

Silahkan tulis komentar Anda dibawah ini

Subscribe to Posts | Subscribe to Comments

Cari Blog Ini

- Copyright © HeDes - Date A Live - Powered by Blogger - Designed by Johanes Djogan -