ViniciusMb

@Diego Mendes Rodrigues E ai Diego Ficou muito melhor mesmo o codigo, porém o professor continua apontando um erro, eu e meu amigo ja olhamos em tudo e não encontramos, voce viu esse erro, ele ja vem desde o codigo original que postei

Meu amigo escreveu um um código sobre um programa e pediu opinião para ver se está bom. Gostaria que vocês olhassem para ver que acham. Var // Seção de Declarações das variáveis opc , oplanch, opacompanhamento , opbebida, qtd : inteiro vlLanch, vlAcompanhamento , vlBebida : real Lanches, Acompanhamento , Bebidas , Total : real Total <- 0 opc <- 0 oplanch <- 0 opacompanhamento <- 0 opbebida <- 0 qtd <- 0 // seção de comandos, procedimento, funcões, operadores, etc... repita Escreval (" ====== MENU ======") Escreval (" 1 Lanches ") Escreval (" 2 Acompanhamentos ") Escreval (" 3 Bebidas ") Escreval (" 0 finalizar pedido ") Escreva (" Faça seu pedido, ") Escreval (" escolha uma opção ") leia (opc) escolha opc caso 1 repita escreval (" ====== LANCHES ======") escreval (" 1 X-burguer --------> R$ 10,00") escreval (" 2 X-Salada --------> R$ 12,00") escreval (" 3 X-Calabresa --------> R$ 13,00") escreval (" 4 X-Tudo --------> R$ 15,00") escreval (" 5 X-Frango --------> R$ 10,00") escreval (" 6 X-Egg --------> R$ 12,00") escreval (" 7 hamburguer vegano --------> R$ 14,00") escreval (" 0 voltar ao menu anterior " ) escreval (" Escolha uma opção de lanche " ) leia (oplanch) se oplanch = 0 então interrompa fimse escreval ("Informe a quantidade") leia (qtd) escolha (oplanch) caso 1 vlLanch <- vlLanch + 10 * qtd caso 2 vlLanch <- vlLanch + 12 * qtd caso 3 vlLanch <- vlLanch + 13 * qtd caso 4 vlLanch <- vlLanch + 15 * qtd caso 5 vlLanch <- vlLanch + 10 * qtd caso 6 vlLanch <- vlLanch + 12 * qtd caso 7 vlLanch <- vlLanch + 14 * qtd fimescolha ate oplanch = 0 Escreval ("....................................") Escreval ("valor Do Pedido = R$", vlLanch,",00") Escreval ("....................................") Lanches <- Lanches + vlLanch timer 3000 timer 0 caso 2 repita Escreval ("====== ACOMPANHAMENTOS ======") Escreval (" 1 Batata Frita ----------> R$ 9,00 ") Escreval (" 2 Salada ---------------> R$ 10,00 ") Escreval (" 3 Aneis de Cebola ------> R$ 12,00 ") Escreval (" 4 Frango no balde ------> R$ 14,00 ") Escreval (" 5 Nachos --------------> R$ 10,00 ") Escreval (" 6 Bolinhos De Carne ----> R$ 11,00 ") Escreval (" 7 Pastel De Queijo ------> R$ 6,00 ") Escreval (" Voltar ao menu anterior " ) Escreval (" Escolha uma opção de acompanhamento ") leia (opacompanhamento) se opacompanhamento = 0 então interrompa fimse Escreval ("Informe a Quantidade ") leia (qtd) escolha (opacompanhamento) caso 1 vlAcompanhamento <- vlAcompanhamento + 9 * qtd caso 2 vlAcompanhamento <- vlAcompanhamento + 10 * qtd caso 3 vlAcompanhamento <- vlAcompanhamento + 12 * qtd caso 4 vlAcompanhamento <- vlAcompanhamento + 14 * qtd caso 5 vlAcompanhamento <- vlAcompanhamento + 10 * qtd caso 6 vlAcompanhamento <- vlAcompanhamento + 11 * qtd caso 7 vlAcompanhamento <- vlAcompanhamento + 6 * qtd fimescolha ate opacompanhamento = 0 Escreval (".............................................") Escreval ("valor Do Pedido = R$", vlAcompanhamento,",00") Escreval (".............................................") Acompanhamento <- acompanhamento + vlAcompanhamento timer 3000 timer 0 caso 3 repita Escreval ("====== BEBIDAS ====================") Escreval (" 1 Refrigerante ----------> R$ 8,00") Escreval (" 2 Agua mineral ----------> R$ 5,00") Escreval (" 3 Suco Natural ----------> R$ 5,00") Escreval (" 4 Cha -------------------> R$ 3,00") Escreval (" 5 Milk-Shake -----------> R$ 14,00") Escreval (" 6 Capuccino -------------> R$ 6,00") Escreval (" 7 Chocalate Quente ------> R$ 6,00") leia (opbebida) se opbebida = 0 então interrompa fimse Escreval ("Informe a Quantidade ") leia (qtd) escolha (opbebida) caso 1 vlBebida <- vlBebida + 8 * qtd caso 2 vlBebida <- vlBebida + 5 * qtd caso 3 vlBebida <- vlBebida + 5 * qtd caso 4 vlBebida <- vlBebida + 3 * qtd caso 5 vlBebida <- vlBebida + 14 * qtd caso 6 vlBebida <- vlBebida + 6 * qtd caso 7 vlBebida <- vlBebida + 6 * qtd fimescolha ate opbebida = 0 Escreval ("......................................") Escreval ("valor Do Pedido = R$", vlBebida,",00") Escreval ("......................................") Bebidas <- bebidas + vlBebida timer 3000 timer 0 Fimescolha ate opc = 0 Limpatela Total <- Total + Lanches + Acompanhamento + Bebidas Escreval(".......................................") Escreval("SEU PEDIDO DEU VALOR TOTAL DE R$", Total, ",00") Escreval(" AGRADECEMOS A preferência VOLTE SEMPRE") Escreval(".......................................") Fimalgoritmo

@devair1010 ai meu irmão muito obrigado de verdade, salvou muito, sei nem como agradecer

@devair1010, boa noite tudo joia, mano. Me ensina como faço para poder calcular o valor final das vendas se você tiver um tempo por favor. var opc, oplanch, opbebida, opacompanhamento, qtd : inteiro vltotal, vllanch, vlbebida, vlacompanhamento : real repita Escreval (" ====== MENU ======") Escreval (" 1 Lanche ") Escreval (" 2 Bebidas ") Escreval (" 3 Acopanhamentos ") Escreval (" 0 finalizar pedido ") Escreva (" Faça seu pedido, ") escreval (" escolha uma opção ") Leia (opc) escolha opc caso 1 repita Escreval (" ====== LANCHES ======") Escreval (" 1 x-burger --------> R$ 10,00") Escreval (" 2 X-Salada --------> R$ 12,00") Escreval (" 3 X-Bacon --------> R$ 14.00") Escreval (" 4 X-Tudo --------> R$ 18.00") Escreval (" 5 Vegetariano --------> R$ 10.00") Escreval (" 6 Cheeseburguer --------> R$ 9.00") Escreval (" 7 Duplo --------> R$ 16.00") Escreval (" 0 Voltar ao menu anterior " ) Escreval (" Escolha uma opção de lanche " ) leia(oplanch) se oplanch = 0 então interrompa fimse Escreval ("Informe a quantidade") Leia (qtd) se oplanch = 1 então vllanch <- vllanch + 10 * qtd senao se oplanch = 2 então vllanch <- vllanch + 12 * qtd senao se oplanch = 3 então vllanch <- vllanch + 14 * qtd senao se oplanch = 4 então vllanch <- vllanch + 18 * qtd senao se oplanch = 5 então vllanch <- vllanch + 10 * qtd senao se oplanch = 6 então vllanch <- vllanch + 9 * qtd senao se oplanch = 7 então vllanch <- vllanch + 16 * qtd fimse fimse fimse fimse fimse fimse fimse ate oplanch = 0 Escreval("valor Do Pedido = R$", vllanch,",00") caso 2 repita Escreval (" ====== BEBIDAS======================") Escreval (" 1 Refrigerante ------------> R$ 5,00") Escreval (" 2 Suco Natural ------------> R$ 4,00") Escreval (" 3 Suco Artificial ---------> R$ 2,00") Escreval (" 4 Agua --------------------> R$ 3,00") Escreval (" 5 Agua Gaseificada --------> R$ 5,00") Escreval (" 6 Cafe Gelado -------------> R$ 9.00") Escreval (" 7 Milk Shake --------------> R$ 12,00") Escreval (" 0 Voltar ao menu anterior " ) Escreval (" Escolha uma opção de bebida " ) leia ( opbebida) se opbebida = 0 então interrompa fimse Escreval (" Informe a Quantidade ") leia ( qtd ) se opbebida = 1 então vlbebida <- vlbebida + 5 * qtd senao se opbebida = 2 então vlbebida <- vlbebida + 4 * qtd senao se opbebida = 3 então vlbebida <- vlbebida + 2 * qtd senao se opbebida = 4 então vlbebida <- vlbebida + 3 * qtd senao se opbebida = 5 então vlbebida <- vlbebida + 5 * qtd senao se opbebida = 6 então vlbebida <- vlbebida + 9 * qtd senao se opbebida = 7 então vlbebida <- vlbebida + 12 * qtd fimse fimse fimse fimse fimse fimse fimse ate opbebida = 0 Escreval("valor Do Pedido = R$", vlbebida,",00") caso 3 repita Escreval ("====== ACOMPANHAMENTOS ======") Escreval (" 1 Batata Frita -----------> R$ 8,00 ") Escreval (" 2 Salada ----------------> R$ 12,50 ") Escreval (" 3 Aneis de Cebola -------> R$ 14,00 ") Escreval (" 4 Batata Doce Frita ------> R$ 9,00 ") Escreval (" 5 Nuggets ----------------> R$10,00 ") Escreval (" 6 Coxinha ----------------> R$ 5,00 ") Escreval (" 7 Polenta Frita ---------> R$ 13,00 ") Escreval (" Escolha uma opção de acompnhamento ") leia(opacompanhamento) se opacompanhamento = 0 então interrompa fimse Escreval ("Informe a quantidade") Leia (qtd) se opacompanhamento = 1 então vlacompanhamento <- vlacompanhamento + 8 * qtd senao se opacompanhamento = 2 então vlacompanhamento <- vlacompanhamento + 12,50 * qtd senao se opacompanhamento = 3 então vlacompanhamento <- vlacompanhamento + 14 * qtd senao se opacompanhamento = 4 então vlacompanhamento <- vlacompanhamento + 9 * qtd senao se opacompanhamento = 5 então vlacompanhamento <- vlacompanhamento + 10 * qtd senao se opacompanhamento = 6 então vlacompanhamento <- vlacompanhamento + 5 * qtd senao se opacompanhamento = 7 então vlacompanhamento <- vlacompanhamento + 13 * qtd fimse fimse fimse fimse fimse fimse fimse ate opacompanhamento = 0 Escreval("valor Do Pedido = R$", vlacompanhamento,",00") Fimescolha ate opc = 0

@devair1010 ata, entendi, foi mal pelos erros de sintaxe to tentando aprender, qual comando uso para pode calcular o valor final ao finalizar o pedido?

var opc inteiro repita Escreval ("====== MENU ======") Escreval ("1 Lanche") Escreval ("2 Bebidas") Escreval ("3 Acopanhamentos") Escreval ("0 finalizar pedido") Escreval ("Faça seu pedido, escolha uma opção") Leia (opc) enquanto opc = 1 faca repita Escreval ("====== LANCHES======") Escreval ("1 x-burger === R$10,00") Escreval ("2 X-Salada === R12,00") Escreval ("3 X-Bacon === R$ 14.00") Escreval ("4 X-Tudo === R$ 18.00") Escreval ("5 Veggie === R$ 10.00") Escreval ("6 Cheeseburguer === R$ 9.00") Escreval ("7 Duplo === R$ 16.00") Escreval ("0 Voltar ao menu anterior") caso opc = 2 então repita Escreval ("====== BEBIDAS======") Escreval ("1 Refrigerante === R$5,00") Escreval ("2 Suco Natural === R$4,00") Escreval ("3 Suco Artificial === R$2,00") Escreval ("4 Agua === R$3,00") Escreval ("5 Agua Gaseificada === R$5,00") Escreval ("6 Cafe Gelado === R$9.00") Escreval ("7 Milk Shake === R$12,00") Escreval ("0 Voltar ao menu anterior") @devair1010, mano, me ajuda aqui. O que devo fazer a partir desse ponto?

Elaborar um algoritmo no aplicativo Visualg para o controle de pedidos em uma lanchonete seguindo as instruções abaixo: A primeira tela do algoritmo deverá conter o seguinte layout Lanchonete 1 lanches 2 acompanhamento 3 bebida 0 sair para esta tela você deverá escolher uma opção e ir para a tela da mesma. Se for digitado 0 (zero) o programa será finalizado. Como exemplo, iremos supor que você tenha selecionado a opção 1, lanches. A figura abaixo é um exemplo para a opção LANCHES, Escolha a opção de lanche e a quantidade, o sistema deverá mostrar o valor a ser pago para aquela opção. Ainda, o sistema deverá permitir que você possa escolher outra opção dentro do próprio menu que estiver e ao final e totalizar temporariamente o pedido e mostrá-lo na tela. Lembrando que a opção para retornar ao menu anterior será 0 (zero)