Conversion de secondes en heures

Version imprimable

Enoncé:
Écrire un programme Pascal qui lit une durée T en secondes et la traduit en heures, minutes et secondes puis affiche le résultat.

Exemple : T = 5000 s ===> 1 : h 23 : mn 20 : s

Réponse :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Program ConversionHeure; uses wincrt; var H, S, M : integer Begin Repeat write ('donner le nombre de scondes :'); readln (sec); until (sec > 0) H := sec DIV 3600 HR := sec MOD 3600 M := HR DIV 60 S := HR MOD 60 write ('le résultat est :', H h, M mn, S s) end.
=======> je voulais juste savoir si c'est correct ou pas?????? merci!!!!!!
j'ai pas utilisé des constantes, j'ai juste utilisé les variables.

25/11/2007, 13h24
krachik
Bonjour
pour commencer tu pourrais mettre les balises code et
Code:

1 2 write ('le résultat est :', H h, M mn, S s)
si tu veux un bon affichage tu dois penser à refaire ça mais c'est juste pour l'esthetique(en meme temps ça risque pas de compiler)
Sinon dans le fond tu as l'algo qui faut pour que ça marche maintenant en pascal ton code ne compilera meme pas une seconde car il manque des ; un peu partout,des variables non déclarées
Evites de mettre les majuscules n'importe comment dans le code sinon ça fait pas beau(Pascal ne respecte pas la casse)
Et pour finir tu peux aussi transformer ce code en une fonction qui pour but de convertir des secondes en h m s,
@+
25/11/2007, 15h42
Loceka

Et déclare toutes tes variables :)

Sinon dans l'idée c'est ça.

Fui,

Plusieurs remarques, qui reprennent les réponses précédentes.

- Tu nous demandes si c'est correct. Tu sais bien que non, puisque ton programme ne peut pas compiler tel qu'il est.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Program ConversionHeure; uses wincrt; var H, S, M : integer Begin Repeat write ('donner le nombre de scondes :'); readln (sec); until (sec > 0) H := sec DIV 3600 HR := sec MOD 3600 M := HR DIV 60 S := HR MOD 60 write ('le résultat est :', H h, M mn, S s) end.
- En Pascal, il faut obligatoirement éclarer toutes les variables.

Et j'y ajoute :

- les valeurs constantes, comme 3600 et 60, devraient être déclarées comme constantes. C'est une bonne habitude à prendre.

- prends l'habitude de présenter ton code correctement (indentation, commentaires...). Tu verras rapidement que c'est utile.

Sinon, l'algorithme est bon. :)

ConvHMS

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program ConversionHeure;
uses wincrt; 
var
  H, S, M, sec : integer;
 
Begin 
  Repeat 
    writeln ('Donner le nombre de scondes :');
    readln (sec);
  until (sec > 0);
 
H := sec DIV 3600 ;
M := sec MOD 3600 DIV 60 ;
S := sec MOD 3600 MOD 60 ;
 
write ('le résultat est : ',H,'h:',M,'mn:',S,'s')
 
end.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Program ConversionHeure;
 
uses wincrt; 
 
procedure SecondsToHMS(const aSec: LongWord; var vH, vM, vS: word);
begin
  vS := aSec mod 60;
  vM := (aSec div 60) mod 60;
  vH := aSec div 3600;
end;
 
var
  H, S, M: word;
  Sec : LongWord; 
Begin 
  Sec := 0;
  Repeat 
    write('Donnez le nombre de secondes : ');
    readln(sec);
  until sec > 0;
 
  SecondsToHMS(Sec, H, M, S);
 
  writeln('Le résultat est : ',H,' heures ',M,' minutes et ',S,' secondes');
 
end.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure MilliSecondsToHMSZ(const aMilliSec: LongWord; var vH, vM, vS, vZ: word);
begin
  vZ := aMilliSec mod 1000;
  vS := (aMilliSec div 1000) mod 60;
  vM := (aMilliSec div 60000) mod 60;
  vH := aMilliSec div 3600000;
end;
 
procedure SecondsToHMS(const aSec: LongWord; var vH, vM, vS: word);
begin
  vS := aSec mod 60;
  vM := (aSec div 60) mod 60;
  vH := aSec div 3600;
end;