VisualG Cardápio para restaurante trabalho

[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

 

[kgin]

8 horas atrás, Luiz Fellipe Nesrala disse:

Gostaria que alguém me ajudasse a terminar um trabalho, está faltando ao finalizar o algoritmo ele mostrar quantos pedidos foram feitos.

Declare outra variável do tipo inteiro e a cada pedido feito você adiciona mais 1 (um) a mesma.