Programación General > Pascal
The Life For A Ship (buscaminas)
Enko:
--- Cita de: "obandomarco" --- ademas del procedimiento de guardar que me diste, puedo usar cualquiera??; para que el usuario busque las cordenadas cuando ya este la matriz lista que procedimiento puedo utilizar...
--- Fin de la cita ---
Lees por teclado la coordenada X, despues la Y..... Luego verificas que es lo que hay en Mar[X,Y] y sumas o bajas puntos segun sea el resultado.
obandomarco:
disculpa la molestia, pero todavia tengo el error 26:type of mismatch en procedimiento mezclar; no me deja poner la coma en intercambiar(mar[i,j],mar[ni,nj]);
obandomarco:
para moverme puedo usar esto?
procedure mover;
writeln('Digite el numero de fila en que desee moverse');
readln(i);
writeln('Digite el numero de fila en que desee moverse');
readln(j);
recorro la matriz y debe haber algun comando que me lleve "gotoxy", este sirve?
Enko:
--- Cita de: "obandomarco" --- para moverme puedo usar esto?
procedure mover;
writeln('Digite el numero de fila en que desee moverse');
readln(i);
writeln('Digite el numero de fila en que desee moverse');
readln(j);
recorro la matriz y debe haber algun comando que me lleve "gotoxy", este sirve?
--- Fin de la cita ---
--- Código: Text --- case Mar[i,j] of NADA: begin {lo que tengas que hacer por si est'a vacia} end; TIBURON: begin {lo que tengs que hacer si es un tiburon} end; BARCOS: begin {lo que tengas que hacer si hay un barco} end;end;
para sacar el type mismatch, pone que todo sea Integer, y saca los tipos Byte (seguramente es eso, en el codigo que te pase lo hab'ia coregido y compilo)
obandomarco:
perfecto ya lo pude correr pero no me lo esta mezclando, queda asi
1111111111
2222200000
0000000000
0000000000
0000000000
0000000000
0000000000
0000000000
0000000000
0000000000
como hago para tapar todos con asteriscos pero que no pierdan las caracteristicas para que el usuario no pueda verlos???
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa