Dede Kurniadi Rotating Header Image
viewporntube indobokep classicrentcar borneowebhosting informasiku pontitravel pontiarmada classicborneorentcar

Program Konversi Total Detik ke Jam dengan Pascal

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

One Comment

  1. setiawan indra says:

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

Leave a Reply

Your email address will not be published. Required fields are marked *