Return to menu

Asked

Viewed 912 times

1

I’m doing a college paper and I’m having a hard time putting my ideas into practice.

The job consists of a "manager for car rental".

My code so far is like this:

  Algoritmo "semnome"

Var

   Cliente, endereco: vetor[1..5] de caractere
   RG, CPF, nas, CNH: vetor[1..5] de inteiro
   codigo, i: inteiro

procedimento cliente
inicio
   para i <- 1 ate 5 faca
      Escreval("Nome do cliente")
      Leia (Cliente[i])
      Escreval("RG")
      leia(RG[i])
      Escreval("CPF (Apenas numeros)")
      leia(cpf[i])
      Escreval("Endereço")
      Leia(endereco[i])
      Escreval("Data de nascimento")
      Leia(nas[i])
      Escreval("Numero da carteira de habilitaçao")
      leia(CNH[i])
      Escreval("o usuario ",(Cliente[i]), " foi cadastrado com sucesso!")
      Escreval("Gostaria de cadastrar outro cliente ?[S/N] ")
   fimpara
fimprocedimento

Inicio
   escreval("          Selecione uma opcao para continuar"          )
   escreval("-------------------------------------------------------")
   escreval("1 - Cadastro de cliente")
   Escreval("2 - Cadastro de automovel")
   escreval("3 - Classificacao de automoveis")
   escreval("4 - Movimentacao de locaçao")
   Escreval("5 - Sair")
   escreval("-------------------------------------------------------")
   leia (codigo)

   Escolha (codigo)
   caso 1
      cliente
Fimalgoritmo

However, in the client procedure. I would like to give the option to when you want, not necessarily be 5 mandatory registrations.

And after registration return to menu to select another option.

portugol
  • 1

    I would use a state machine. It is a suitable modeling for your problem

1 answer

1

Well first the syntax at the end is missing one fimescolha. Try to see the example below and add to the code repeat it so you can go back to the menu to select another option.

    Inicio
    escreval("          Selecione uma opcao para continuar"          )
    escreval("-------------------------------------------------------")
    escreval("1 - Cadastro de cliente")
    escreval("2 - Cadastro de automovel")
    escreval("3 - Classificacao de automoveis")
    escreval("4 - Movimentacao de locaçao")
    escreval("5 - Sair")
    escreval("-------------------------------------------------------")
    repita
    leia (codigo)
    escolha (codigo)
    caso 1
    cliente
    ate(codigo=5)
    fimescolha
    fimalgoritmo

Browser other questions tagged portugol

You are not signed in. Login or sign up in order to post.