Menghitung Selisih Waktu dalam Jam dan Menit

Menghitung Selisih Waktu dalam Jam dan Menit

Buat program menghitung selisih waktu (dalam jam dan menit) berdasarkan jam mulai (jam,menit) dengan jam selesai (jam,menit). Data yang diINPUT adalah jam dan menit mulai, jam dan menit selesai. Format jam yang dimasukkan bisa berupa format 12 jam ataupun 24jam.

Contoh Masukan dan Keluaran:         

Mulai (jam,menit)	Selesai (jam,menit)	Lama (menit)	Lama (jam,menit)
10:30	12:10	100	1 jam 40 menit
10:30	1:40	190	3 jam 10 menit

Jawab:

uses crt;

VAR

        ijamstart, imenitstart, imenitstop, ijamstop: Integer;

        itotmenitstart, itotmenitstop, iselangmenit, ijamdurasi: Integer;

        imenitdurasi: Integer;

BEGIN

clrscr;

        writeln('Masukkan Jam Mulai: ');

        readln(ijamstart);

        writeln('Masukkan Menit Mulai: ');

        readln(imenitstart);

        writeln('Masukkan Jam Berhenti: ');

        readln(ijamstop);

        writeln('Masukkan Menit Berhenti: ');

        readln(imenitstop);

        itotmenitstart := ijamstart * 60 + imenitstart;

        itotmenitstop := ijamstop * 60 +imenitstop;

IF (itotmenitstop >= itotmenitstart) THEN

        iselangmenit := itotmenitstop - itotmenitstart

ELSE

        iselangmenit := (12*60) - itotmenitstart + itotmenitstop;

        writeln('Selisih total dalam menit: ', iselangmenit);

        writeln('Selisih ', iselangmenit div 60, 'Jam,', iselangmenit mod 60, 'Menit');

        readln;

end.