Aula 05 Exercicio 05a

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)
Se (posicao <> "A1") e (posicao <> "A2") e (posicao <> "A3") e (posicao <> "B1") e (posicao <> "B2") e (posicao <> "B3") e (posicao <> "C1") e (posicao <> "C2") e (posicao <> "C3")entao
 escreva ("Posição inválida ", posicao)
senao
 escreva ("atire : ")
 Leia (tiro)
 Se (tiro <> "A1") e (tiro <> "A2") e (tiro <> "A3") e (tiro <> "B1") e (tiro <> "B2") e (tiro <> "B3") e (tiro <> "C1") e (tiro <> "C2") e (tiro <> "C3")entao
 escreva ("Tiro inválido ", tiro)
 senao
 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
 fimse
fimse
Fimalgoritmo