• Miércoles 29 de Enero de 2020, 13:07

Autor Tema:  Me Pueden Asesorar En Mi Programa  (Leído 732 veces)

Asafita

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Me Pueden Asesorar En Mi Programa
« en: Domingo 4 de Mayo de 2008, 05:07 »
0
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.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Me Pueden Asesorar En Mi Programa
« Respuesta #1 en: Domingo 4 de Mayo de 2008, 17:49 »
0
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.