program exo3;
type
duree = record
h, m, s: integer;
end;
var
a, b: integer;
d, s: duree;
function conv (a: duree): integer;
begin
conv := a.s + a.m * 60 + a.h * 3600;
end; { Fin de
'conv' }
procedure saisie (var a: duree);
var
i: integer;
begin
writeln('Saisir une horaire:');
repeat
writeln('Heure:');
readln(i);
until (i >= 0) and (i < 24);
a.h := i;
repeat
writeln('Minute:');
readln(i);
until (i >= 0) and (i < 60);
a.m := i;
repeat
writeln('Seconde:');
readln(i);
until (i >= 0) and (i < 60);
a.s := i;
end; { Fin de
'saisie' }
begin
writeln('Exercice 3: http://www.Software-DS.com');
writeln('Conseil: Think Different :-)');
writeln('Si vous voulez calculer des grandes durees,
utilisez des entiers long ! (longint)');
writeln;
writeln('Votre premiere horaire:');
saisie(d);
writeln;
writeln('Votre deuxieme horaire:');
saisie(s);
a := conv(d);
b := conv(s);
a := abs(a - b);
{ on a la duree en seconde :-( }
writeln;
writeln('La duree en seconde : ', a : 0);
d.h := a div 3600;
{ Calcul des heures }
a := a - (d.h * 3600);
d.m := a div 60; {
Calcul des minutes }
d.s := a - (d.m * 60);
{ Calcul des
secondes }
writeln;
writeln('La duree: ', d.h : 0, ' h: ', d.m : 0, ' m: ', d.s
: 0, ' s');
writeln;
writeln('©2001 All Rights Reserved to
www.Software-DS.com');
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
16/10/01 }
end.
|