Contoh Program Menghitung menit,jam,detik menggunakan divmod

uses wincrt;
     var detik:integer;
         opr1,opr2,opr3:integer;
 begin
      write('jumlah detik : ');readln(detik);
      opr1:=detik div 3600;
      opr2:=detik div 60;
      opr3:=detik mod 60;
      writeln('jumlah jam   : ',opr1);
      writeln('jumlah menit : ',opr2);
      writeln('jumlah detik : ',opr3);
end.

Tampilan program

Pada saat kita memasukan angka 100
maka muncullah hasil jam,detik,dan menit

Contoh Program perhitungan nilai menggunakan rumus "gotoxy"

Uses wincrt;
Var
   nim       : string[10];
   nama    : string[40];
   Ket      : string[15];
   nil_hadir,nil_quis,n_tugas,n_uts,n_uas  :integer;
   rata      : real;
Begin
     clrscr;
     gotoxy(20,3);write('#===============================================#');
     gotoxy(20,4);write('#                                   NILAI MAHASISWA                                   #');
     gotoxy(20,5);write('#--------------------------------------------------------------------------------- #');
     gotoxy(20,6);write('#   NPM                        :                                                                        #');
     gotoxy(20,7);write('#   MAMA                   :                                                                       #');
     gotoxy(20,8);write('#   N. KEHADIRAN    :                                                                       #');
     gotoxy(20,9);write('#   N. QUIS                   :                                                                       #');
     gotoxy(20,10);write('#   N. TUGAS            :                                                                       #');
     gotoxy(20,11);write('#   N. UTS                  :                                                                       #');
     gotoxy(20,12);write('#   N. UAS                 :                                                                       #');
     gotoxy(20,13);write('#-------------------------------------------------------------------------------#');
     gotoxy(20,14);write('#   RATA-RATA      :                                                                      #');
     gotoxy(20,15);write('#   KETERANGAN   :                                                                      #');
     gotoxy(20,16);write('#=============================================#');
     gotoxy(39,6);readln(nim);
     gotoxy(39,7);readln(nama);
     gotoxy(39,8);readln(nil_hadir);
     gotoxy(39,9);readln(nil_quis);
     gotoxy(39,10);readln(n_tugas);
     gotoxy(39,11);readln(n_uts);
     gotoxy(39,12);readln(n_uas);
     rata :=(nil_hadir*0.1)+(nil_quis*0.1)+(n_tugas*0.15)+(n_uts*0.25)+(n_uas*0.4);
     if (rata>=60) then
        Ket:=('LULUS') else
        ket:=('TIDAK LULUS');
     gotoxy(39,14);write(rata:3:2);
     gotoxy(39,15);write(ket);
end.

Contoh Hasil Program

Rumus Mencari Luas Lingkaran

Uses Wincrt;
Var phi,jari:real;
       luas:integer;
Begin
Write('Jari-jari lingkaran = ');readln(jari);
     phi:=22/7;
     luas:=phi*(jari*jari);
     Write ('Nilai Luas lingkarannya adalah ',luas:1:2);
End.

Tampilan program

My Birthday

11 Desember 2011
Tepat dimana w berumur 18tahun .. hmm makin bertambah umur, w harus bisa semakin dewasa ((Harus bisa des!!))
ulang tahun kali ini sangat berkesan di hati gw .. bisa kumpul dengan sahabat-sahabat dan "dia" .. dia yang jadi pangeran di hati gw saat ini ^.^
moment yang sangat berkesan yaitu tepat hari minggu .. pukul 12.00 siang teman" gw datang ke rumah tetapi gak ada dia .. awalnya gw kecewa banget, apa lagi saat handphone gw berdering lalu gw angkat dan dia bilang "maaf yang, aku disuruh pulang jadi maaf gak bisa datang"
hadooohh perasaan gw langsung campur aduk menahan kesal ..
tapi gw mendengar suara ketukan pintu .. perlahan gw menghampiri pintu ..
daaaaaaaaan..... OMG gw kaget sampai tidak bisa berkata" ..
dia sudah ada di depan pintu rumah gw dengan membawa kue tart yang dihiasi lilin angka "18" ..
ini surprise yang gak akan pernah gw lupain seumur hidup gw ..
dia yang terbaik untuk gw saat ini dan gw harap selamanya :)

Galau Part II

"selalu bersama setiap saat dan selalu ada disaat kita butuh"
belum tentu dia menganggap kita sebagai pacarnya
"selau memberi perhatian"
mungkin dia cuma pengen berusaha care saja sama kita
"selalu bilang sayang"
apa mungkin sayang itu seperti sayang kepada pacar?? mungkin cuma sayang kepada teman