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