Tuesday, May 3, 2011

Program Menghitung Selisih Waktu

Program Menghitung_Selisih_Waktu;
Uses WinCrt;
Var j,m,d,h,j1,m1,d1,h1,hj,hm,sl,sisa,sisa1:longint;
Begin
  Writeln('Program Menghitung Selisih Waktu');
  Writeln('================================');
  Writeln;
  Write('Waktu ke-1 jam   : ');readln(j);
  Write('Waktu ke-1 Menit : ');readln(m);
  Write('Waktu ke-1 Detik : ');readln(d);
  Writeln('================================');
  Write('Waktu ke-2 jam   : ');readln(j1);
  Write('Waktu ke-2 Menit : ');readln(m1);
  Write('Waktu ke-2 Detik : ');readln(d1);
  h:=(j*3600)+(m*60)+d;
  h1:=(j1*3600)+(m1*60)+d1;
  sl:=h1-h;
  if (sl/3600)>0 then
    begin
     hj:=sl div 3600;
     sisa:=sl-(hj*3600);
    end
  else
    begin
     hj:=0;
     sisa:=sl;
    end;
  if (sisa/60)>0 then
    begin
     hm:=sisa div 60;
sisa1:=sisa-(hm*60);
    end 
  else
    begin
     hm:=0;
     sisa1:=sisa;
    end;
  Writeln;
  Writeln('Selisih Waktu: ',hj,' jam ',hm,' Menit ',sisa1,' Detik');
End.
Outputnya:

0 comments:

Post a Comment