Program Pascal Konversi Waktu

malam guys, malam ini gue bakal posting lagi sebuah program pascal yaitu program konversi waktu dimana input yang dimasukkan adalah jumlah detik dan output dari program akan menampilkan jam, menit dan detik dalam program ini perintahnya cukup sederhana. langsung aja cek it out.

program konversi_waktu;
uses crt;
var
   detik,menit,jam,sisa_detik : longint;
begin
    clrscr;
    writeln('program konversi_waktu');
    writeln('- - - - - - - - - - - -');
    writeln;
    write('Masukkan Jumlah detik = ');
    readln(detik);
    jam := detik div 3600;
    sisa_detik := detik mod 3600;
    menit := sisa_detik div 60;
    sisa_detik := sisa_detik mod 60;
    writeln;
    writeln(detik,' detik = ',jam, ' jam ',menit, ' menit ',sisa_detik, ' detik ');
    readln();
End.

output dari program seperti pada gambar dibawah ini :

Program Konversi Waktu

 Silahkan download file program ini yang sudah dikompilasi via ziddu. klik link biru di bawah ini.

Download Program Pascal Konversi Waktu via ziddu

Saya rasa program ini cukup mudah untuk dipahami sehingga saya rasa ngak perlu buat dijelasin dan coba pahami dulu guys. thanks for visiting my blog. Diposting oleh Tutorial Programming Simple