Sebenarnya ini hanya soal-soal yang ada di blog guru saya, Pak Agus Riyanto. Soal tersebut di posting untuk latihan siswa dalam menghadapi ulangan praktek. Woke langsung saja kita kerjakan..
Soal pertama
Buat program untuk mengkonversi detik menjadi jam.
Contoh
input
3600
output
1 jam 0 menit 0 detik
pembahasan : sederhana saja, jumlah jam adalah masukan detik dibagi 3600, kemudian sisa dari pembagian di bagi dengan 60 itu menghasilkan nilai menit, dan yang terakhir sisanya adalah detik. Mari kita ekspresikan di pascal
program converter_jam;
uses crt;
var dt,mnt,jm :integer;
begin
writeln ('Masukkan nilai detik : ');readln(dt);
jm := dt div 3600;
mnt := (dt mod 3600)div 60;
dt := (dt mod 3600) mod 60;
writeln;
writeln ('Jadi hasilnya adalah ',jm,' jam, ',mnt,' menit, ',dt,' detik.');
end.
Ini dia hasilnya
 |
| Pengkodean |
 |
| Dijalankan |
