Estou utilizando o programa Visualg - sou iniciante na programação
Eu estou concluindo um projeto, porém eu gostaria que ao final de cada processo ele me desse a escolha de voltar ao menu inicial, isso seria possível de alguma forma? Eu tentei repetir o menu com escolhas ao final de cada procedimento, mas ele sempre dava algum erro como por exemplo pular diretamente para outra opção e não voltar ao menu.
var
//variáveis login
user:caractere
dia,mes,ano:inteiro
//variáveis do menu
op:caractere
//variáveis cálculo imc
imc, peso, altura, pesoideal:real
idade, ano_nas:inteiro
nome:caractere
//variáveis soma de 4 números
total, n1,n2,n3,n4:real
//variáveis celcius para far
celsius, far : real
//variáveis para cotação
valorCompra:real
cotacao:real
valorReais:real
cliente:caractere
escolher:inteiro
//reiniciar
reiniciar:caractere
comando:caractere
inicio
//login
escreva("Usuário:")
leia(user)
escreval("")
escreval("Insira a data de hoje exemplo: 01/01/2022: ")
escreva("Insira o dia atual:")
leia(dia)
escreva("Insira o mês atual:")
leia(mes)
escreva("Insira o ano atual:")
leia(ano)
limpatela()
//---------------------------------------------------------------------------
//menu de opções
escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".")
escreval("")
escreval("")
escreval("Escolha alguma das opções abaixo!")
escreval("")
escreval("A - CÁLCULAR IMC----------------------")
escreval("B - CÁLCULAR NÚMEROS------------------")
escreval("C - CONVERTER CELSIUS PARA FAHREINHEIT")
escreval("D - SISTEMA COTAÇÃO-------------------")
escreval("E - FECHAR SISTEMA--------------------")
leia(op)
limpatela()
//---------------------------------------------------------------------------
//comandos cálculo imc
se op="A" entao
escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".")
escreval("Vamos abrir uma nova ficha para seu paciente:")
escreval("")
escreva("Insira o nome de seu(a) paciente:")
leia(nome)
escreva("Insira a altura de seu(a) paciente:")
leia(altura)
escreva("Insira o peso de seu(a) paciente:")
leia(peso)
escreva("Insira a data de nascimento de seu(a) paciente:")
leia(ano_nas)
limpatela()
idade <- ano - ano_nas
pesoideal<-(72.2*altura)-58
imc <- peso / (altura*altura)
//resultados imc
escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".")
escreval("")
//abaixo do peso
se (imc<18) entao
escreval("Veja abaixo os resultados de seu paciente:")
escreval("nome:" ,nome)
escreval("Idade:", idade)
escreval("")
escreval("sua altura atual é: m", altura)
escreval("seu peso atual é: kg", peso)
escreval("seu peso ideal é: kg" , pesoideal)
escreval("")
escreval("você está abaixo do seu peso ideal, seu imc é:" ,imc)
fimse
//dentro do peso ideal
se (imc>=18) e (imc<25) entao
escreval("Veja abaixo os resultados de seu paciente:")
escreval("nome:" ,nome)
escreval("Idade:", idade)
escreval("")
escreval("sua altura atual é: m", altura)
escreval("seu peso atual é: kg", peso)
escreval("seu peso ideal é: kg" , pesoideal)
escreval("")
escreval("você está dentro do seu peso ideal, seu imc é:" ,imc)
fimse
//acima do peso
se (imc>=25) entao
escreval("Veja abaixo os resultados de seu paciente:")
escreval("nome:" ,nome)
escreval("Idade:", idade)
escreval("")
escreval("sua altura atual é: m", altura)
escreval("seu peso atual é: kg", peso)
escreval("seu peso ideal é: kg" , pesoideal)
escreval("")
escreval("você está acima do seu peso ideal, seu imc é:" ,imc)
fimse
fimse
//comandos cálcular números
se op="B" entao
escreval("Bem-vindo(a)", user, "insira alguns números para serem calculados")
escreval("")
escreva("digite o primeiro número:")
leia(n1)
escreva("digite o segundo número:")
leia(n2)
escreva("digite o terceiro número:")
leia(n3)
escreva("digite o último número:")
leia(n4)
limpatela()
total<-(n1+n2+n3+n4)
escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".")
escreval("")
escreval("Veja o resultado abaixo")
escreva("A soma total dos números escolhidos é de:", total)
fimse
//comandos celsius para far
se op="C" entao
escreval("Digite um valor para converter")
leia(celsius)
far<-(9 * celsius/5)+32
limpatela()
escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".")
escreval("")
escreval("Dê uma olhada nos resultados:")
escreval("O valor em Celsius é:", celsius)
escreval("O valor em Fahrenheit é:",far)
fimse
//cotação dólar
se op="D" entao
escreval("[ SEJA BEM-VINDO(A) AO SISTEMA DE CÂMBIOS ]")
escreval("Olá ", user,". Hoje é dia :",dia," /",mes," /",ano,".")
escreval("Insira o nome do cliente:")
leia(cliente)
limpatela()
escreval("Operador ", user, " Cliente:", cliente,".")
escreval("")
escreval("Escolha alguma das opções abaixo!")
escreval("")
escreval("1 - Dólar para Reais")
leia(escolher)
limpatela()
se escolher="1" entao
escreva("Informe o valor da sua compra em: $")
leia(valorCompra)
escreva("Informe a cotação do dia em: $")
leia(cotacao)
valorReais := valorCompra*cotacao
limpatela()
escreval("Operador ", user, " Cliente:", cliente,".")
escreval("Veja os seus resultados abaixo")
escreval("")
escreval("Valor a ser comprado em: $", valorCompra)
escreval("Cotação do dia: ", cotacao)
escreval("O valor da sua compra convertido é de: R$", valorReais)
fimse
fimse
fimalgoritmo