Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

Exercice 3

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.





Haut de la page - Page précédente - Page générée en 0.00206 sec.
Recherche personnalisée
 

1845022 visiteurs.   ©2001-2023 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité