VisualG estou tendo uma dificuldade em ligar o menu com as opções

[mosiah santos]

Algoritmo "centro automotivo"

Var
// Seção de Declarações das variáveis 
     opcao: inteiro
     
     
procedimento menu_principal
Inicio //menu principal
escreval ("centro automotivo")
escreval("Selecione uma opção")
escreval ("1 - Motor")
escreval ("2 - Suspenção")
escreval ("3 - Freio")
escreval ("sair")
Fimprocedimento

//funcao da opcao 1
procedimento menu_motor
inicio
 escreval ("Opcao Motor")
 escreval ("1- Alto consumo de óleo lubrificante")
 escreval ("2- Excesso de fumaça sendo expelida pelo escapamento")
 escreval ("3- Baixa potencia")
 escreval ("4- voltar")
 escreval ("selecione uma opção")
 escreval ("valor por horas/atividades é de R$ 100,00 , por hora")
fimprocedimento
//funcao opcao 2
procedimento menu_suspencao
inicio
 escreval ("Opcao Suspenção")
 escreval ("1- Ruidos  e batidas nas rodas")
 escreval ("2- Vibrações e direção puxando")
 escreval ("3- Desgaste irregular dos pneus")
 escreval ("4- voltar")
 escreval ("selecione uma opção")
 escreval ("valor por horas/atividades é de R$ 200,00 , por hora")
fimprocedimento
 // funcao opcao 3
procedimento menu_freio
inicio
 escreval ("Opcao Suspenção")
 escreval ("1- O carro ou pedal vibra ao pisar no pedal do freio")
 escreval ("2- O carro puxa para algum lado quando freia")
 escreval ("3- Chiado ou ronco quando pisa no freio")
 escreval ("4- voltar")
 escreval ("selecione uma opção")
 escreval ("valor por horas/atividades é de R$ 300,00 , por hora")
fimprocedimento

inicio
// seleção de comandos
repita
 menu_principal
  escreva("=>")
  leia (Opcao)
  limpatela
  
  escolha (opcao)
  caso 1 //motor
            menu_motor
            escreva("=>")
            leia(opcao)
            limpatela

  caso 2 //suspenção
          menu_suspencao
          escreva("=>")
            leia (opcao)
            limpatela

  caso 3 // freio
          menu_freio
            escreva("=>")
            leia (opcao)
            limpatela

  caso 4 //sair
  
  
  
  fimescolha
  
  ate opcao = 0
  
  fimalgoritmo

 

[devair1010]

@mosiah santos    seu código  está dando erro no  escolha / caso ,  modifiquei algumas linhas para que funcionasse então seu código com algumas modificações ficou assim :

Algoritmo "centro automotivo"
Var
  a,b,opcao,op:inteiro
//---------------------------------------------------------------------
procedimento menu_principal
  Inicio //menu principal
    limpatela
    escreval ("centro automotivo")
    escreval("Selecione uma opção")
    escreval ("1 - Motor")
    escreval ("2 - Suspenção")
    escreval ("3 - Freio")
    escreval ("4 - sair")
    escreva("=> ")
Fimprocedimento
//---------------------------------------------------------------------
//funcao da opcao 1
procedimento menu_motor
inicio
  limpatela
  escreval ("Opcao Motor")
  escreval ("1- Alto consumo de óleo lubrificante")
  escreval ("2- Excesso de fumaça sendo expelida pelo escapamento")
  escreval ("3- Baixa potencia")
  escreval ("4- voltar")
  escreval ("selecione uma opção")
  escreval ("valor por horas/atividades é de R$ 100,00 , por hora")
  escreva("=> ")
fimprocedimento
//---------------------------------------------------------------------
//funcao opcao 2
procedimento menu_suspencao
inicio
  limpatela
  escreval ("Opcao Suspenção")
  escreval ("1- Ruidos  e batidas nas rodas")
  escreval ("2- Vibrações e direção puxando")
  escreval ("3- Desgaste irregular dos pneus")
  escreval ("4- voltar")
  escreval ("selecione uma opção")
  escreval ("valor por horas/atividades é de R$ 200,00 , por hora")
  escreva("=> ")
fimprocedimento
//---------------------------------------------------------------------
 // funcao opcao 3
procedimento menu_freio
inicio
  limpatela
  escreval ("Opcao Suspenção")
  escreval ("1- O carro ou pedal vibra ao pisar no pedal do freio")
  escreval ("2- O carro puxa para algum lado quando freia")
  escreval ("3- Chiado ou ronco quando pisa no freio")
  escreval ("4- voltar")
  escreval ("selecione uma opção")
  escreval ("valor por horas/atividades é de R$ 300,00 , por hora")
  escreva("=> ")
fimprocedimento
//---------------------------------------------------------------------
procedimento alto_consumo
inicio
  escreval("esta aqui no alto consumo")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
procedimento excesso_de_fumaca
inicio
  escreval("esta aqui no excesso de fumaça")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
procedimento baixa_potencia
inicio
  escreval("esta aqui no baixa potencia")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
procedimento Ruidos_e_batidas_nas_rodas
inicio
  escreval("está aqui no procedimento ruido e batidas nas rodas")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
procedimento Vibracoes_e_direcao_puxando
inicio
  escreval("eata aqui no procedimento vibrações e direção puxando")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
procedimento desgaste_irregular_dos_peneus
inicio
  escreval("esta aqui no prcedimento desgaste irregular dos peneus")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
procedimento carro_ou_pedal_vibra_ao_pisar
inicio
  escreval("esta aqui no procedimento carro ou pedal vibra ao pisar no freio")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
procedimento carro_puxa_para_algum_lado
inicio
  escreval("esta aqui no procedimento carro puxa para algum lado")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
procedimento Chiado_ou_ronco_quando_pisa
inicio
  escreval("esta aqui no procedimento chiado ou ronco quando pisa")
  escreval("   Tecle Enter")
  leia(a)
fimprocedimento
//---------------------------------------------------------------------
Inicio
repita
  menu_principal
  leia(Opcao)
  limpatela
  escolha opcao
    caso 1
      repita
        menu_motor
        leia(op)
        escolha op
          caso 1
            alto_consumo
          caso 2
            excesso_de_fumaca
          caso 3
            baixa_potencia
          caso 4
            escreval("voltando . . .    Tecle Enter")
            leia(a)
        fimescolha
      ate op=4
    caso 2
      repita
        menu_suspencao
        leia(op)
        escolha op
          caso 1
            Ruidos_e_batidas_nas_rodas
          caso 2
            Vibracoes_e_direcao_puxando
          caso 3
            desgaste_irregular_dos_peneus
          caso 4
            escreval("voltando . . .    Tecle Enter")
            leia(a)
        fimescolha
      ate op=4
    caso 3
      repita
        menu_freio
        leia(op)
        escolha op
          caso 1
            carro_ou_pedal_vibra_ao_pisar
          caso 2
            carro_puxa_para_algum_lado
          caso 3
            Chiado_ou_ronco_quando_pisa
          caso 4
            escreval("voltando . . .    Tecle Enter")
            leia(a)
        fimescolha
      ate op=4
    caso 4
      escreval("você pediu para sair, saindo . . . !")
  fimescolha
ate opcao=4
Fimalgoritmo

 

[mosiah santos]

muito obrigado pela sua ajuda