======================================================================================================================================================= AbimaelZONE AbimaelZONE AbimaelZONE AbimaelZONE AbimaelZONE AbimaelZONE AbimaelZONE
====================================================================================================================
==========================================================================================================================================
JANGAN LUPA KUNJUNGI TERUS ABIMAELZONE DAN FOLLOW UNTUK SELALU MENDAPATKAN UPDATE TIPS DAN TRIK TERBARUTERIMA KASIH TELAH BERKUNJUNG DI ABIMAEL ZONE
Home » , » Konversi Detik ke Hari , Jam dan Menit ( Pascal )

Konversi Detik ke Hari , Jam dan Menit ( Pascal )

Abimael | Saturday, March 02, 2013 | 1 comments
Sekarang saya ingin membagikan cara membuat program konversi Detik ke jam dan menit mengunakan Pascal, mungkin banyak dari kalian yang sudah mengetahuinya. oke langsung saja saya memberika scriptnya : copykan script dibawah ini ke TPW anda

program konversi_detik_ke_Hari_Jam_dan_menit;
uses wincrt;
const
satuhari = 60 * 60 * 24 ;
var
hr,jm,mn,dt,Detik : longint;
ulang : char   ;
begin
repeat
writeln (' ====================================================') ;
writeln ('   * Program Konversi Detik ke Hari, Jam dan menit *') ;
writeln (' ====================================================') ;
writeln ('                                 oleh Billy Abimael');
writeln;      
write   (   '      Masukan waktu (dalam detik) : ' );
readln  (Detik);
writeln ('        ',Detik ,' Detik tediri dari : .... ');
hr      := Detik div satuhari ;
Detik   := Detik - hr* satuhari;
jm      := Detik div 3600 ;
Detik   := Detik - jm * 3600;
mn      := Detik div 60 ;
dt      := detik - mn  * 60 ;


        Writeln ('        ', hr,  ' hari  ');
        Writeln ('        ', jm,  ' jam   ');
        Writeln ('        ', mn,  ' menit ');
        Writeln ('        ', dt,  ' detik ');
         write ('Mau Mencoba lagi ? (y/n) : ');
     readln(ulang);
until (ulang = 'n') or (ulang = 'N');
writeln;
writeln ( '=========         Abimael Zone      ==============') ;
end.



  
Share this article :

1 comments :

Post a Comment

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. AbimaelZone - All Rights Reserved
Template Modify by Creating Website
Proudly powered by Blogger