Programalama > PASCAL

Program ZamanFark;
uses crt;
Var
sonuc:longint;
saat1,dakika1,saniye1:longint;
saat2,dakika2,saniye2:longint;
saat,dakika,saniye:longint;

function zaman(a,b,c:longint):longint;
Begin
zaman:=a*3600+b*60+c;
End;

Begin
clrscr;
writeln('İlk Saat Değerleri');

write('Saat = ');read(saat1);
write('Dakika = ');read(dakika1);
write('Saniye = ');read(saniye1);

writeln('İkinci Saat Değerleri');

write('Saat = ');read(saat2);
write('Dakika = ');read(dakika2);
write('Saniye = ');read(saniye2);

sonuc:=zaman(saat1,dakika1,saniyr1)-zaman(saat2,dakika2,saniye2);

saat:= sonuc div 3600;

sonuc:= sonuc - saat*3600;

dakika:= sonuc div 60;

saniye:= sonuc - dakika*60;

writeln('Aradaki fark = ',saat:2,':'dakika:2,':',saniye:2);
readln;
End.