Discussion :

[nwar_]

voici mon code, cela continue de me dire qu'il y a une erreur ligne 9 mais je ne la trouve pas quelqu'un peut m'aider s'il vous plait ?

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 montre_digital ;
Uses crt ;
Var 
    heure,minute,seconde : integer ;
Begin
    clrscr ;
    If seconde = 60 Then
        seconde = 0
        If seconde = 0 Then
            minute :  = minutes+1 ;
    If minute=60 Then
        minute = 0 ;
    If (seconde=59) And (minute=59) Then
        heure :  = heure+1 ;
 
    writeln() ;
    writeln('                                     montre digital') ;
    writeln() ;
    writeln() ;
    writeln() ;
    writeln() ;
    writeln('                                            ,heure, : ,minute, : ,seconde : ') ;
    delay(1000) ;
Until heure > 25 ;
readln;
End.

[acaumes]

Bonjour,

Deux choses:

1/ J'aurais écrit

Code :

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

1
2
If seconde = 60 Then
seconde := 0;

2J'aurais écrit

Code :

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

1
2
If minute=60 Then
minute := 0 ;

NB: Il y a les balises code pour ton code.
On n'a aucune idée du message d'erreur mais je subodore qu'il râle à cause du point virgule...

Cordialement

[nwar_]

tout d'abord, merci cependant ca n'a fait que déplacé le probleme qui arrive maintenant a la ligne 11, je sais que j avais fait une petit manipulation mais je ne sais plus laquelle

[Roland Chastain]

Bonjour !

1° Il ne faut pas d'espace entre : et =.

2° Il manque le repeat qui va avec until.