Ce programme en Pascal lit t1 et t2 et dit si t1 est inférieur < ou égal = ou supérieur > à t2, en

passant par la conversion en secondes.

voici le code:

PROGRAM tp_comp;

TYPE

{ cf 1) }

VAR

t1, t2 : temps_t;

ns1, ns2 : integer;

BEGIN

{ Lecture t1 et t2 ... }

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

ns1 := t1.h * 3600 + t1.m * 60 + t1.s;

ns2 := t2.h * 3600 + t2.m * 60 + t2.s;

if (ns1 < ns2)

then writeln ('t1 < t2')

else if (ns1 > ns2)

then writeln ('t1 > t2')

else writeln ('t1 = t2');

END