Program Pascal Konversi waktu 1


Hai Sahabat Blogger... Bagi yang kuliah Jurusan Sistem Informasi/Manajemen Informasi/Teknik Informatika, pasti tidak asing lagi dengan yang namanya pascal kan ???
Disini saya ingin berbagi contoh-contoh Program Pascal, silahkan bagi yang perlu bisa langsung dicopast script nya :)

Program Konversi waktu 1



Program konversi_waktu1;
Uses wincrt;
var
   Jam , Menit , Detik, Hasil_Detik: integer;
Begin
   writeln;
   writeln (' Program Menghitung Jumlah Detik');
   writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
   write ('  Masukkan Jam   = ') ; readln (jam);
   write ('  Masukkan Menit = '); readln (menit);
   write ('  Masukkan Detik = ') ; readln (detik);
   Hasil_Detik :=(jam*3600) + (menit*60) + (detik*1);
   writeln ('  => Hasilnya     = ',Hasil_detik);
   writeln ('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
 end.
Hasilnya akan tampil seperti gambar berikut !

 Berhasil tidak ?? Jika belum berhasil, atau ada yang Error.. silahkan komentaar saja :)
Terimakasih telah berkunjung ke Blog Saya....

No comments:

Post a Comment