Aula 05 Exercicio 05

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

Algoritmo "Aula 05 - Exercicio 04"
Var
posicao,tiro,alvo,v1,v2,v3,v4,v5,v6,v7,v8,v9: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"
 v1 := "x"
Caso "A2"
 v2 := "x"
Caso "A3"
 v3 := "x"
Caso "B1"
 v4 := "x"
Caso "B2"
 v5:= "x"
Caso "B3"
 v6 := "x"
Caso "C1"
 v7 := "x"
Caso "C2"
 v8 := "x"
outrocaso
 v9 := "x"
 posicao := "C3"
Fimescolha
// Atirar
escreva (v1,v2,v3)
escreva ("atire : ")
Leia (tiro)
alvo:="Errou"
escolha (tiro)
caso "A1"
 se v1 = "x" entao
 alvo:="Acertou"
 fimse
Caso "A2"
 se v2 = "x" entao
 alvo:="Acertou"
 fimse
caso "A3"
 se v3 = "x" entao
 alvo:="Acertou"
 fimse
caso "B1"
 se v4 = "x" entao
 alvo:="Acertou"
 fimse
caso "B2"
 se v5 = "x" entao
 alvo:="Acertou"
 fimse
caso "B3"
 se v6 = "x" entao
 alvo:="Acertou"
 fimse
caso "C1"
 se v7 = "x" entao
 alvo:="Acertou"
 fimse
caso "C2"
 se v8 = "x" entao
 alvo:="Acertou"
 fimse
caso "C3"
 se v9 = "x" entao
 alvo:="Acertou"
 fimse
outrocaso
 alvo:="Fora"
Fimescolha
Se alvo = "Acertou" entao
 escreval ("Parabéns - Você acertou o alvo em ",tiro)
senao
 se alvo = "Errou" entao
 escreval ("Tente outra vez - Você errou o alvo em ", posicao, " seu tiro foi ",tiro)
 senao
 escreval ("Fora do Cenário de Batalha")
 fimse
fimse
escreval (" A B C")
escreval ("1-",v1,"--",v2,"--",v3)
escreval ("1-",v4,"--",v5,"--",v6)
escreval ("1-",v7,"--",v8,"--" ,v9)
Fimalgoritmo