Discussion :

[Hipou]

Bonsoir
je suis en train de faire un TP en pascal et j'ai une erreur :
" error 85: ";" expected "
cette erreur se pose sur else, je sais bien que avant else il n'y a pas de ; mais je ne sais pas pourquoi cette erreur??
Voilà une partie de mon tpM

Code :

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

1
2
3
4
5
6
7
8
procedure rech(cle:string; pos:integer; p:ptr);
         begin
            writeln('donnez la cle que vous voulez chercher: ');
            readln(cle);
            i:=h(cle);
            if t[i]^.num_ccp=cle then
              pos:=i;    p:=nil           
   else

[Tony_ducrocq]

y a t'il quelque chose derrière le else?

si tu laisse un else tous seul, c'est normale ^^

Code :

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

t^.num_ccp=cle then

l'^ c'est une coquille ou pas?

[krachik]

Bonjour
C'est normal vu que tu as 2 instructions apres ton then

Code :

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

1
2
3
4
5
 
if t[i]^.num_ccp=cle then
      pos:=i;    
      p:=nil           
else

Il faudrait plutot mettre un BEGIN END comme cela

Code :

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

1
2
3
4
5
6
7
 
if t[i]^.num_ccp=cle then
begin
      pos:=i;    
      p:=nil
end           
else

Cordialement