Fenomena Crop Circle

Prakter Pascal

Umar Bin Khattab

Latar belakang
Nama lengkap Umar bin Khattab bin Nafiel bin abdul Uzza, dilahir di Mekkah, dari Bani Adi, salah
satu rumpun suku Quraisy. Ayahnya bernama Khaththab bin Nufail Al Shimh Al Quraisyi dan ibunya
Hantamah binti Hasyim. Umar memiliki julukan yang diberikan oleh Muhammad yaitu AlFaruq
yang
berarti orang yang bisa memisahkan antara yang haq dan bathil.
Keluarga Umar tergolong dalam keluarga kelas menengah, ia bisa membaca dan menulis yang pada
masa itu merupakan sesuatu yang jarang. Umar juga dikenal, karena fisiknya yang kuat dimana ia
menjadi juara gulat di Mekkah.
Sebelum memeluk Islam, sebagaimana tradisi kaum jahiliyah mekkah saat itu, Umar mengubur
putrinya hiduphidup.
Sebagaimana yang ia katakan sendiri, "Aku menangis ketika menggali kubur
untuk putriku. Dia maju dan kemudian menyisir janggutku".
Mabukmabukan
juga merupakan hal yang umum dikalangan kaum Quraish. Beberapa catatan
mengatakan bahwa pada masa praIslam,
Umar suka meminum anggur. Setelah menjadi muslim, ia
tidak menyentuh alkohol sama sekali. Tetapi, setelah masuk Islam, belum diturunkan larangan
meminum khamar (yang memabukkan) secara tegas.
Memeluk Islam
Ketika ajakan memeluk Islam dideklarasikan oleh Nabi Muhammad SAW, Umar mengambil posisi
untuk membela agama tradisional kaum Quraish (menyembah berhala). Pada saat itu Umar adalah salah
seorang yang sangat keras dalam melawan pesan Islam dan sering melakukan penyiksaan terhadap
pemeluknya.
Dikatakan bahwa pada suatu saat, Umar berketetapan untuk membunuh Muhammad SAW. Saat
mencarinya, ia berpapasan dengan seorang muslim (Nu'aim bin Abdullah) yang kemudian memberi
tahu bahwa saudara perempuannya juga telah memeluk Islam. Umar terkejut atas pemberitahuan itu
dan pulang ke rumahnya.
Di rumah Umar menjumpai bahwa saudaranya sedang membaca ayatayat
Al Qur'an (surat Thoha), ia
menjadi marah akan hal tersebut dan memukul saudaranya. Ketika melihat saudaranya berdarah oleh
pukulannya ia menjadi iba, dan kemudian meminta agar bacaan tersebut dapat ia lihat. Ia kemudian
menjadi sangat terguncang oleh isi Al Qur'an tersebut dan kemudian langsung memeluk Islam pada
hari itu juga.

Pascal Perpustakaan

Program Perpustakaan;
Uses crt,DOS;
var
   Judul   : array[1..20] of String;
   Lama    : array[1..20] of Integer;
   banyak  : array[1..20] of Byte;
   kata,grs,nama,nim,prodi,user,pass : String;
   x,y,i,j     :Byte;
   Jum_Harga,Total_Harga,disc,Total_Bayar,uang,Kembalian : Real;
   Ul : Char;

Procedure Data;
Begin
  Repeat
     clrscr;
     grs:='==================================================================';
     Textcolor(Yellow); Write('PERPUSTAKAAN CINTA BACA');
     Writeln;
     Textcolor(7);
     x:=round((78-length(kata))/2);
     gotoxy(x,2);writeln(kata);
     x:=round((78-length(grs))/2);
     {gotoxy(x,3);write(grs);
     -----------------------------}
     gotoxy(x,4);Textcolor(Yellow);write('DATA PEMINJAM');Textcolor(7);
     gotoxy(x,6);write('Nama  : ');readln(nama);
     gotoxy(x,7);write('NIM   : ');readln(nim);
     gotoxy(x,8);write('Prodi : ');readln(prodi);
     gotoxy(x,9);write(grs);
     gotoxy(x,10);writeln('| No | Judul Buku        | Lama Sewa     | Banyak | Jumlah Harga |');
     gotoxy(x,11);write(grs);
     {--------------------------------------------------------------------}
     i:=0;
     Total_Harga:=0;
     repeat

       i:=i+1;
       gotoxy(x,11+i);write('| ',i);
       gotoxy(x+5,11+i);write('|');
       gotoxy(x+7,11+i);readln(Judul[i]);
       if Judul[i] <>'' then
       begin
          gotoxy(x+25,11+i);write('|');
          gotoxy(x+28,11+i);readln(Lama[i]);
          gotoxy(x+28,11+i);writeln(Lama[i]);
          gotoxy(x+41,11+i);write('|');
          gotoxy(x+44,11+i);readln(Banyak[i]);
          gotoxy(x+50,11+i);write('|');
          Jum_Harga:=Lama[i]*500*Banyak[i];
          gotoxy(x+53,11+i);writeln(Jum_Harga:10:2);
          gotoxy(x+65,11+i);writeln('|');
          Total_Harga:=Total_Harga+Jum_Harga ;
       end;
       until Judul[i]='';
{--------------------------------------------------------------------}
       disc:=0;
       if (Total_Harga > 10000) and (Total_Harga <100000) then
          disc:=0.05 * Total_Harga
       else
       if (Total_Harga >= 100000 ) then
          disc:=0.1 *Total_Harga;
{--------------------------------------------------------------------}
          j:=i-1;
          gotoxy(x,12+j);write(grs);
          gotoxy(x,12+j+1);write('Total Sewa :');
          gotoxy(x+53,12+j+1);write(Total_Harga:10:2);
          gotoxy(x,12+j+2);write('Discount :');
          gotoxy(x+53,12+j+2);write(disc:10:2);
          gotoxy(x,12+j+3);write(grs);
          gotoxy(x,12+j+4);write('Total :');
          Total_Bayar:=Total_Harga-disc;
          gotoxy(x+53,12+j+4);write(Total_Bayar:10:2);
          gotoxy(x,12+j+5);write('Uang diBayar');
          gotoxy(x+53,12+j+5);readln(Uang);
          gotoxy(x+53,12+j+5);writeln(Uang:10:2);
          gotoxy(x,12+j+6);Write(grs);
          Kembalian:=Uang - Total_Bayar;
          gotoxy(x,12+j+7);writeln('Uang Kembali');
          gotoxy(x+53,12+j+7);write(Kembalian:10:2);
            gotoxy(x,12+j+10);Textbackground(12);Write('TRANSAKSI KEMBALI [Y/T]: ');Readln(Ul);
          Textbackground(1);
  Until Upcase(Ul) <> 'Y';
End;

Pascal Nilai Mahasiswa

Program Nilai_akhir_mahasiswa;
Uses Crt;
Var
   Nama,NIM,Jenjang,Prodi,Ket : String;
   NilPres,NilUts,NilUas,NilTug,NilAkhir : Real;
   Absen : Integer;
   Grade : Char ;
Begin
     Clrscr;
     Writeln('      DAFTAR NILAI MAHASISWA      ');
     Writeln('==================================');
     Writeln;
     Write('  NIM            : ');Readln(NIM);
     Write('  Nama Mahasiswa : ');Readln(Nama);
     Write('  Jenjang        : ');Readln(Jenjang);
     Write('  Program Study  : ');Readln(Prodi);
     Writeln;
     Write('  Kehadiran      : ');Readln(Absen);
     Write('  Nilai Tugas    : ');Readln(NilTug);
     Write('  Nilai UTS      : ');Readln(NilUts);
     Write('  Nilai UAS      : ');Readln(NilUas);
     NilPres:=Absen/14*100/100*10;
     NilTug:=NilTug*25/100;
     NilUts:=NilUts*25/100;
     NilUas:=NIlUas*40/100;
     NilAkhir:=NilPres+NilTug+NilUts+NilUas;