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...

2007/12/19

Program Pascal Bilangan Berpangkat

Program Bilangan_Berpangkat;
uses crt;
var a,b,c:longint;
begin clrscr;
writeln('Program Bilangan Berpangkat');
writeln('tekan 1 jika pangkat dalam bentuk pecahan');
writeln('tekan 2 jika pangkat dalam bentuk bilangan bulat');
write('jawab: '); readln(a); writeln;
if a=1 then
begin
write('berapa bilangan yang akan dipangkatkan? '); readln(a);
write('berapa pembilang dari pangkat? '); readln(b);
write('berapa penyebut dari pangkat? '); readln(c);
writeln(a,' pangkat ',b,'/',c,' = ', exp(b/c*ln(a)):13:13);
end else
if a=2 then
begin
write('berapa bilangan yang akan dipangkatkan? '); readln(a);
write(a,' pangkat berapa? '); readln(b);
writeln(a,' pangkat ',b,' = ',exp(b*ln(a)):13:13);
end else
writeln('Maaf Anda Menyalahi Prosedur Yang Telah Ditetapkan');
readln end.