Programación General > Pascal

 Buscaminas

(1/2) > >>

Xtr:
hola! bueno pues aqui he hecho un pequeño jueguecillo mundialmente conocido por todos..........el BuScAmInAs !!!!
:D:P:jumpie:

todavia no esta perfeccionado, la presentacion....:P
pero el codigo creo que esta bastante bien
jejejeje
bueno, espero que os guste...:good:

JPVM:
Alguien sabe como puedo hacer el buscaminas en pascal, no tiene que ser necesariamente en modo grafico

Enko:
Este juago es bastante sencillo.Es así:
     
1: Tienes que crear una matriz de por ejemplo de 10x10 de tipo Boolean o bien de tipo Entero.  Te sugiero boolean es más prolijo.
    Como sabrás la variable boolean puede tomar dos valores : True o false, Hay mina, No hay mina.
     Tu campo minado sería:

--- Código: Text ---        CampoMinado :  array[0..9,0..9] of Boolaen;       puedes hacer tambien array[1..10,1..10] es lo mismo pero es mejor la    
     anterior, más rapida.

para minar tu campo tendrias que utilizar la funcion Random(no te olvides que antes de usarla tendrias que  utilizar el procedimiento Randomize;)


--- Código: Text ---  Randomize;  for I:=0 to 9 do     begin         for J:=0 to 9 do              begin                  Entero:=Random(2);                   case Entero  of                          0: CampoMinado[I,J] := False;                         1: CampoMinado[I,J] := True;                    end; { del case}               end;        end;  
asi lla tienes un campo minado. Nota que Tendras que declarar la variable Entero como un Integer.esta ultima variable es un Auxiliar.

Luego tendras que preguntar al usuario cordenadas ( X,Y por ejemplo)de la forma que quieras.
y aser esta comprobacion :

--- Código: Text ---  if CampoMinado[X,Y] = True then   {hay Mina}else {no la hay}  
Bueno espero que esto te de un pantallazo para saber de donde empezar.
La funcion Random y Randomize se encuentran en la librería CRT.

Enko:

--- Citar ---CODE 

Randomize;
 for I:=0 to 9 do
    begin
        for J:=0 to 9 do
             begin
                 Entero:=Random(2);
                  case Entero  of
                        0: CampoMinado[I,J] := False;
                        1: CampoMinado[I,J] := True;
                   end; { del case}
              end;
       end;
 

--- Fin de la cita ---

en este código el nivel del buscaminas es de un 50%. La mitad de minas que de vacios.

para aumentar los vacios hacé lo siguiente:
 
<!--xc1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>XCODE </td></tr><tr><td id='XCODE'><!--exc1-->
Randomize;
 for I:=0 to 9 do
    begin
        for J:=0 to 9 do
             begin
                 Entero:=Random(10);
                  case Entero  of
                        0: CampoMinado[I,J] := False;
                        1: CampoMinado[I,J] := False;
                        3: CampoMinado[I,J] := False;
                        4: CampoMinado[I,J] := False;
                         ............................................
                        9: CampoMinado[I,J] := True;
                  end; { del case}
              end;
       end;
<!--xc2--></td></tr></table><div class='postcolor'><!--exc2-->

Asi tendrás un 10% de minas.

elkin:
hola! necesito el pseudocodigo del buscaminas ya que lo tenia hecho pero se le fue el disco a la compu y  no lo guarde en un disquet lo necesito pronto.
gracias espero su respuesta

Navegación

[0] Índice de Mensajes

[#] Página Siguiente