probleme pascal

[invite088788d1]

Enoncé:

ecrire un programme qui permet de saisir une valeur horaire h de type chaine de caractere sous forme suivante:"hh:mm:ss" puis de verifier est que c'est une heure valide ensuite de la convertir en une seule valeur en seconde:
exemple:
H="01:10:20" le programme affiche . le nombre de seconde est 4250.
H="01:65:61" le programme affiche heure invalide.

j'ai essayé comme ça mais ça marche pas:
program horaire;
uses wincrt;
var
ch,h,m,s:string;
nb1,nb2,nb3,hh,mm,ss,e:integer ;
nb:longint;
begin
writeln ('donner une heure au format hh:mm:ss');
readln(ch);
h := copy(ch,2,1);
m := copy(ch,2,4);
s := copy(ch,2,7);
val(h,hh,e);
nb1:=3600*hh;
val(m,mm,e);
nb2:=60*mm;
val(s,ss,e);
nb3:=ss;
nb:=nb1+nb2+nb3;
writeln('le de seconde est ',nb);
end.
aidez moi svp c'est tres urgent
-----

[Jack]

Qu'est-ce qui ne marche pas?

Ca donne quoi en mode pas à pas? Tu as essayé de visualiser les variables au fur et à mesure?

[invite088788d1]

ce qui n'a pas marché c'est le saisie de la valeur horaire qui doit etre de type chaine de caractere et sous la forme"hh:mm:ss" et aussi
c'est vrai que le programme est compilé mais le saisie de l'heur n'est pas comme je voulait.
si tu peux faire le saisie de l'heure je serai tres reonnaisant

[invite0bbe92c0]

ce qui n'a pas marché c'est le saisie de la valeur horaire qui doit etre de type chaine de caractere et sous la forme"hh:mm:ss" et aussi
c'est vrai que le programme est compilé mais le saisie n'est de l'heur n'est pas comme je voulait.

En clair ça veut dire quoi ????

Et "ça ne marche pas" n'est pas un message d'erreur valide en général.

Puis merci d'utiliser les balises CODE , sinon c'est illisible.

[A voir en vidéo sur Futura]

[Jack]

+1 pour les balises code.

ce qui n'a pas marché c'est le saisie de la valeur horaire qui doit etre de type chaine de caractere et sous la forme"hh:mm:ss"

J'aimerais connaitre ce qui te fait dire que ça n'a pas fonctionné car pour moi, ça me semble tout à fait correct.

En passant, tu devrais nous dire quel compilateur tu utilises

[invite0bbe92c0]

En passant, tu devrais nous dire quel compilateur tu utilises

Sauf erreur, ce doit être du Borland Turbo Pascal (le "uses wincrt" est assez caractéristique); un compilo dont la dernière version remonte à 95. Ici d'ailleurs, il devrait mettre "uses CRT" (programme "console").

[invite088788d1]

merci c'est resolu, mais il ya autre chose, quand je saisie l'heure par exemple comme ça:
'12:40:33' le nombre de seconde affiché dans le resulta est negatif??? malgré que j'ai verifé tous???
et ça concerne tous les valeur entre(10 et 23)
avec les autre valeur comme 07 ou 08... le resultat est juste.
j'aimreai connaitre ou est l'erreur la dont???
si tu peux verifié le programme et me dit ou est l'erreur je serai tres reconnaisant
(j'utilise le language pascal)

[Garion]

Ton Integer doit être encodé en 16 bits, avec une valeur maximale de 32768. Comme le résultat est plus grand, il passe dans les nombres négatifs.
Utilise un Word (qui va jusqu’à 65535) ou un Longint (je ne sais pas si c'est dispo sur ton compilateur) qui lui peut aller jusqu’à 2 milliards.