Program konversi waktu

Program pascal konversi waktu v1

codingnya:

Program Konversi_Waktu;

Uses crt;

Var j,m,d,h:integer;

begin

Writeln('Program Konversi Waktu');

Writeln('======================');

Writeln;

Write('Masukkan 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.

Jika ingin mengubahnya ke satuan menit maka j*3600 tinggal diganti j*60 + m + d/60

silahkan dihitung sendiri untuk konversi ke satuan lainnya ya sob

Program Konversi v2

codingnya:

Program Konversi_Waktu1;

Uses Crt;

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');

readln;

end.