Discussion :

[hammouch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[krachik]

Bonjour
pour commencer tu pourrais mettre les balises code et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,
@+

[Loceka]

Et déclare toutes tes variables

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

[droggo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fassou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Dr.Who]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;