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.
Penggunaan teknologi semakin meluas, termasuk dalam hal tanda tangan. Dahulu, tanda tangan dianggap sebagai identitas…
Plagiarisme, tindakan menyalin atau mengambil karya orang lain tanpa memberikan kredit yang sesuai, merupakan masalah…
Dalam era digital yang terus berkembang, perangkat pintar semakin merambah kehidupan sehari-hari. Salah satu perangkat…
Mobile computing adalah istilah yang digunakan untuk menggambarkan kemampuan komputer atau perangkat elektronik untuk beroperasi…
Pada zaman digital seperti saat ini, jurnalis tidak lagi harus mengumpulkan informasi dari sumber-sumber yang…
Dalam era digital saat ini, internet telah menjadi bagian penting dari kehidupan kita. Hampir semua…
This website uses cookies.
View Comments
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
----------------------------------- +