Program Pascal... ( menggunakan console application delphi 7.0 )

1. Penggunaan Kondisi  If .. Then ...
    Berikut adalah contoh program pascal sederhana dengan menggunakan if.. then.. untuk perhitungan nilai..
   
    Listing Program ...
    program If_Then;

   {$APPTYPE CONSOLE}

   uses
      SysUtils;
   Var
        Ns,Nm,sms,Mk,Jrs,N,Ket : String;
        NA,NT,NMd,NF : integer;
        TN : Real;
   begin
      writeln('Nilai Mahasiswa');
      writeln('++++++++++++++++');
      writeln;
      write('Masukkan No.Stambuk : ');Readln(Ns);
      write('Masukkan Nama       : ');Readln(Nm);
      write('Masukkan Semester   : ');Readln(sms);
      write('Masukkan Mata Kuliah: ');Readln(Mk);
      write('Masukkan Jurusan    : ');Readln(Jrs);
      writeln;
      Writeln('Nilai Mahasiswa');
      write('Nilai Absent : ');Readln(NA);
      write('Nilai Tugas  : ');Readln(NT);
      write('Nilai MID    : ');Readln(NMd);
      write('Nilai Final  : ');Readln(NF);
      TN := (NA + NT + NMd + NF)/4;
            if TN > 80 Then
               Begin
                   N := 'A';
                   Ket :='Sangat Memuaskan';
              End
           else
           if TN > 70 Then
              Begin
                  N := 'B';
                  Ket :='Memuaskan';
              End
           else
           if TN > 60 Then
              Begin
                N := 'C';
                Ket :='Cukup';
              End
          else
          if TN > 40 Then
             Begin
               N := 'D';
               Ket :='Kurang';
            End
         else
         if TN < 40 Then
           Begin
             N := 'E';
             Ket :='Tidak Lulus';
          End;
   writeln;
   writeln('No. Induk Mahasiswa : ',Ns);
   writeln('Nama Mahasiswa      : ',Nm);
   writeln('Semester            : ',Sms);
   writeln('Mata Kuliah         : ',Mk);
   writeln('Jurusan             : ',Jrs);
   writeln;
   writeln('Nilai Akhir : ',TN:4:0);
   writeln('Nilai : ',N);
   writeln('Keterangan : ',Ket);
   Readln;
end.


Selamat menikmati... :)

GURU TERBAIK

MASA LALU GURU TERBAIK

                Pada setiap waktu yang kita lalui banyak hal yang menjadikan kita akan belajar dari apa yang telah terjadi sehingga sangat sesuai suatu pesan yang mengatakan bahwa masa lalu adalah guru yang paling baik... segala yang kita lakukan pada hari ini adalah hasil dari pelajaran di masa lalu, keberhasilan yang kita lakukan merupakan suatu bukti bahwa kita telah belajar dari kesalahan di masa lalu.. so.. jangan pernah bersedih bila kita melakukan kesalahan di saat ini karena kesalahan hari ini merupakan keberhasilan yang tertunda di masa yang akan datang.

                Setiap proses yang kita jalani dalam kehidupan pada dasarnya memberikan banyak manfaat yang berharga buat kita asalkan kita mau belajar dari setiap proses tersebut. Sebagai contoh ketika kita mulai belajar dan menekuti sebuah pemrograman bagi mereka yang berada pada lingkup komputer atau sejenisnya maka kita akan sering menemukan berbagai kesalahan baik itu penggunaan listing, proses menjalankan dan sebagainya. Tpi bila kita sadar bahwa kesalahan yang kita peroleh pada saat itu merupakan pengetahuan besar yang akan memudahkan kita dalam menguasai program di masa yang akan datang karena kita telah dipenuhi berbagai pengetahuan kesalahan dan akan menjadikan kita untuk lebih teliti dalam membuat sebuah program.. so jangan pernah takut ketika melakukan kesalahan, tapi anggaplah itu adalah sebuah pelajaran untuk tidak mengulanginya.

                Kesalahan hari ini adalah Keberhasilan di masa yang akan datang.....

Contoh Jurnal

Contoh Jurnal :

Buatlah Jurnal sesuai dengan format jurnal yang ada...
jumlah halaman maksimal 10 ...

Download Contoh Jurnal : http://www.ziddu.com/download/20626397/ContohJurnal.rar.html

Love for My Wife

Semoga kehidupan rumah tangga kita seperti hidupnya Rasulullah dan St. Khadijah, seperti Ali Bin Abi Thalib dan Fatimah binti Rasulullah... senantiasa hidup rukun, damai dan bahagia..
Kesusahan, kesedihan kita dihadapi dengan senyum bahagia karena sebaik-baik hamba adalah mereka yang senatiasa menghadapi segalanya dengan kesabaran.
Senyum Bunda ketika Ayah berangkat ke kantor adalah bekal yang akan senantiasa menemani ayah dalam menjalani pekerjaan,,, Senyum Bunda ketika Ayah Pulang adalah sebuah hidangan yang tak ternilai yang dapat menghilangkan perasaan lelah, haus dan kelaparan,,, :)
Semoga menjadikan keluarga kita menjadi Keluarga yang Sakinah, Warahma dan Mawaddah... Amin.. Amin... ya Rabbal Alamin,,,

Always Love to my wife

Mari Beribadah....

Pertanyaan  yang selalu ada... kenapa kita malas beribadah????
jawabnya karena banyak diantara kita yang merasa tidak meperoleh hasil dari ibadah...
beribadah bukanlah sebuah barang ketika kita membeli maka akan dapat kita miliki, kita genggam, kita makan atau kita gunakan.. hasil ibadah tidak terlihat dengan nyata...

Tapi pernahkah kita renungkan sedikit tentang perjalanan hidup kita.. maka pasti kita akan menemukan bahwa semua kebaikan yang kita proleh adalah hasil dari ibadah..., imbalan dari ibadah tidak iperoleh langsung namun pada kenyaatannya hasil itu senantiasa melekat pada kita...

Beribadahlah dengan keikhlasan... maka suatu saat nnti engkau akan mengatakan Alhamdulillah atas apa yang telah engkau kerjakan... yakinlah...

Smoga menjadi motivasi untuk meningkatkan ibadah...

Indahnya Berbagi...

Menjadi seorang pengajar menjadikan kita penuh dengan rasa sosial, terkadang waktu untuk istirahat terisi dengan diskusi dengan mereka yang ingin belajar dan mengetahui sesuatu...

Namun bila kita menikmati apa yang kita lakukan ternyata berbagi itu bukan mengurangi bahkan bertambah.. klo dalam matematika mengurangi berarti memperkecil nilai namun dalam mengajar berbagi akan mempertambah nilai... berawal dari pertanyaan yang tak diketahui akan terus berkembang menjadi pengetahuan yang semakin banyak dan baru...

So jangan pernah takut untuk BERBAGI....