Selasa , Mei 21 2019
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.

Lihat Juga

Contoh Program If Else Pada Java

Berikut adalah contoh penggunaan if else pada bahasa pemograman java, ini adalah contoh yang sederhana …

4 comments

  1. 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

Tinggalkan Balasan

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