Conversion
Bonjour,
je veux créer une fonction qui permet de convertir un nombre de seconde en heure :
sachant que " Heure " est déclaré au début en tant que enregistrement .
SVP, qui peut me dire est ce que ma solution est correcte ou non.
je veux créer une fonction qui permet de convertir un nombre de seconde en heure :
Fonction SecondesEnHeure(Var sec : entier) :Heure
Début
Var h : heure
h.hh <-- sec Div 3600
sec <-- sec Mod 3600
h.mm <-- sec Div 60
sec <-- sec Mod 60
h.ss <-- sec
SecondesEnHeure <-- h
Fin
sachant que " Heure " est déclaré au début en tant que enregistrement .
SVP, qui peut me dire est ce que ma solution est correcte ou non.
1 réponse
-
Bonjour
Si sec = 4752h.hh <-- sec Div 3600
h.hh vaut 1.32 ou 1 si div est la division entièresec <-- sec Mod 3600
sec vaut maintenant 1152 (perso j'aurais prévu une autre variable, car tu perds la donnée intiale)h.mm <-- sec Div 60
h.mm vaut 19,2 ou 19sec <-- sec Mod 60
qui revient à
h.ss <-- sech.ss <-- sec Mod 60
h.ss vaut 12.
On vérifie 12 + 60 *19 + 3600 * 1 vaut bien 4752
Ca marche.
Quand j'étais petit, la mer Morte n'était que malade.
George Burns
