Kamis , November 22 2018
Home / Programming / Program Konversi Waktu Pada Pascal

Program Konversi Waktu Pada Pascal

Masih belajar menggunakan bahasa Pascal ? Ya, bahasa pemograman yang mudah dikuasai ini memang masih dipelajari di sebagian sekolah atau universitas, biasanya menggunakan compiler TPW 1.5 atau Turbo Pascal 7.0.

Berikut merupakan salah satu contoh listing code untuk program konversi waktu. Dalam program ini waktu dalam bentuk detik di konversi menjadi hari, jam, menit dan detik jika terdapat sisa. Untuk itu, kita menggunakan fungsi div dan mod.

Listing code ini sangat sederhana jadi silahkan dikembangkan lagi 🙂


program konversi_detik_ke_hari_jam_menit_detik;
uses wincrt;
var hari,sisadetik,jam,sisadetik1,menit,sisadetik2,detik:longint;
begin
writeln('Program konversi detik ke hari, jam, menit serta detik');
writeln('dibuat untuk belajar oleh Riza Mirza');
writeln('========================================================');
writeln;
write('Masukkan jumlah detiknya: ');readln(detik);
hari:=detik div 86400;
sisadetik:=detik mod 86400;
jam:=sisadetik div 3600;
sisadetik1:=sisadetik mod 3600;
menit:=sisadetik1 div 60;
sisadetik2:=sisadetik1 mod 60;
writeln('Jadi hasil konversi waktu adalah ',hari,' hari ',jam,' jam ',menit,' menit ',sisadetik2,' detik ');
end.

About Riza Mirza

Riza Mirza, seorang web developer dan internet marketer dari Lhokseumawe, Aceh. Juga mahasiswa Universitas Al Muslim Peusangan.

2 comments

  1. Bisa sy numpang tanya mas?

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *