Pascal/Turbo Pascal - :S error

   
Vista:

:S error

Publicado por Avi (9 intervenciones) el 13/01/2008 01:02:31
Perdonar alguien me puede decir que falla o que es necesario en esta estructura para que funcione:
VAR
Cvacio,vacio,i,j,x,y,y2:integer;
BEGIN
FOR i:=2 TO 9 DO
FOR j:=2 DOWNTO 9 DO
BEGIN

y:=-1;
REPEAT
inc(y);
IF matrizz[i,j-y].colr <> matrizz[i,j].colr THEN x:=1;
UNTIL x=1;

y2:=-1;
REPEAT
inc(y2);
IF matrizz[i,j+y].colr <> matrizz[i,j].colr THEN y:=1;
UNTIL y=1;

Gracias por la contestacion y las molestias ;-)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE::S error

Publicado por avi (9 intervenciones) el 13/01/2008 22:18:06
He lo modificado lo anterior pero con poco exito. Este lo he planteado desde otro punto de vista pero la continuacion es la que me da problema ahora.
Si alguien pudiera molestarse en contestar se lo agradeceria.Gracias de todas formas por leerlo no pierdo la esperanza de que alguien me pueda contestar.

Lo que quiero conseguir es que cuando la matriz tenga varios elementos iguales consecutivos los elimine y bajen los superiores creando en ellos elementos aleatorios si ay casillas superiores pero lo unico que ocurre es que la casilla inferior cambie aleatoreamente.

VAR
Cvacio,vacio,i,j,x,y,y2:integer;
BEGIN

FOR j:=9 DOWNTO 2 DO
FOR i:=9 DOWNTO 2 DO
BEGIN
x:=0;
y:=0;
REPEAT
inc(y);
IF (matrizz[i-y,j].colr <> matrizz[i,j].colr) THEN x:=1;
UNTIL x=1;

IF y>=3 THEN
BEGIN
Cvacio:= i-y;
FOR vacio:=i DOWNTO (i-y) DO
BEGIN
IF Cvacio>=0 THEN
BEGIN
matrizz[i,j].colr := matrizz[cvacio,j].colr;
matrizz[Cvacio,j].colr := colores[random(6)+1];
END ELSE matrizz[i,j].colr := colores[random(6)+1];
READLN;
END;
END;
END;
END;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar