Soit t1 et t2 deux temps_t.

Faire un programme qui lit t1 et t2 et qui dit si ils sont egaux.



Voici le code:

PROGRAM tp_egaux;

TYPE

{ cf 1) }

VAR

t1, t2 : temps_t;

egal : boolean;

BEGIN

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

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

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

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

{ Teste si les temps sont egaux }

egal := (t1.h = t2.h) and (t1.m = t2.m) and (t1.s = t2.s);

writeln ('Egalite : ', egal);

END