VisualG Criar um gerenciador de menu de lanchonete

[ViniciusMb]

 

 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)

[DiF]

Caro usuário,

 

Seja bem-vindo ao Clube do Hardware.

 

No intuito de servir como fonte de pesquisa no caso de instituições de ensino, informamos que incorrer no resolvimento por completo de questões relacionadas a disciplinas escolares de cursos técnicos e faculdades podem ser revistas e removidas pela Equipe de Moderação do Clube do Hardware.

 

Para sanar dúvidas sobre esse tipo de problema, por gentileza, publique o passo a passo do desenvolvimento da questão, projeto, monografia ou conteúdo em dúvida para que possamos analisar se a resposta está correta ou não, ou para que possa ser auxiliado com a dúvida no desenvolvimento do exercício.

 

Infelizmente, não há como resolver os trabalhos pelos usuários. O objetivo do Clube do Hardware é auxiliar seus usuários a encontrar soluções para que possam sanar suas dúvidas, e não de trazer soluções prontas para seus usuários. Além disso, copiar e colar respostas que não são de autoria própria do qualquer usuário é considerado plágio, o que é ilegal.

 

Esperamos que compreenda.

 

Atenciosamente,

Equipe Clube do Hardware

 

[devair1010]

@ViniciusMb    para ler as opções do menu você usa o comando "leia" , e depois que você fizer um código sobre esse exercício , poste aqui e ajudaremos .

[ViniciusMb]

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?

 

[devair1010]

@ViniciusMb      tem muitos erros de sintaxe ,  falta alguns comandos usados junto com outros ,  melhor conhecer a sintaxe do visualG 3.0.6.5 ,  aqui nesse link tem manual de visualG :

http://www.manual.visualg3.com.br/doku.php?id=manual

e seu código com algumas modificações ficou assim  :

Algoritmo "lanchonete menu"
var
  opc, op, qtd : inteiro
  val          : real
Inicio
  repita
    val <- 0
    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 Veggie -------=== R$ 10.00")
        Escreval (" 6 Cheeseburguer === R$  9.00")
        Escreval (" 7 Duplo --------=== R$ 16.00")
        Escreval (" 0 Voltar ao menu anterior "  )
        leia(op)
      ate op = 0
    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 "     )
        leia     ( op                               )
        se op = 0 então
          interrompa
        fimse
        Escreval (" informe a Quantidade "          )
        leia     ( qtd                              )
        se op = 1 então
          val <- val + 5 * qtd
        senao
          se op = 2 então
            val <- val + 4 * qtd
          senao
            se op = 3 então
              val <- val + 2 * qtd
            senao
              se op = 4 então
                val <- val + 3 * qtd
              senao
                se op = 5 então
                  val <- val + 5 * qtd
                senao
                  se op = 6 então
                    val <- val + 9 * qtd
                  senao
                    se op = 7 então
                      val <- val + 12 * qtd
                    fimse
                  fimse
                fimse
              fimse
            fimse
          fimse
        fimse
      ate op = 0
      Escreval
      Escreval("valor Do Pedido = R%", val,",00")
    fimescolha
  ate opc = 0
  Escreval
  Escreval
Fimalgoritmo

 

[ViniciusMb]

@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?

[ViniciusMb]

@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]

@ViniciusMb    esse codigo poderia ser assim :

Algoritmo ".ex.02"
var

  opc, oplanch, opbebida     : inteiro
  opacompanhamento, qtd      : inteiro
  vltotal, vllanch           : real
  vlbebida, vlacompanhamento : real
  lancheS, beBidAs           : real
  aCompAnhamentos, toTal     : real
Inicio
   Repita
     // inicializar essas variAveis, Senao dA erro
     vllanch  := 0         
     vlbebida := 0         // esSe siMbolo ":="
     vlacompanhamento := 0 // Eh iguaL a eSSe "<-"

      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("...................................")
         Escreval("")
         Escreval("valor Do Pedido = R$", vllanch,",00")
         Escreval("...................................")
        lanches := lanches + vllanch
        Timer 3000
        Timer 0
      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("....................................")
         Escreval("")
         Escreval("valor Do Pedido = R$", vlbebida,",00")
         Escreval("....................................")
        bebidas := bebidas + vlbebida
        Timer 3000
        Timer 0
      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")
        acompanhamentos := acompanhamentos + vlacompanhamento
        Timer 3000
        Timer 0
      Fimescolha
   Ate opc = 0
   
   total := total + bebidas + lanches + acompanhamentos
   Escreval("....................................")
   Escreval("")
   Escreval("vAlor tOtaL R$", totaL, ",00")
   Escreval("....................................")
Fimalgoritmo

 

[ViniciusMb]

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