Beranda > Komputer > Program Konversi Waktu 1 – Pascal

Program Konversi Waktu 1 – Pascal


Program konversi waktu kali ini kebalikan dari Program konversi waktu yang telah saya tuliskan sebelumnya. Kalau pada program sebelumnya mengubah jam, menit, dan detik menjadi DETIK, program kali ini kamu harus menuliskan jumlah detiknya kemudian akan dikonversikan ke dalam jam, menit dan detik.

Yang perlu kamu ketahui untuk membuat program ini hanya 1 menit = 60 detik, dan 1 jam = 3600 detik.

Berikut kode konversi waktu :

Program Konversi_Waktu1;
Uses WinCrt;
var j,m,d,dm,sisa,sisa1:integer;
begin
Writeln(‘Program Konversi Waktu 1’);
Writeln(‘========================’);
Writeln;
Write(‘Masukkan Jumlah Detik : ‘);readln(dm);
if (dm/3600)>0 then
begin
j:=dm div 3600;
sisa:=dm-(j*3600);
end
else
begin
j:=0;
sisa:=dm;
end;
if (sisa/60)>0 then
begin
m:=sisa div 60;
sisa1:=sisa-(m*60);
end
else
begin
m:=0;
sisa1:=sisa;
end;
d:=sisa1;
Writeln;
Writeln(‘Hasil => ‘,j,’ jam ‘,m,’ menit ‘,d,’ detik’);
end.

Copy kode diatas kemudian paste di TPW punya kamu.

Berikut gambar program jadinya

Waktu1

  1. Belum ada komentar.
  1. No trackbacks yet.

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: