Selisih Waktu

Program Selisih Waktu 

Oleh : Andri Muchsin

*****************

Program Selisih_Waktu;

uses wincrt;

Type

Jam=array[0..3]of integer;

menit=array[0..3]of integer;

detik=array[0..3]of integer;

var

j:jam;

m:menit;

d:detik;

total_detik1,total_detik2,selisih_detik:integer;

sisa:integer;

Begin

Writeln('Waktu pertama');

Write('jam  : ');readln(j[1]);

Write('menit: ');readln(m[1]);

Write('detik: ');readln(d[1]);

Writeln('Waktu kedua');

Write('jam  : ');readln(j[2]);

Write('menit: ');readln(m[2]);

Write('detik: ');readln(d[2]);

total_detik1:=(j[1]*3600)+(m[1]*60)+d[1];

total_detik2:=(j[2]*3600)+(m[2]*60)+d[2];

Selisih_detik:=total_detik2-total_detik1;

j[3]:=selisih_detik div 3600;

sisa:=selisih_detik mod 3600;

m[3]:=sisa div 60;

d[3]:=sisa mod 60;          

Writeln('selisih waktu pertama dan waktu kedua ',j[3],' jam ',m[3],' menit ',d[3],' detik ');

End.