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;
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.
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
- Web : Cara mengatur Paragraf html code menjadi lebih teratur
- HTML : Belajar HTML Memasukkan link Bahasa Pemrograman WEB
- Belajar HTML Pemrograman Web
- Download Turbo Pascal for Windows (TPW 1.5)
- Pemrograman Pascal : Program Kalkulator Kali, Bagi, Jumlah dan Kurang
- Mengenal Bahasa Pemrograman Pascal
- Program Pascal : Belajar Coding Dasar Membuat Program Pascal Hello
- Pemrograman Pascal : Contoh Coding Pemrograman Dasar Pascal Perulangan While Do
- Pascal : Cara membuat Program Generator Tulisan Terbalik
- Aplikasi Free Pascal Download Gratis disertai Cara Download dan Cara Instal Lengkap
- Program Pascal : Cara Membuat Program Mencari Nilai Luas Trapesium
- Program Pascal : Contoh penggunaan PROCEDURE dan perulangan IF ELSE membuat piramid Bilangan
- Program Pascal : Contoh program pascal menggunakan Array
- Mempelajari Array Penyimpanan data dalam Pemrograman dunia IT
- Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure
- Pascal : Contoh Program menggunakan Perulangan For To Do, DIV dan MOD
- Program Pascal : Kalkulator Mencari Nilai rata-rata contoh kode Procedure dan Array
- Pascal : Menentukan Tahun Kabisat yang mengirimkan sebuah Boolean dengan Function
- Pemrograman Pascal : Mengenal Nilai Genap dengan Array
- Pascal : Membuat Perhitungan Gaji dengan Turbo Pascal
No comments:
Post a Comment
Silahkan isi komentar, jika ada yang ingin ditanyakan...