Facebook Ridho AP (Ridho Andika Putra)

M. Iqbal Tezet seorang dispatcher SCC (Sumatera Control Center) nantangin nih, untuk buat Facebook,


Ingin tau facebooknya Ridho Andika Putra??? Silakan klik http://www.facebook.com/ridho.andika.putra!!


Teman2 yang mau gabung dengan Ridho AP ditunggu lho requestnya!!! he2... ^_^

Program Pascal FPB 2 bilangan

Shabifa, nama yang dicantumkan di guestbook ku yang ingin tau salah satu bentuk dari program bahasa Pascal untuk mencari FPB 2 bilangan,

berikut diperlihatkan salah satu algoritma yang telah dituangkan kedalam bahasa pemrograman Pascal, jika masih ingin bertanya silakan saja, kenapa begitu?? kenapa tidak begini?? Silakan saja!!.....


Berikut salah satu bentuk program Pascal mancari FPB 2 bilangan:


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.


Somoga membantu