Conversion

oook -  
 oook -
Bonjour,

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.
A voir également:

1 réponse

Utilisateur anonyme
 
Bonjour

Si sec = 4752
h.hh <-- sec Div 3600
h.hh vaut 1.32 ou 1 si div est la division entière
 sec <-- 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 19
   sec <-- sec Mod 60
h.ss <-- sec
qui revient à
h.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
0
oook
 
Merciii pour votre réponse.
pour l’entête de la fonction, est ce que j'ai le droit d'utiliser "var" dans les paramètre formels d'une fonction? car généralement " var " est utilisé avec les procédures .
0
Utilisateur anonyme
 
Heu......
0
oook
 
??
0
Utilisateur anonyme
 
Je suis autodidacte, du coup je n'ai jamais suivi de cours d'algorithmes et comme il semble que c'est un peu comme chacun veut et bien je ne sais quoi te répondre.
0
oook
 
pas de soucis, je vais chercher encore.. merci beaucoup pour votre réponse :)
0