Soal: 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;

var

        jam1, jam2, menit1, menit2, detik1, detik2, selisih: real;

begin

clrscr;

        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) then

                selisih := detik1 - detik2

        else

                selisih := detik2 - detik1;

                readln;

        writeln('Selisih nya Dalam detik adalah: ', selisih:2:0,'detik');

        readln;

end.