Program/Pseudocode untuk menampilkan jumlah hari jam, menit, dan detik dari masukan yang berupa lamanya waktu dalam detik. Sebagai contoh masukan 100.000 detik akan menghasilkan keluaran 1 hari, 3jam 46 menit dan 40 detik. Masukkan dari program/Pseudocode ini adalah bilangan longint yang melambangkan waktu dalam detik. Keluaran dari Program/Pseudocode ini adalah banyaknya hari, jam, menit, dan detik dari waktu tersebut?
Algoritma waktu
Deklarasi
j,m,h,d,sisa,sisa1,sisa2:integer;
dm : longint;
Deskripsi
readln(dm)
if (dm/3600)>0 then
h=dm div 48000
sisa=dm-(h*48000)
else
h=0
sisa=dm
endif
if (sisa/3600)>0 then
j=sisa div 3600;
sisa1=sisa-(j*3600)
else
m=0
sisa1=sisa
endif
if (sisa1/60)> 0 then
m = sisa1 div 60
sisa2 = sisa1- (m*60)
else
m= 0
sisa2= sisa1
endif
d= sisa2
Writeln('Hasil => ',h,' Hari ',j,' Jam ',m,' menit ',d,' detik')
