program konversi detik ke jam

Program Konversi_Detik_Jadi_Jam_Menit_Detik ;
Uses wincrt  ;
Var A, B, Detik, Menit, Jam :longint ;
Begin
     Writeln  ('                              SELAMAT  DATANG                                   ') ;
     Writeln ;
     Writeln  ('    Ini Adalah Program Untuk Mengkonversikan Detik Menjadi Jam, Menit, Detik    ') ;
     Writeln  ('--------------------------------------------------------------------------------') ;
     Writeln ;
     Writeln  ('Silahkan masukkan berapa detik yang ingin dikonversikan') ;
     Readln   (A) ;
       Jam  :=trunc (A/3600) ;
       B    :=A      mod 3600 ;
       Menit:=trunc (B/60) ;
       Detik:=A      mod 60 ;
       Writeln ;
       Writeln ;
     Writeln  ('Jadi hasilnya adalah') ;
     Writeln ;
     Writeln   (Jam, ' Jam  ', Menit, ' Menit  ', Detik, ' Detik') ;
     Writeln ;
     Writeln ;
     Writeln ;
     Writeln  ('Terimakasih Telah Menggunakan Program ini') ;
     Writeln  ('Semoga Dapat Bermanfaat Bagi Anda.') ;
End.

Tweet