Konversi Jam ke Detik

Program Konversi_Jam_Jadi_Detik ;
Uses wincrt ;
Var Jam, Menit, Detik, Hasil : longint ;
Begin
     Writeln    ('                              SELAMAT  DATANG') ;
     Writeln  ;
     Writeln    ('          Ini Adalah Program Untuk Mengkonversikan Jam Menjadi Detik') ;
     Writeln    ('--------------------------------------------------------------------------------') ;
     Writeln  ;
     Writeln    ('Silahkan masukkan berapa jam yang ingin dikonversi') ;
     Writeln    ('(Batas angka yang boleh dimasukkan mulai dari 0 sampai 24)') ;
       Readln     (Jam) ;
     Writeln  ;
     Writeln    ('Silahkan masukkan berapa menit yang ingin dikonversi') ;
     Writeln    ('(Batas angka yang boleh dimasukkan mulai dari 0 sampai 59)') ;
       Readln     (Menit) ;
     Writeln  ;
     Writeln    ('Silahkan masukkan berapa detik yang ingin dikonversi') ;
     Writeln    ('(Batas angka yang dapat dimasukkan mulai dari 0 sampai 59)') ;
       Readln     (Detik) ;
     Hasil:=(Jam*3600+Menit*60+Detik) ;
     Writeln  ;


            If Jam > 24 then
               Writeln ('Jam yang Anda masukkan salah, tolong periksa kembali') ;
            If Menit > 59 then
               Writeln ('Menit yang Anda masukkan salah, tolong periksa kembali') ;
            If Detik > 59 then
               Writeln ('Detik yang Anda masukkan salah, tolong periksa kembali') ;
               If Jam < 25 then
               If menit < 60 then
               If detik < 60 then
                    Writeln    ('Jadi setelah dikonversi hasilnya adalah  ' ,hasil, ' detik') ;
                                    

     Writeln  ;
     Writeln  ;
     Writeln  ;
     Writeln  ;
     Writeln    ('Terimakasih Telah Menggunakan Program Ini') ;
     Writeln    ('Semoga Dapat Bermanfaat Bagi Anda.');
End.

Tweet