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.
Bisa sy numpang tanya mas?
Mohon maaf baru saya balas, mau tanya tentang apa ?
uses crt;
var j,m,d,h: integer;
begin
writeln(‘program konversi waktu’);
writeln(‘===============’);
write(‘masukan jumlah jam;’)readln(j);
write(‘masukkan jumlah menit;’)readln(m);
write(‘masukkan jumlah detik;’)readln(d);
writeln;
h:=(j*3600)+(m*60)+d;
writeln(‘jadi hasil konversi;’h,detik’);
readln;
end.
pliss kasi tau kak jawabannya soalnya sabtu ini di kumpul
Maaf, jawaban apa ya yang di maksud ?
Gan, kalo penambahan waktu ada gak, misal
4 Jam 15 menit 60 detik
3 Jam 55 menit 10 detik
———————————– +