Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa noite Amigos
Estou com dificuldade neste algoritimo,preciso que apos cadastrar itens ele tenha a opção de voltar para o menu principal.
var
codigo: vetor [1..5] de inteiro
valor: vetor [1..5] de real
descricao: vetor [1..5] de caracter
fim,iniciar,opcao2: caracter
opcao: inteiro
ordem: inteiro
inicio
ordem <- 1
escreval("OPCOES")
escreval("")
escreval("Escolha a Opcao que Deseja Executar:")
escreval("")
escreval("1. Cadastro de Novo Produto:")
escreval("2. Listagem de Produtos Cadastrados:")
escreval("3. Listar Produto e a Quantidade em Estoque:")
escreval("4. Gerar Cupom de Produtos Vendidos:")
escreval("5. Calcular o Valor total de Cupons:")
leia (opcao)
limpatela
escolha opcao
//cadastro dos produtos
caso 1
opcao2 <- "i"
enquanto opcao2 = "i" faca
escreval("Cadastrando um novo Produto na Loja:")
escreval("")
escreval("Digite o Código do PRODUTO:")
leia(codigo[ordem])
escreval("Digite a Descricao do PRODUTO:")
leia(descricao[ordem])
escreval("Digite o Valor do PRODUTO:")
leia(valor[ordem])
escreval("Para cadastrar mais um produto Tecle 'I'. Para finalizar tecle 'F'")
leia(opcao2)
fimenquanto
limpatela
escreval("Produto cadastrado com sucesso!!")
escreval("--------------------------------")
escreval("Para cadastrar mais um produto Tecle 'I'. Para voltar ao menu tecle 'F'")
leia(opcao2)
fimescolha
escolha opcao2
caso "f"
escreval("Sistema Encerrado.")
caso "i"
enquanto opcao2 = "i" faca
escreval("Cadastrando um novo Produto na Loja:")
escreval("")
escreval("Digite o Código do PRODUTO:")
leia(codigo[ordem])
escreval("Digite a Descricao do PRODUTO:")
leia(descricao[ordem])
escreval("Digite o Valor do PRODUTO:")
leia(valor[ordem])
escreval("Para cadastrar mais um produto Tecle 'I'. Para finalizar tecle 'F'")
leia(opcao2)
fimenquanto
fimescolha
escolha opcao
//listagem dos produtos
caso 2
escreval("2. Listagem de Produtos Cadastrados:")
escreval("Digite o codigo do produto:")
leia(codigo[ordem])
escreval("O Produto Cadastrado é", [descricao], ".")
fimescolha
fimalgoritmo
Obrigado Ismael!
Olá!. Não precisa criar outros "ESCOLHA" , só "CASO". Qualquer dúvida só perguntar. Vlw !!!!
var
codigo: vetor [1..5] de inteiro
valor: vetor [1..5] de real
descricao: vetor [1..5] de caracter
fim,iniciar,opcao2: caracter
opcao: inteiro
ordem: inteiro
procedimento retornarMenu()
inicio
escreval("Para voltar ao menu Tecle 'I'. Para sair Tecle 'F.'")
leia(opcao2)
se opcao2="i" entao
limpatela
menu()
fimse
se opcao2="f" entao
limpatela
escreval("Sistema Encerrado.")
escreval("------------------")
fimse
fimprocedimento
procedimento menu()
inicio
escreval("OPCOES")
escreval("")
escreval("Escolha a Opcao que Deseja Executar:")
escreval("")
escreval("1. Cadastro de Novo Produto:")
escreval("2. Listagem de Produtos Cadastrados:")
escreval("3. Listar Produto e a Quantidade em Estoque:")
escreval("4. Gerar Cupom de Produtos Vendidos:")
escreval("5. Calcular o Valor total de Cupons:")
leia (opcao)
limpatela
fimprocedimento
inicio
menu()
repita
escolha opcao
//cadastro dos produtos
caso 1
opcao2 <- "i"
enquanto opcao2="i" faca
ordem <- ordem + 1
escreval("Cadastrando um novo Produto na Loja:")
escreval("")
escreval("Digite o Código do PRODUTO: ")
leia(codigo[ordem])
escreval("Digite a Descrição do PRODUTO: ")
leia(descricao[ordem])
escreval("Digite o Valor do PRODUTO: ")
leia(valor[ordem])
limpatela
escreval("Produto cadastrado com sucesso!!")
escreval("--------------------------------")
escreval("Para cadastrar mais um produto Tecle 'I'. Para finalizar tecle 'F'")
leia(opcao2)
limpatela
fimenquanto
retornarMenu()
//listagem dos produtos
caso 2
escreval("2. Listagem de Produtos Cadastrados:")
escreval("Digite o codigo do produto:")
leia(codigo[ordem])
escreval("O Produto Cadastrado é", [descricao], ".")
retornarMenu()
fimescolha
ate opcao2="f"