Program Konversi Detik Menggunakan Pascal

Program berjudul KonversiDetik berfungsi mengkonversikan jumlah detik
yang diinputkan melalui keyboard menjadi nilai jam, menit dan detik

PROGRAM KonversiDetik;
USES CRT; {Mendeklarasikan pemakaian unit CRT}VAR
Jam : 0 .. 23;
menit,detik : 0 .. 59;
jmldetik,sisadetik : longint;
BEGIN {Awal program utama}
clrscr;
writeln(‘****************************************’);
writeln(‘** PROGRAM KONVERSI JUMLAH DETIK **’);
writeln(‘****************************************’);
writeln;writeln;
{Awal proses input}
write(‘Masukan Lama percakapan di Wartel (dalam DETIK) ‘);
readln(jmldetik);writeln;
{Proses konversi jumlah detik}
jam := jmldetik div 3600;
sisadetik := jmldetik mod 3600;
menit := sisadetik div 60;
detik := sisadetik mod 60;
{Proses output}
writeln(‘Anda berbicara = ‘,jam,’ jam ‘,menit,’menit’,detik,’ detik’);
writeln;
END.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: