Luiz Fellipe Nesrala

Boa tarde a todos. Gostaria que alguém me ajudasse a terminar um trabalho, está faltando ao finalizar o algoritmo ele mostrar quantos pedidos foram feitos. Esta dessa forma abaixo: var opc, oplanche, opbebida : inteiro opacompanhamento, qtd : inteiro vltotal, vllanche : real vlbebida, vlacompanhamento : real lanches, bebidas : real acompanhamentos, total : real Inicio Repita vllanche <- 0 vlbebida <- 0 vlacompanhamento <- 0 vltotal <- 0 Escreval ("----- MENU PRINCIPAL -----") Escreval ("1-LANCHES ") Escreval ("2-BEBIDAS ") Escreval ("3-ACOMPANHAMENTOS ") Escreval ("0-PARA SAIR DO SISTEMA ") Escreva (" MONTE SEU PEDIDO ") Leia (opc) escolha (opc) caso 1 Repita Escreval (" ------------- LANCHES ------------- ") Escreval ("1-X EGG ------------------- R$ 10,00 ") Escreval ("2-X EGG ESPECIAL ---------- R$ 12,00 ") Escreval ("3-X BACON ----------------- R$ 14.00 ") Escreval ("4-X BACON ESPECIAL -------- R$ 18.00 ") Escreval ("5-X DOG ------------------- R$ 10.00 ") Escreval ("6-X DOG ESPECIAL ---------- R$ 14.00 ") Escreval ("7-FANTASMINHA ------------- R$ 11.00 ") Escreval ("0 Para retonar ao menu inicial ") Escreval (" Escolha seu lanche: ") leia (oplanche) Se oplanche < 0 então escreva ("Opção inválida") interrompa Fimse Se oplanche = 0 então interrompa Fimse Escreval ("Informe a quantidade desejada!") Leia (qtd) Se oplanche = 1 então vllanche <- vllanche + 10 * qtd Senao Se oplanche = 2 então vllanche <- vllanche + 12 * qtd Senao Se oplanche = 3 então vllanche <- vllanche + 14 * qtd Senao Se oplanche = 4 então vllanche <- vllanche + 18 * qtd Senao Se oplanche = 5 então vllanche <- vllanche + 10 * qtd Senao Se oplanche = 6 então vllanche <- vllanche + 14 * qtd Senao Se oplanche = 7 então vllanche <- vllanche + 11 * qtd Fimse Fimse Fimse Fimse Fimse Fimse Fimse Ate oplanche = 0 Escreval ("___________________________________") Escreval ("") Escreval ("Valor do pedido = R$", vllanche,",00") Escreval ("___________________________________") lanches <- lanches + vllanche Timer 3000 Timer 0 caso 2 Repita Escreval (" ------------ BEBIDAS ------------- ") Escreval ("1-REFRIGERANTE ------------- R$ 5,00") Escreval ("2-SUCO DE POLPA ------------ R$ 4,00") Escreval ("3-CERVEJA ------------------ R$ 8,00") Escreval ("4-ÀGUA --------------------- R$ 3,00") Escreval ("5-ÀGUA COM GÁS ------------- R$ 5,00") Escreval ("6-SUCO NATURAL ------------- R$ 9.00") Escreval ("7-VINHO -------------------- R$ 12,00") Escreval ("0 Para retonar ao menu inicial ") Escreval (" Escolha sua bebida: ") leia (opbebida) Se opbebida < 0 então escreva ("Opção inválida") interrompa Fimse Se opbebida = 0 então interrompa Fimse Escreval ("Informe a quantidade desejada!") 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 + 8 * 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 ("____________________________________") Escreval ("") Escreval ("Valor do pedido = R$", vlbebida,",00") Escreval ("____________________________________") bebidas <- bebidas + vlbebida Timer 3000 Timer 0 caso 3 Repita Escreval (" --------- ACOMPANHAMENTOS --------- ") Escreval ("1-BATATA RUSTICA -----------R$ 8,00 ") Escreval ("2-ONION RINGS ------------- R$ 12,50 ") Escreval ("3-BACON EM TIRAS ---------- R$ 14,00 ") Escreval ("4-FRANGO FRITO -------------R$ 9,00 ") Escreval ("5-BATATA FRITA -------------R$ 10,00 ") Escreval ("6-BOLINHO DE ARROZ -------- R$ 5,00 ") Escreval ("7-ALMONDEGAS AO MOLHO ----- R$ 13,00 ") Escreval ("0 Para retonar ao menu inicial ") Escreval (" Escolha uma opção de acompanhamento ") leia (opacompanhamento) Se opacompanhamento < 0 então escreva ("Opção inválida") interrompa Fimse Se opacompanhamento = 0 então interrompa Fimse Escreval ("Informe a quantidade desejada") 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") acompanhamentos <- acompanhamentos + vlacompanhamento Timer 3000 Timer 0 Fimescolha Ate opc = 0 total <- bebidas + lanches + acompanhamentos Escreval ("_________________________________________") Escreval ("") Escreval ("Valor total do pedido: R$", total, ",00") Escreval ("_________________________________________") Fimalgoritmo