Erreur ';' attendu mais 'until' trouvé

Version imprimable

Bonjour,

pourquoi cette partie de mon programme ne marche-t-elle pas ???? :calim2:

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
27
28
29
30
31
32
33
34
35
36
37
program collection;
uses wincrt;
var
 
ch:string;
 
 
function valide(ch:string):boolean;
var
ok:boolean;
i:integer;
begin
i:=2;ok:=true;	
Repeat
	if ord(ch[1]) in[65..91]  then 
        begin
        if   (ch[i] <> 'é')  and (ch[i]<>'è')and (ch[i]<>'à')  then 
           begin 	
	        i:=i+1;
	        ok:=true;
	    end else 
	    begin
	    ok:=false;
end;	      
 
      until (i>length(ch)) or (ok=false);
        valide:=ok;
end;
 
 
begin
Repeat
 
	WriteLn('donner le nom du personnage trouvé dans le paquet num1');
	readln(ch);
until  valide(ch);
end.

même si l'indentation est libre en Pascal, elle aide beaucoup le développeur

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
27
28
29
30
31
32
33
34
35
36
37
 
program collection;
 
uses 
  wincrt;
 
var
 ch:string;
 
 function valide(ch: string): Boolean;
var
  ok: Boolean;
  i: Integer;
begin
  i := 2;
  ok := true;	
  repeat
    if ord(ch[1]) in [65..91]  then 
    begin
      if (ch[i] <> 'é')  and (ch[i]<>'è') and (ch[i] <> 'à')  then 
      begin 	
        i := i + 1;
        ok := true;
      end else begin
        ok := false;
      end;	       
 
    until (i > length(ch)) or (ok = false);
    valide := ok;
end;
 
begin
  repeat
    WriteLn('donner le nom du personnage trouvé dans le paquet num1');
    ReadLn(ch);
  until valide(ch);
end.

Sous cette forme, on voit de suite qu'il y a un décalage entre repeat et until, il manque un end pour le begin de la ligne 19

Citation:

Envoyé par erico552

pourquoi cette partie de mon program ne marche pas ????! pas :calim2:

Parce qu'il n'a pas de jambes ? :ptdr:

Citation:

Envoyé par Paul TOTH

même si l'indentation est libre en Pascal, elle aide beaucoup le développeur

Sous cette forme, on voit [tout] de suite qu'il y a un décalage entre repeat et until, il manque un end pour le begin de la ligne 19 6 maintenant

Je dirais même plus, pour bien respecter l'alignement vertical :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 begin i := 2; ok := true; repeat if ord(ch[1]) in [65..91] then begin if (ch[i] <> 'é') and (ch[i]<>'è') and (ch[i] <> 'à') then begin i := i + 1; ok := true; end else ok := false; until (i > length(ch)) or (ok = false); valide := ok; end;