Pascal : Membuat Program Menghitung detik menggunakan DIV MOD

Hitung detik menjadi hari --- program pascal berikut yang hadir di tekprogapp yaitu program tentang menghitung detik menjadi beberapa bagian seperti menit, jam, dan hari. program ini bisa kita gunakan secara langsung tanpa membuat program berbasis desktopnya,

waktu sangat berharga untuk kehidupan, karena setiap detik tidak akan kembali lagi. Program perhitungan detik ini akan membantu kita dalam menghitung beberapa detik yang telah kita habiskan, seperti dalam hal bonus telpon gratis.

Program ini menggunakan code DIV dan MOD yang akan digunakan untuk menghitung detik

Code program menghitung detik dengan Pascal:

program Menghitung_detik;
uses crt;
var dtk,mnt,hri,jam,sisadtk : longint;
begin
 clrscr;
 writeln('    Menghitung Detik');
 writeln('=======================');
   write('Masukkan Detik : ');readln(dtk);
   hri:= dtk div 86400;

   sisadtk:= dtk mod 86400;
   jam:= sisadtk div 3600;
   sisadtk:= dtk mod 3600;
   mnt:= sisadtk div 60;
   sisadtk:= sisadtk mod 60;
   writeln('Hari : ',hri);
   writeln('Jam : ',jam);
   writeln('Menit : ',mnt);
   writeln('Sisa Detik :',sisadtk);
 readln;
end.

Hasil Running:

Seperti itu hasil running dari programnya, dengan tampilan yang dasar CMD seperti program-program sebelumnya. Memang seperti itu tampilan dengan menggunakan bahasa Pascal dengan compiler free pascal atau turbo pascal. 

Sekian dulu artikel kali ini, semoga brmanfaat. Wassalam

Bagikan ke:

Facebook Google+ Twitter