Program Menghitung selisih Waktu Menggunakan Bahasa Pascal

Output Program Menghitung Selisih Waktu
pada artikel sebelumnya, Central IT Aceh telah membagikan source code program konversi waktu, nah sekarang kita aceh akan berbagi source code program menghitung selisih waktu. chek this out :)


Program Menghitung_Selisih_Waktu;

Uses WinCrt;

Var j,m,d,h,j1,m1,d1,h1,hj,hm,sl,sisa,sisa1:longint;

BeginWriteln('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);
endelsebeginhj:=0;

sisa:=sl;

end;

if (sisa/60)>0 then

begin

hm:=sisa div 60;s

isa1:=sisa-(hm*60);

endelsebeginhm:=0;

sisa1:=sisa;

end;

Writeln;

Writeln('Selisih Waktu: ',hj,' jam ',hm,' Menit ',sisa1,' Detik');
End.

Ouptut Program Konversi Waktu

jika ada pertanyaan, anda bisa bertanya pada box komentar di bawah, thanks

Wassalam, Salam Setia BRS | Sharing information