Soit t un temps_t.



On va faire un programme qui lit t et qui affiche le nombre de secondes ns ecoulees depuis 0 :0 :0



Le nombre de seconde ecoulees est ns := t.h * 3600 + t.m * 60 + t.s;



On s'apercoit que 23 :59 :59 compte 86399 secondes, on peut donc bien declarer ns comme entier, car maxint ' 2 milliards sous Delphi.



Sous Turbo Pascal, vu que maxint = 32767, on aurait d^u declarer ns comme un reel, puis faire writeln ('ns : ', ns:5:0); (5 chires en tout, dont 0 apres la virgule).

PROGRAM nb_sec;

TYPE

{ cf 1) }

VAR

t : temps_t;

ns : integer;

BEGIN

write ('Temps (h m s) : ');

readln (t.h, t.m, t.s);

{ calcule le nb de sec depuis 0:0:0 }

ns := t.h * 3600 + t.m * 60 + t.s;

writeln ('ns : ', ns);

END