Programación General > Pascal
The Life For A Ship (buscaminas)
obandomarco:
ya hice lo de las coordenadas para moverme pero necesito, mezclarlos, cubrirlos todos con una asterisco o algo asi(no se como hacerlo), y meterlo dentro de un ciclo para que los vaya descartando hasta que encuentre los barcos o pierda todas las vidas...
Enko:
El procedimiento para mezclar ya te lo había pasado.
(podrías aunque sea tomarte la molestia de ver el código :P )
Para tapar con asteriscos tendrías que tener un matriz a parte que te indique si esa casilla fue abierta.
Las cosa sería que cada jugada que hagas, pongas esa casilla de la matriz a Verdadero, cosa que te indicaría si se puede mostrar y ademas si el jugador ya hizo esa jugada....
--- Código: Text --- CasillasDescubiertas: array[1..10,1..10] of Boolean;
--- Código: Text --- procedure ImprimirMar;var i,j: Integer;for i:=1 to 10 do for J:=1 to 10 do begin if CasillasDescubiertas[i,j] then Write(Mar[i,j], ' ') else Write('* '); if i=10 then WriteLn; end;end;
--- Código: Text --- 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);if CasillasDescubiertas[i,j] then {la jugada ya fue hecha}if not CasillasDescubiertas[i,j] thenbegin CasillasDescubiertas[i,j] := True; {y todas las demas cosas.....}end;[CODE]
Enko:
Por sierto, NO TE ESTOY PASANDO CÓDIGO COMPLETO, tendrás que ADAPTARLO A TUS NECESIDADES VOS MISMO.
Saiyan1:
Hola muchachos.
Como vi que este codigo habia quedado colgado... lo agarré.. y lo terminé.
A ver si no me denuncian por robo de propiedad intelectual.. jeje.
Hace 3 meses y medio que empece a estudiar para analista programador.. asi que con lo que estuve aprendiendo, lo terminé.
Está verificado.. y ya lo jugamos bastante.. jejeje.
Esta bueno.
Enko, si te parece, lo pongo acá... que decis?
Saludos!!!
Navegación
[*] Página Anterior
Ir a la versión completa