SoloCodigo

Programación General => Pascal => Mensaje iniciado por: Asafita en Domingo 4 de Mayo de 2008, 05:07

Título: Me Pueden Asesorar En Mi Programa
Publicado por: Asafita en Domingo 4 de Mayo de 2008, 05:07

Hola, lo que pasa es que el programa de BUSCAMINAS que intento hacer me marca errores, solo busco que me asesoren.

Se los agradecería mucho.

Título: Re: Me Pueden Asesorar En Mi Programa
Publicado por: Enko en Domingo 4 de Mayo de 2008, 17:49

Código: Text

1.  
2. for ren:=1 to 3 do
3.   for col:=0 to 4 do
4.    begin
5.      if arr[ren,col]=666 then
6.      begin
7.  
8.      if (arr[ren,col+1]<>666) and (col<=3) then arr[ren,col+1]:=arr[ren,col+1]+1;
9.      if (arr[ren,1-1]<>666) and (col)=)2 then arr[ren,col-1]:=arr[ren,col-1]-1;
10.      end;
11.    end;
12. end;
13.  
14.  

Código: Text

1.  
2. if (arr[ren,1-1]<>666) and (col)=)2 then arr[ren,col-1]:=arr[ren,col-1]-1;
3.  
4.  

está mal hecha la condicion:

Citar

and (col)=)2

Deberia ser and (col=2) o (col >= 2) o (col <=2);

Si coriges eso, compila perfectamente.