Download Al-Quran

Rasulullah bersabda:

"Telah kutinggalkan dua pusaka kedapamu, jika kamu berpegang teguh kepada keduanya maka selamatlah kamu selama-lamanya, yakninya Al-Quran dan Sunnah Rasul (Hadist)"

Al Quran for Ms-Word Ver. 1.3 Office version (2000,2002(XP) ,2003 version) or greather not cover versi 1997

Klik di sini untuk menuju link download

Aplikasi Mengetahui Hari Dari Tanggal

Hanya iseng-iseng saja membuat program bagaimana cara mengetahui hari dari tanggal, misalnya jika kita ingin mengetahui hari apa pada tanggal 29 April 2000, maka hanya dengan memasukkan data tanggal (29), bulan(04) dan tahun(2000), maka kita akan tahu bahwa 29 April 2000adalah hari Sabtu,

selengkapnya...

2009/04/17

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