Program Konversi Total Detik ke Jam dengan Pascal

July 29, 2009 by
Filed under: Pascal, Pemrograman 

jamkedetik Program Konversi Total Detik ke Jam dengan PascalMasih 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

Tags: , , ,

Comments

One Comment on Program Konversi Total Detik ke Jam dengan Pascal

  1. setiawan indra on Sun, 8th Nov 2009 16:45

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

Tell me what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!