Friday, July 5, 2013

Program PAscal Ubah Detik ke Jam, Menit dan Detik

program Ubah_detik;
{I.S. : }
{F.S. : }

var
     jam,menit,detik,sisa,jml_detik : integer;

begin
     writeln('INPUT');
     writeln('------');
     write('Masukan sejumlah detik : ');readln(jml_detik);
     jam   := jml_detik div 3600;
     sisa  := jml_detik mod 3600;
     menit := sisa div 60;
     detik := sisa mod 60;
     writeln;
     writeln('OUTPUT');
     writeln('------');
     writeln(jam,' jam ',menit,' menit ',detik, ' detik ');
     readln;
end.

0 comments: