Program Pascal Konversi Waktu

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

aktivitas 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 aktivitas menyerupai pada gambar dibawah ini :

Program Konversi Waktu

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

Download Program Pascal Konversi Waktu via ziddu

Saya rasa aktivitas ini cukup gampang untuk dipahami sehingga aku rasa ngak perlu buat dijelasin dan coba pahami dulu guys. thanks for visiting my blog.