Conversion

Fermé
oook - Modifié par baladur13 le 13/02/2017 à 19:00
 oook - 13 févr. 2017 à 20:10
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

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
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
13 févr. 2017 à 18:39
Heu......
0
??
0
Utilisateur anonyme
13 févr. 2017 à 18:58
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
pas de soucis, je vais chercher encore.. merci beaucoup pour votre réponse :)
0