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/02/26

Program Pascal Penjumlahan Matriks

Menanggapi pertanyaan dari saudara EnOk tentang punjumlahan matriks, di turbo pascal kita bisa buat sintaks seperti berikut:

Program Turbo Pascal Penjumlahan_Matriks;

uses crt;
var a,b,f,g:byte; c,d,h,i:longint; e,j:array [1..77,1..77] of integer;
begin clrscr;
writeln('Program Penjumlahan Matriks');writeln;writeln;readln;
writeln('Data tentang matriks pertama');
write('berapa jumlah baris matriks? '); readln(a);
write('berapa jumlah kolom matriks? '); readln(b);

writeln;writeln;writeln('Data tentang matriks kedua');
write('berapa jumlah baris matriks kedua? '); readln(f);
write('berapa jumlah kolom matriks kedua? '); readln(g);

if (a=f) and (b=g) then
begin

writeln;writeln;writeln('Memasukkan elemen matriks pertama'); writeln;

for c:=1 to a do
begin
for d:=1 to b do
begin
write('entri untuk baris ke-',c,' kolom ke-',d,' dari matriks pertama: ')
;readln(e[c,d]);
end;
end;writeln;
writeln('M1:');writeln;
for c:=1 to a do
begin writeln;
for d:=1 to b do
begin
write(e[c,d]:7);
end;writeln;
end;writeln;

writeln('Memasukkan elemen matriks kedua'); writeln;
for h:=1 to f do
begin
for i:=1 to g do
begin
write('entri untuk baris ke-',h,' kolom ke-',i,' dari matriks kedua: ')
;readln(j[h,i]);
end;
end;writeln;
writeln('M2:');writeln;
for h:=1 to f do
begin writeln;
for i:=1 to g do
begin
write(j[h,i]:7);
end;writeln
end;writeln;
writeln('Tekan Enter untuk melihat hasil operasi dari M1+M2!');
readln;
writeln('M1+M2:');writeln;
for c:=1 to a do begin writeln;
for d:=1 to b do begin
for h:=c to f do begin
for i:=d to g do begin
write(e[c,d]+j[h,i]:7); i:=g;
end;h:=f;end;end;writeln;end;end else begin writeln;
writeLN('Maaf?! hasil dari operasi penjumlahan matriks M1+M2 tidak akan dapat dilakukan');
writeLN('karena ordo M1(',a,'x',b,') tidak sama dengan ordo M2(',f,'x',g,')');
end;readln end.