Menampilkan Program Jumlah Hari,Jam,Menit,Detik.

Nama          : Bayu HIdayatullah
NIM           : 114224078 (1-B)
JURUSAN : Teknik Informatika (S-1)



AssaLamu'aLaikum Wr. Wb.
SeLamat Datang di BLog Ane yg sederhana nie :-D

kaLi nie ane dapet tugas dari Pak Hedi Ruswanto, S.kom, yaitu Menampilkan Program Jumlah Hari,Jam,Menit,Detik.
oke Langsung saja kita buat programnya, tapi ane pakek program delphi 2010 nie :-D
ketikkan seperti ini :

program Konversi_Detik;

uses 
    SysUtils;

type waktu = record

             hari  : longint;

             jam   : longint;

             menit : longint;

             detik : longint;

end;

var

   x : waktu;

   total_detik : longint;

   sisa_detik  : longint;

begin

     writeln('Program Menampilkan Jumlah Hari, Jam, Menit dan Detik');

     writeln('===========================================================');

     write('Masukkan Banyaknya Detik : '); readln(total_detik);

     writeln;

     x.hari     := total_detik div (24*60*60);

     sisa_detik := total_detik mod (24*60*60);

     x.jam      := sisa_detik div (60*60);

     sisa_detik := sisa_detik mod (60*60);

     x.menit    := sisa_detik div 60;

     x.detik    := sisa_detik mod 60;

     writeln('Hasil :');

     writeln('-------');

     writeln(x.hari,' Hari ',x.jam,' Jam ',x.menit,' Menit ',x.detik,' Detik');

     readkey();

end.

nanti hasilnya seperti ini :

setelah itu klik gambar atau bisa tekan F9 pada keyboard

dan hasil runningnya seperti ini :

 

itu lah sedikit pengetahuan dari saya, semoga bermanfaat :-)