jamkedetikMasih 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

Program Konversi Total Detik ke Jam dengan Pascal
Tag pada:            

Satu gagasan untuk “Program Konversi Total Detik ke Jam dengan Pascal

  • 8 November 2009 pukul 4:45 pm
    Permalink

    sangat bagus sekali, tapi masih kurang,
    tentag penjelasannya, terimakasih

    Balas

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *