Selasa, 14 April 2015

Biografi Nabi Muhammad SAW

Siapa yang tidak mengenal Nabi Muhammad SAW, dialah pemimpin terbesar umat Islam sepanjang masa, dinobatkan sebagai tokoh nomor satu yang paling berpengaruh di dunia dibandingkan tokoh-tokoh lainnya yang pernah ada di dunia. Berikut biografi mengenai Nabi Muhammad saw. Beliau berasal dari kabilah Quraisy, tepatnya keturunan Hasyim. Ayah beliau adalah Abdullah bin Abdul Muthalib, cucu Hasyim. Ibunda beliau adalah Aminah binti Wahb yang berasal dari keturunan Bani Zuhrah, salah satu kabilah Quraisy.

Kode Pascal 'Persegi'

PROGRAM PASCAL

program Menghitung_luas_dan_keliling_persegi_panjang;
uses wincrt;
var
l,p,k,Luas: integer;

begin
writeln(' menghitung luas dan keliling persegi');
writeln;
writeln;
write('masukkan panjang persegi: ');readln(p);
write('masukkan lebar persegi: ') ;readln(l);
writeln;

luas:=p*l;
writeln('luas persegi adalah: ',Luas,' satuan luas');
writeln;

k:=2*(p+l);
writeln('keliling persegi adalah: ',k,' satuan keliling');

end.

Kode Pascal ' Urut Data'

PROGRAM PASCAL

program data;

uses wincrt;

var
i,j,n:integer;
x: array[0..6] of integer;

begin
writeln('Program Urut Data');
write ('Masukkan Banyak Data '); readln (n);

for i:=1 to n do
begin
   write ('Masukkan Data ke ',i,':'); readln (x[i]);
end;

for i:=1 to n-1 do
for j:=1 to n-1 do
begin
if x[j]>x[j+1] then
   begin
    x[0]:=x[j];
    x[j]:=x[j+1];
    x[j+1]:=x[0];
   end;

end;

writeln('Data Setelah Diurut');
for i:=1 to n do
begin
   writeln('Data ke ',i,':',x[i]);
end;

end.

Kode Pascal 'Modus'

PROGRAM PASCAL

program nilaimodus;
uses wincrt;
var n,i,j: integer;
    ftinggi: real;
    fx: array[1..100]of integer;
    modus,x: array[1..100]of real;
begin
clrscr;

write ('masukan banyak data: '); readln (n);

for i:=1 to n do
begin
write ('data ke-',i,' : '); readln(x[i]);
fx[i]:=1;
end;

for i:=1 to n-1do
for j:=i+1 to n do
    if x[i]=x[j] then fx[i]:=fx[i]+1;

ftinggi:=1;
for i:=1 to n do
   if fx[i]>ftinggi then ftinggi:=fx[i];

writeln;
writeln ('Frekuensi tertinggi adalah: ',ftinggi:0:0);

writeln;
j:=0;
for i:=1 to n do
if fx[i]=ftinggi then
   begin
    j:= j+1;
    modus[j]:=x[i];
   end;

writeln;
if j=n then
writeln('Tidak ada Modus')
else
if ftinggi=n div j then
writeln('Tidak ada Modus')

else

begin
writeln ('Banyak modusnya ',j,' buah, yaitu: ');
for i:=1 to j do
writeln (modus[i]:0:0);
end;

end.

MATEMATIKA sudah menjadi pelajaran yang umum dikalangan para pelajar. Kebanyakan yang kita ketahui teori-teori yang ada pada pembahasan ilmu matematika ini berasal dari ilmuan non muslim. Padahal seorang ilmuan muslim pun ada, bahkan yang pertama kali mengetahui aljabar pada pembahasan matematika. Dialah Al-Khawarizmi, tokoh penemu aljabar.

Nama Asli dari Al-Khawarizmi ialah Muhammad Ibn Musa al-khawarizmi. Selain itu beliau dikenali sebagai Abu Abdullah Muhammad bin Ahmad bin Yusoff. Al-Khawarizmi dikenal di Barat sebagai al-Khawarizmi, al-Cowarizmi, al-Ahawizmi, al-Karismi, al-Goritmi, al-Gorismi dan beberapa cara ejaan lagi. Ia lahir di Khawarizmi, Uzbeikistan, pada tahun 194 H/780 M. sejarah hidu Al-Khawarizmi yang lengkap tidaklah diketahui tetapi ia pernah bekerja dengan khalifah Al-Ma’mun. Ia merupakan intelektual muslim yang banyak menyumbangkan karyanya di bidang matematika, geografi, musik, dan sejarah.

MATEMATIKA ITU MEMBOSANKAN KAH ???

“Donny, Dony.. cepat bangun nak, ini sudah siang !” teriakan mama dari luar kamar terdengar sangat bising mengacaukan indahnya mimpiku kali ini. Dengan sangat berat aku mulai menggerakkan tubuhku sambil mengambil handphone di atas meja di samping ranjang ku.

”Ya ampun sudah jam tujuh nih, gawat bagaimana ini”ucapku dalam hati.