Pages

Thursday, 21 March 2013

Konverter Detik Bahasa Pascal


Sebelumnya bagi anda yang ingin membuat program pascal download dulu
softwarenya di sini 
Ini adalah contoh contoh program konversi detik ke hari, jam, menit dan detik:
program  konverter_detik;
uses     wincrt;
const    satuhari=60*60*24;
var      detik:longint;
         hr,jm,mn,dt:integer;
begin
     writeln('=======PROGRAM_KONVERSI_DETIK=======');
     writeln('');
     write('MASUKAN WAKTU (DALAM DETIK):');
     read(detik);
     writeln('');
     writeln(detik, ' DETIK TERDIRI DARI =');

     if hr=jm then
     begin
     hr:=detik div satuhari;
     detik:=detik-hr*satuhari;
     end;

     if jm=mn then
     begin
     jm:= detik div 3600;
     detik:= detik-jm*3600;
     end;

     if mn=dt then
     begin
     mn:=detik div 60;
     dt:=detik -mn*60;
     end;

     writeln(hr,'HARI :',jm,'JAM :',mn,'MENIT :',dt,' DETIK');
  
end.

0 comments:

Post a Comment