Program untuk membuat selisih waktu di Tubo Pascal

Asslmkm ikhwan sekalian..jumpa lagi dgn sy..walau agak lama baru posting artikel..pada pembahasan kali ini masih menyangkut ttg turbo pascal....

yah, kali ini saya akan coba membuat program untuk melihat selisih waktu..cukup rumit sih ane buatnya, ya sekitar seharian buatnya. langsung saja ikhwan..nii programnya


program selisih_waktu;
uses crt;
var
dtk_msk, mnt_msk, jam_msk: byte;
dtk_klr, mnt_klr, jam_klr: byte;
konv_dtk_msk: integer;
konv_dtk_klr: integer;
selisih_dtk, selisih_mnt, selisih_jam: integer;
selisih_sisa_dtk, selisih_sisa_mnt: integer;
label
input_ulang_masuk, input_ulang_keluar;
begin
clrscr;
     input_ulang_masuk:
     write('Jam masuk (0 sampai dengan 23)= ');
     readln(jam_msk);
     write('Menit masuk (0 sampai 60)= ');
     readln(mnt_msk);
     write('Detik masuk (0 sampai 60)= ');
     readln(dtk_msk);
     If (jam_msk >= 24) or (mnt_msk >=60) or (dtk_msk >=60) then
begin
     writeln('ULANGI LAGI');
     Goto input_ulang_masuk;
end;
writeln;
konv_dtk_msk := dtk_msk + (mnt_msk*60) + (jam_msk*3600);
input_ulang_keluar:
     write('Jam keluar (0 sampai 23)= ');
     readln(jam_klr);
     write('Menit keluar (0 sampai 60)= ');
     readln(mnt_klr);
     write('Detik keluar (0 sampai 60)= ');
     readln(dtk_klr);
     if (jam_klr >=24) or (mnt_klr >=60) or (dtk_klr >=60) then
begin
     writeln('ULANGI LAGI');
     goto input_ulang_keluar;
end;
writeln;
if jam_klr < jam_msk then jam_klr := jam_klr +24;
konv_dtk_klr := dtk_klr + (mnt_klr*60) + (jam_klr*3600);
selisih_dtk := konv_dtk_klr - konv_dtk_msk;
selisih_mnt := selisih_dtk div 60;
selisih_jam := selisih_dtk div 3600;
selisih_sisa_mnt := selisih_mnt - (selisih_jam*60);
selisih_sisa_dtk := selisih_dtk - (selisih_mnt*60);
writeln('selisih waktu= ',selisih_jam,' jam',selisih_sisa_mnt,' menit ',selisih_sisa_dtk,' detik');
writeln;
readkey;
end.

Ok..itu dia programnya,semoga bermanfaat buat ikhwan sekalian,,, untuk dapat berita teraktual silahkan foolow in my blog..key,,wassalm