Batalha Naval em Visual G
Por: nando_asa • 10/6/2016 • Trabalho acadêmico • 640 Palavras (3 Páginas) • 348 Visualizações
//Posiciona o A em todo o tabuleiro
procedimento INICIAR
inicio
escreval("BEM VINDO AO BATALHA NAVAL THE GAME")
escreval("Digite o nome do jogador:")
leia(NOME)
para LINHA de 1 ate 10 faca
para COLUNA de 1 ate 10 faca
TABULEIRO[LINHA,COLUNA] <- "A"
MASCARA [LINHA,COLUNA] <- "*"
fimpara
fimpara
fimprocedimento
//Posicionar Hidroaviões
procedimento COLOCAHIDRO
var
CONTADOR:inteiro
inicio
CONTADOR<-1
para CONTADOR de 1 ate 30 faca
aleatorio 1,10
leia(LINHA)
leia(COLUNA)
aleatorio off
limpatela
se (TABULEIRO[LINHA,COLUNA) = "A" entao
TABULEIRO[LINHA,COLUNA] <-"H"
fimse
CONTADOR <- CONTADOR + 1
fimpara
aleatorio off
fimprocedimento
//Posicionar Submarino
procedimento COLOCASUB
var
CONTADOR:inteiro
inicio
CONTADOR<-1
para CONTADOR de 1 ate 4 faca
aleatorio 1,10
leia(LINHA)
leia(COLUNA)
aleatorio off
limpatela
se (TABULEIRO[LINHA,COLUNA) = "A" entao
TABULEIRO[LINHA,COLUNA] <-"S"
fimse
CONTADOR <- CONTADOR + 1
fimpara
aleatorio off
fimprocedimento
//Posicionar Cruzadores
procedimento COLOCACRUZ
var
CONTADOR:inteiro
inicio
CONTADOR<-1
para CONTADOR de 1 ate 3 faca
aleatorio 1,10
leia(LINHA)
leia(COLUNA)
aleatorio off
limpatela
se (TABULEIRO[LINHA,COLUNA) = "A" entao
TABULEIRO[LINHA,COLUNA] <-"C"
fimse
CONTADOR <- CONTADOR + 1
fimpara
aleatorio off
fimprocedimento
//Posicionar Encouraçados
procedimento COLOCAENCO
var
CONTADOR:inteiro
inicio
CONTADOR<-1
para CONTADOR de 1 ate 2 faca
aleatorio 1,10
leia(LINHA)
leia(COLUNA)
aleatorio off
limpatela
se (TABULEIRO[LINHA,COLUNA) = "A" entao
TABULEIRO[LINHA,COLUNA] <-"E"
fimse
CONTADOR <- CONTADOR + 1
fimpara
aleatorio off
fimprocedimento
//Posicionar Porta-aviões
procedimento COLOCAPORT
inicio
aleatorio 1,10
leia(LINHA)
leia(COLUNA)
aleatorio off
limpatela
se (TABULEIRO[LINHA,COLUNA) = "A" entao
TABULEIRO[LINHA,COLUNA] <-"P"
fimse
fimprocedimento
//Mostrar tabuleiro
procedimento MOSTRARTABULEIRO
inicio
limpatela
para LINHA de 1 ate 10 faca
para COLUNA de 1 ate 10 faca
escreva (TABULEIRO[LINHA,COLUNA]," | ")
fimpara
escreval("")
fimpara
fimprocedimento
//Mostrar Máscara
procedimento MOSTRARMASCARA (ALVO:caracter)
inicio
limpatela
escreval("=======================================")
para LINHA de 1 ate 10 faca
...