Program Konversi Total Detik ke Jam dengan Pascal

Masih berlatih dengan bahasa pemrograman pascal, dalam latihan kali ini, saya akan membuat program untuk menkonversi jumlah total detik ke dalam satuan jam, program ini dibuat atas permintaan pembaca blog saya yang masuk ke e-mail, berikut source code lengkapnya:

Program Konversi_Total_detik_ke_Jam;

type Jam=record
hh:longint; {0..23}
mm:longint; {0..59}
ss:longint; {0..59}
end;
var
J:Jam;
total_detik:longint;
sisa:longint;

Begin
Write (‘Total detik = ‘); readln (total_detik);
J.hh:=total_detik div 3600;
sisa:=total_detik mod 3600;
J.mm:=sisa div 60;
J.ss:=sisa mod 60;
Write (J.hh,’ : ‘,J.mm,’ : ‘,J.ss);
Readln;
end.
Copyright © Dede Kurniadi