Aula 05 Exercicio 05b

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo "Aula 05 - Exercicio 04"
Var
posicao,tiro:caracter
Inicio
// Iniciar
escreval (" A B C")
escreval ("1 . . .")
escreval ("2 . . .")
escreval ("3 . . .")
// Posicionar
escreva ("Marque a posição de seu navio : ")
Leia (posicao)
Escolha (posicao)
Caso "A1","A2","A3","B1","B2","B3","C1","C2","C3"
 escreva ("atire : ")
 Leia (tiro)
 Escolha (tiro)
 Caso "A1","A2","A3","B1","B2","B3","C1","C2","C3"
 Se tiro = posicao entao
 escreval ("Parabéns - Você acertou o alvo em ",tiro)
 senao
 escreval ("Tente outra vez - Você errou o alvo em ", posicao, " seu tiro foi ",tiro)
 fimse
 Outrocaso
 escreva ("Tiro inválido ", tiro)
 Fimescolha
outrocaso
 escreva ("Posição inválida ", posicao)
fimescolha
Fimalgoritmo