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