practica 7 ejercicio B10, Pascal

practica 7 ejercicio B10

Language: Layout:

program HelloWorld;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CONST - Define las constantes para usar en tiempo de compilacion}
const
   Filas = 10; 
   Columnas = 10;
   barcosmax = 5;
   jugadasmax = 99;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
TYPE - Define los tipos creados por el usuario para usar en tiempo 
de compilacion}
type
    //-----------RANGOS-----------//
    rangoDig = 0 .. 1;     
    rangoFilas = 1 .. Filas;
    rangoColumnas = 1 .. Columnas;
    rangoJugadas = 0 .. jugadasmax;
    rangoBarcos = 0 .. barcosmax;
    
    //-----------REGISTROS-----------//
    Tnombre = string[15];
    
    jugadas = record
        fila : rangoFilas;
        columna : rangoColumnas;
    end;
    
    Ttablero = array [rangoFilas,rangoColumnas] of rangoDig; 
    
    TjugadasPrevias = record
            vector : array [rangoJugadas] of jugadas;
            DimL : rangoJugadas;
    end;
    
    Tjugador = record
        nombre : Tnombre;
        barcos : rangoBarcos;
        tablero : Ttablero;
        jugadasPrevias : TjugadasPrevias;
    end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos
de ser necesarias}
//var
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
INICIALIZAR }
procedure inicializar(var j : Tjugador);
var
    i : rangoFilas;
    n : rangoColumnas ;
begin
    for i := 1 to Filas do 
        for n := 1 to Columnas do
            j.tablero[i,n]:=0;
    j.barcos := 0;
    readln(j.nombre);
    j.jugadasPrevias.DimL := 0;
    
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CARGAR TABLERO }
procedure cargarTablero(var j : Tjugador);
var
    i : rangoBarcos;
    fila : rangoFilas;
    columna : rangoColumnas;
begin
    for i := 1 to barcosmax do begin
            
            repeat
                fila := random(Filas)+1;
                columna := random(Columnas)+1;
            Until (j.tablero[fila,columna]= 0);
            
            j.tablero[fila,columna]:= 1;
            j.barcos := j.barcos + 1;
    end;
    writeln('çantidad de barcos ',j.barcos);

end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
IMPRIMIR LINEA}
procedure imprimirLinea();
var
    j:rangoColumnas;
begin
    write('      ');
    for j := 1 to Columnas do
        write('----');
    writeln;
end;
{-----------------------------------------------------------------
IMPRIMIR COLUMNAS}
procedure imprimirColumnas();
var
    j : rangoColumnas;
begin
    writeln;
    write('    ');
   for j:=1 to Columnas do
       if j > 9 then begin
           write('  ',j);
       end else
           write('   ',j);
   writeln;
end;
{-----------------------------------------------------------------
IMPRIMIR TABLERO}
procedure imprimirTablero(t : Ttablero);
var 
    i : rangoFilas;
    j : rangoColumnas;
begin
    imprimirColumnas();
    imprimirLinea();
    for i := 1 to Filas do begin
        if i < 10 then begin
            write('  ',i,' ');
        end else
            write(' ',i,' ');
        for j := 1 to Columnas-1 do 
            write(' | ',t[i,j]);
        writeln(' | ',t[i,j],' | ');
        imprimirLinea();
    end;
    
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
VERIF - Se encarga de evitar que los jugadores elijan dos veces las mismas posiciones}
procedure verif(var fila : rangoFilas;var columna : rangoColumnas; var turn : integer;var j : TjugadasPrevias);
var
    n : boolean;
    i : rangoJugadas;
begin
    repeat
        n := true;
        i := 1;
        fila := random(Filas)+1;
        columna := random(Columnas)+1;
        while n and (i <= j.DimL) do 
            if (j.vector[i].fila = fila)and(j.vector[i].columna = columna) then begin n := false;
                                                                            end else  i := i + 1;
    until (n);
    j.DimL := turn;
    j.vector[j.DimL].fila := fila;
    j.vector[j.DimL].columna := columna;
end;
{-----------------------------------------------------------------
TURNO - se encarga de que los jugadores elijan las posiciones y 
ataquen , en caso de que undan un barco éste se borrara del mapa contrario
y se restara a su cantidad de barcos , de otra forma informa agua }
procedure turno(var j : Tjugador ;var j2 : Tjugador; turn : integer );
var 
    fila : rangoFilas;
    columna : rangoColumnas;
begin
    verif(fila,columna,turn,j.jugadasPrevias); 
    
    if j2.tablero[fila,columna] = 0 then begin
        writeln('fila: ',fila,'   columna: ', columna,'.....................agua');
    end else
        begin
            writeln('fila: ',fila,'   columna: ', columna,'.....................hundido');
            j2.tablero[fila,columna] := 0;
            j2.barcos := j2.barcos - 1;
        end;
end;

{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------
INFORMAR GANADOR }
procedure informarGanador(j1,j2: Tjugador);
begin
        if j1.barcos = 0 then begin
            writeln('el ganador es ', j2.nombre);
        end else
            writeln('el ganador es ', j1.nombre);;
end;

{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
    j1,j2 : Tjugador;
    i : integer;
begin
    randomize;
    
    inicializar(j1);
    inicializar(j2);
    
    cargarTablero(j1);
    cargarTablero(j2);
    
   imprimirTablero(j1.tablero);
   imprimirTablero(j2.tablero);
   
   i:=1;
   while (j1.barcos <> 0) and (j2.barcos <> 0) do begin
       writeln('turno ',i);
       turno(j1,j2,i);
       if j1.barcos <> 0 then
           turno (j2,j1,i);
       i := i + 1;    
       
   end;
   
   informarGanador(j1,j2);
   
end.
{-----------------------------------------------------------------------------------------------------------------------}

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.16 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,47 sec

çantidad de barcos 5 çantidad de barcos 5 1 2 3 4 5 6 7 8 9 10 ---------------------------------------- 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 2 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 3 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 4 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 5 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 6 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | ---------------------------------------- 7 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | ---------------------------------------- 8 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 9 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 10 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 1 2 3 4 5 6 7 8 9 10 ---------------------------------------- 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 2 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 3 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 4 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 5 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 1 | 0 | 0 | ---------------------------------------- 6 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 7 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | ---------------------------------------- 8 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 9 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- 10 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | ---------------------------------------- turno 1 fila: 10 columna: 6.....................agua fila: 8 columna: 2.....................agua turno 2 fila: 7 columna: 1.....................agua fila: 2 columna: 3.....................agua turno 3 fila: 7 columna: 6.....................agua fila: 10 columna: 7.....................agua turno 4 fila: 5 columna: 5.....................agua fila: 8 columna: 10.....................agua turno 5 fila: 6 columna: 4.....................agua fila: 4 columna: 4.....................agua turno 6 fila: 9 columna: 3.....................agua fila: 2 columna: 1.....................agua turno 7 fila: 2 columna: 6.....................agua fila: 8 columna: 5.....................agua turno 8 fila: 10 columna: 1.....................agua fila: 9 columna: 1.....................agua turno 9 fila: 3 columna: 6.....................agua fila: 10 columna: 10.....................agua turno 10 fila: 5 columna: 4.....................agua fila: 6 columna: 5.....................agua turno 11 fila: 8 columna: 10.....................agua fila: 7 columna: 6.....................hundido turno 12 fila: 8 columna: 1.....................agua fila: 9 columna: 4.....................agua turno 13 fila: 8 columna: 7.....................agua fila: 3 columna: 9.....................agua turno 14 fila: 8 columna: 9.....................agua fila: 4 columna: 5.....................agua turno 15 fila: 6 columna: 5.....................agua fila: 1 columna: 8.....................agua turno 16 fila: 3 columna: 1.....................agua fila: 9 columna: 2.....................agua turno 17 fila: 1 columna: 2.....................agua fila: 3 columna: 10.....................agua turno 18 fila: 1 columna: 7.....................agua fila: 5 columna: 10.....................hundido turno 19 fila: 1 columna: 5.....................agua fila: 10 columna: 4.....................agua turno 20 fila: 6 columna: 9.....................agua fila: 9 columna: 3.....................agua turno 21 fila: 4 columna: 1.....................agua fila: 4 columna: 10.....................agua turno 22 fila: 9 columna: 8.....................agua fila: 10 columna: 5.....................agua turno 23 fila: 9 columna: 2.....................agua fila: 6 columna: 1.....................agua turno 24 fila: 7 columna: 8.....................hundido fila: 7 columna: 7.....................agua turno 25 fila: 9 columna: 9.....................agua fila: 1 columna: 10.....................agua turno 26 fila: 1 columna: 8.....................agua fila: 8 columna: 3.....................agua turno 27 fila: 9 columna: 1.....................agua fila: 7 columna: 3.....................agua turno 28 fila: 4 columna: 5.....................agua fila: 3 columna: 5.....................agua turno 29 fila: 2 columna: 1.....................agua fila: 4 columna: 9.....................agua turno 30 fila: 3 columna: 8.....................agua fila: 9 columna: 8.....................agua turno 31 fila: 6 columna: 3.....................agua fila: 10 columna: 6.....................agua turno 32 fila: 2 columna: 3.....................agua fila: 4 columna: 2.....................agua turno 33 fila: 3 columna: 7.....................agua fila: 7 columna: 4.....................agua turno 34 fila: 10 columna: 9.....................agua fila: 1 columna: 4.....................agua turno 35 fila: 8 columna: 6.....................agua fila: 1 columna: 5.....................agua turno 36 fila: 5 columna: 3.....................agua fila: 6 columna: 8.....................agua turno 37 fila: 2 columna: 2.....................agua fila: 10 columna: 8.....................agua turno 38 fila: 10 columna: 3.....................agua fila: 5 columna: 5.....................agua turno 39 fila: 4 columna: 7.....................agua fila: 6 columna: 9.....................agua turno 40 fila: 2 columna: 8.....................agua fila: 7 columna: 10.....................agua turno 41 fila: 9 columna: 6.....................agua fila: 10 columna: 1.....................agua turno 42 fila: 9 columna: 7.....................agua fila: 8 columna: 7.....................agua turno 43 fila: 7 columna: 3.....................agua fila: 5 columna: 4.....................agua turno 44 fila: 7 columna: 10.....................agua fila: 6 columna: 6.....................agua turno 45 fila: 5 columna: 6.....................agua fila: 9 columna: 6.....................agua turno 46 fila: 10 columna: 8.....................agua fila: 6 columna: 7.....................hundido turno 47 fila: 10 columna: 7.....................agua fila: 7 columna: 5.....................agua turno 48 fila: 5 columna: 1.....................agua fila: 5 columna: 1.....................agua turno 49 fila: 5 columna: 2.....................agua fila: 2 columna: 8.....................agua turno 50 fila: 3 columna: 4.....................agua fila: 9 columna: 5.....................agua turno 51 fila: 3 columna: 9.....................agua fila: 3 columna: 6.....................agua turno 52 fila: 3 columna: 10.....................agua fila: 5 columna: 3.....................agua turno 53 fila: 7 columna: 2.....................agua fila: 3 columna: 2.....................agua turno 54 fila: 1 columna: 1.....................agua fila: 6 columna: 3.....................agua turno 55 fila: 4 columna: 3.....................hundido fila: 4 columna: 3.....................agua turno 56 fila: 7 columna: 5.....................agua fila: 8 columna: 8.....................agua turno 57 fila: 2 columna: 4.....................agua fila: 4 columna: 8.....................agua turno 58 fila: 6 columna: 6.....................agua fila: 9 columna: 9.....................agua turno 59 fila: 6 columna: 10.....................agua fila: 8 columna: 1.....................agua turno 60 fila: 4 columna: 2.....................agua fila: 6 columna: 4.....................agua turno 61 fila: 7 columna: 9.....................agua fila: 7 columna: 2.....................agua turno 62 fila: 4 columna: 8.....................agua fila: 6 columna: 2.....................agua turno 63 fila: 10 columna: 10.....................agua fila: 10 columna: 9.....................agua turno 64 fila: 5 columna: 10.....................agua fila: 3 columna: 3.....................hundido turno 65 fila: 8 columna: 4.....................agua fila: 1 columna: 9.....................agua turno 66 fila: 3 columna: 3.....................agua fila: 1 columna: 1.....................agua turno 67 fila: 4 columna: 9.....................agua fila: 10 columna: 2.....................agua turno 68 fila: 10 columna: 2.....................agua fila: 3 columna: 4.....................agua turno 69 fila: 10 columna: 4.....................agua fila: 2 columna: 5.....................agua turno 70 fila: 2 columna: 5.....................agua fila: 7 columna: 8.....................agua turno 71 fila: 1 columna: 4.....................agua fila: 7 columna: 1.....................agua turno 72 fila: 6 columna: 1.....................agua fila: 2 columna: 6.....................agua turno 73 fila: 8 columna: 3.....................agua fila: 5 columna: 6.....................agua turno 74 fila: 7 columna: 7.....................agua fila: 2 columna: 9.....................agua turno 75 fila: 9 columna: 5.....................agua fila: 8 columna: 4.....................agua turno 76 fila: 1 columna: 3.....................agua fila: 6 columna: 10.....................hundido el ganador es lucas