Bom dia, esse e meu primeiro post aqui entao se eu fizer algo errado me desculpe.
Estou estudando no visualG e estou fazendo uma simulacao de Compra de passagem para viagens, tem sistema de verificacao de idade, preço dependendo da regiao selecionada.
O problema começa quando abre a seleção de regiões, eu coloquei algumas opções "Sudeste, Nordeste, Sul" e queria fazer um sistema que se o usuario digitar algo que não seja essas opções, o programa encerraria(o mesmo para a selecao de estados).
Algoritmo "Simulacao de Viagens"
Var
dinheiro_atual:inteiro
teracomo:logico
idade:inteiro
desejo:inteiro
preco:inteiro
regiao:caractere
estado:caractere
Inicio
//inicio escolha do usuario
escreva("Olá Bem vindo ao centro de Viagens Trivago!")
escreval("o que o senhor deseja?")
escreval("1-Agendar uma viagem, 2-sair.")
leia(desejo)
se desejo=1 entao
escreval("Opção escolhida: Agendar uma viagem.")
senao
escreval("Opção escolhida: Sair")
fimalgoritmo
fimse
//Fim escolha do usuario
//Inicio verificacao de idade
se desejo=1 entao
escreval("você tera que passar por uma verificação de idade antes de proseguir.")
escreval("Qual a sua idade?")
leia(idade)
fimse
se idade>=18 entao
escreval("você é de maior, poderá realizar a viagem, vamos as opções.")
fimse
se idade<=17 entao
escreval("você ainda e de menor, não poderá viajar sem um responsavel.")
fimalgoritmo
fimse
//Caso o usuario for menor de idade ou escolher a opcao sair, o programa encerrara.
//Fim verificacao de idade
//opções de Regiao
escreval("Qual regiao você quer viajar?")
escreval("Sudeste, Sul, Nordeste")
leia(regiao)
//Aqui ficaria o sistema que detectaria se a regiao existe ou não
//Fim regiões
//Inicio opções de viagens para o estado selecionado
//Sudeste
se regiao="Sudeste" entao
escreval("Sao Paulo $6000 Rio de janeiro $12000, Minas Gerais $4000")
escreval("Qual estado deseja? MG-SP-RJ?")
leia(estado)
fimse
se estado="MG" entao
preco<-4000
fimse
se estado="SP" entao
preco<-6000
fimse
se estado="RJ" entao
preco<-12000
fimse
//Fim Sudeste
//Sul
se regiao="Sul" entao
escreval("Rio Grande do Sul $7000 Santa Catarina $10000, Paraná $3000")
escreval("Qual estado deseja? RS-SC-PR?")
leia(estado)
fimse
se estado="RS" entao
preco<-7000
fimse
se estado="SC" entao
preco<-10000
fimse
se estado="PR" entao
preco<-3000
fimse
//Fim Sul
//Nordeste
se regiao="Nordeste" entao
escreval("Maranhão $6000 Piauí $12000, Ceará $4000, Bahia $9856, Rio Grande do Norte $8420")
escreval("Sergipe $5784, Alagoas $6800, Pernambuco $10085, Paraíba $8750")
escreval("Qual estado deseja? MA-PI-CE-BA-RN-SE-AL-PE-PA?")
leia(estado)
fimse
se estado="MA" entao
preco<-6000
fimse
se estado="PI" entao
preco<-12000
fimse
se estado="CE" entao
preco<-4000
fimse
se estado="BA" entao
preco<-9856
fimse
se estado="RN" entao
preco<-8420
fimse
se estado="SE" entao
preco<-5784
fimse
se estado="AL" entao
preco<-6800
fimse
se estado="PE" entao
preco<-10085
fimse
se estado="PA" entao
preco<-8750
fimse
//Fim Nordeste
//inicio pagamento
escreva("Quanto dinheiro você tem para realizar a viagem? ")
leia(dinheiro_atual)
se dinheiro_atual>=preco entao
teracomo<- verdadeiro
senao
teracomo<- falso
fimse
se teracomo=verdadeiro entao
escreval("voce tem dinheiro suficente para realizar a viagem!")
senao
escreval("Que pena você não tem dinheiro sufiente para realizar a viagem.")
fimse
//Fim pagamento
Fimalgoritmo