navios.poti

tipo Posicao = (Inteiro, Inteiro)
tipo Tabuleiro = Lista[Posicao]

criarTabuleiro(tamanho: Inteiro): Tabuleiro =
  para
    x de 1 até tamanho,
    y de 1 até tamanho
    gere (x, y)
  fim

colocarNavio(tabuleiro: Tabuleiro, areaTabuleiro, l, r: Inteiro): Tabuleiro =
  tabuleiro.pegue(areaTabuleiro - r).descarte(l)

imprimirTabuleiro(tabuleiro: Tabuleiro, tamanhoQuebra: Int) =
  para pos em tabuleiro faça
    imprima "{pos} "
    se (pos.segundo mod tamanhoQuebra == 0) então
      escreva ""
    fim
  fim

imprimirNavio(areaTabuleiro: Inteiro, tabuleiro: Tabuleiro, tamanhoNavio: Inteiro): Nada
  l = aleatório(1, 22)
  r = areaTabuleiro - tamanhoNavio - l
  navio = colocarNavio(tabuleiro, areaTabuleiro, l, r)
  imprimirTabuleiro(navio, areaTabuleiro)
fim

# Programa principal
tamanhoTabuleiro = 5
areaTabuleiro = tamanhoTabuleiro * tamanhoTabuleiro
tamanhoNavio = 3
tabuleiro = criarTabuleiro(tamanhoTabuleiro)

escreva "Tabuleiro de Batalha Naval:"
imprimirTabuleiro(tabuleiro, tamanhoTabuleiro)

escreva "Navio1:"
imprimirNavio(areaTabuleiro, tabuleiro, tamanhoNavio)

escreva "Navio2:"
imprimirNavio(areaTabuleiro, tabuleiro, tamanhoNavio - 1)

escreva "Navio3:"
imprimirNavio(areaTabuleiro, tabuleiro, tamanhoNavio - 2)