Selisih 2 Waktu
Buat program untuk menghitung selisih waktu antara 2 waktu, dengan masukan waktu adalah dalam bentuk (jam, menit, detik) dan keluaran dalam detik!
Contoh tampilan program:
INPUT:
Waktu1= 2:30:45
Waktu2= 2:31:20
OUTPUT:
Selisih waktu= 35 detik
Jawab:uses crt;varjam1, jam2, menit1, menit2, detik1, detik2, selisih: real;beginclrscr;writeln('Masukkan Jam Pertama: ');readln(jam1);writeln('Masukkan Menit Pertama: ');readln(menit1);writeln('Masukkan Detik Pertama: ');readln(detik1);writeln('Masukkan Jam Kedua: ');readln(jam2);writeln('Masukkan Menit Kedua: ');readln(menit2);writeln('Masukkan Detik Kedua: ');readln(detik2);jam1 := jam1 * 3600;menit1 := menit1 * 60;jam2 := jam2 * 3600;menit2 := menit2 * 60;detik1 := jam1 + menit1 + detik1;detik2 := jam2 + menit2 + detik2;writeln('Total detik Pertama adalah: ', detik1);writeln('Total detik Kedua adalah: ', detik2);if (detik1 > detik2) thenselisih := detik1 - detik2elseselisih := detik2 - detik1;readln;writeln('Selisih nya Dalam detik adalah: ', selisih:2:0,'detik');readln;end.
Tidak ada komentar:
Posting Komentar