VisualG VISUALG - Como gerar um novo orçamento armazenando os dados do anterior

[Flaviane]

Estou fazendo um programa que faz orçamento e gostaria de ter a opção de fazer um novo orçamento usando vetor para gerar um relatório final, como todos os custos e nome dos clientes.

 

// Chama o procedimento que mostra o cabeçalho de saída.
      cabecalho()
      
      // Repete o menu inicial até que o usuário peça para sair do programa.
      repita

      // Mostra o menu inicial do programa.
      menuInicial()

      // Faz a leitura da opção desejada.
      leia (opcao1)

      // Realiza a escolha da opção do menu.
      escolha (opcao1)

         caso 1

            // Realiza o orçamento.
            escreval
            escreval(" ORÇAMENTO DA CONSTRUÇÃO")
            
            // Lê o nome cliente.
            para cont de 1 ate 3 faca
            
               // Repete o laço até que a resposta seja não.
               enquanto opcao2 <> "n" faca
               
               escreval
               escreva(" ** Nome do(a) cliente(a): ")
               leia(nome[cont])
               escreval

               // Pede para continuar.
              escreval
              escreval(" Digite ENTER para continuar...")
              leia(aux)

              // Limpa a tela
              limpatela

              cabecalho ()

               // Repete até que o usuário peça para sair do orçamento.
               repita

                  // Mostra um menu de opções.
                  menu()

                  // Faz a leitura da opção escolhida.
                  leia(opcao)

                  // Solta uma linha
                  escreval

                  // Escolhe o que fazer a partir da opção do menu.
                  escolha(opcao)

                     caso 1

                        // Chama o procedimento que faz o cálculo do custo da mão de obra.
                        custoMaoObra[cont] <- maoObra (pedreiro, ajudante)

                        // Recebe o total de dias trabalhados.
                        escreva(" Digite o total de dias trabalhados: ")
                        leia(diasTrabalhados)

                        // Calcula o custo da mão de obra pelos dias trabalhados.
                        custoMaoObra[cont] <- custoMaoObra[cont] * diasTrabalhados

                        // Imprime o resultado final do custo da mão de obra.
                        escreval
                        escreval(" O custo da mão de obra será de: R$ ",custoMaoObra[cont]:5:2)

                     caso 2

                        // Chama o procedimento que faz o calculo do total de tijolos.
                        totTijolos <- alvenaria (tijolosMetQuad)

                        // Calcula o custo total da alvenaria.
                        custoAlv[cont] <- totTijolos * precoTijolo

                        // Imprime o total de tijolos necessários e o seu custo.
                        escreval
                        escreval(" O total de tijolos para essa obra será: ", totTijolos)
                        escreval(" O custo total da alvenaria será de: R$ ", custoAlv[cont]:5:2)

                     caso 3

                        // Chama o procedimento que faz o calculo do custo do telhado.
                        totTelhado <- telhado (telhasMetQuad)

                        //Calcula o custo total do telhado
                        custTelhado[cont] <- totTelhado * precoTelhas

                        // Imprime o total de telhas que serão usadas e o seu custo.
                        escreval
                        escreval(" O total de telhas será: ", totTelhado:5)
                        escreval(" O custo das telhas será de: R$ ", custTelhado[cont]:4:2)

                     caso 4

                        // Chama o procedimento que faz o calculo do custo do piso.
                        totPisos <- piso (pisoComodo)

                        //Calcula o custo total do piso.
                        custPisos[cont] <- (totPisos / 9) * precoPisos

                        // Imprime o total de pisos  e o custo.
                        escreval
                        escreval(" O total de pisos para essa obra será: ", totPisos:5)
                        escreval(" O custo total do piso será de: R$ ", custPisos[cont]:4:2)

                     caso 0

                        // Mostra a mensagem para sair do menu.
                        escreval(" Encerrando o orçamento ...")

                     outrocaso

                        // Mostra a mensagem de opção inválida e aguarda nova escolha.
                        escreval(" OPÇÃO INVÁLIDA")

                  fimescolha

                  // Pede para continuar.
                  escreval
                  escreval(" Digite ENTER para continuar...")
                  leia(aux)

                  // Limpa a tela
                  limpatela

                  // Chama o procedimento que mostra o cabeçalho de saída.
                  cabecalho()

               ate opcao = 0

               repita
               escreva(" Deseja continuar? [S/N]: ")
               leia(opcao2)
               ate (opcao2 = "s") ou (opcao2 = "n")

            fimenquanto
         fimpara
         caso 2

            // Soma de todos os custos
            auxiliar[cont] <- custoMaoObra[cont] + custoAlv[cont] + custTelhado[cont] + custPisos[cont]]
            custoTotal <- auxiliar[cont]

            // Imprime o relatório detalhado do orçamento do cliente.
            escreval
            escreval(" RELATÓRIO FINAL DO ORÇAMENTO")
            escreval(" CLIENTE: ", nome[cont])
            escreval
            escreval(" CUSTO DA MÃO DE OBRA: R$ ", custoMaoObra[cont])
            escreval(" CUSTO DA ALVENARIA: R$ ", custoAlv[cont])
            escreval(" CUSTO DO TELHADO: R$ ", custTelhado[cont])
            escreval(" CUSTO DO PISO: R$ ", custPisos[cont])
            escreval
            escreval(" O custo total do orçamento será de: R$", custoTotal:5:2)
            escreval
            
            // Pede para continuar.
            escreval
            escreval(" Digite ENTER para continuar...")
            leia(aux)

            // Limpa a tela
            limpatela
            
            // Chama o procedimento que mostra o cabeçalho de saída.
            cabecalho()
            
         caso 3

            // Chama o procedimento que mostra as informações do programa.
            sobreOPrograma ()
            
            // Pede para continuar.
            escreval
            escreval(" Digite ENTER para continuar...")
            leia(aux)

            // Limpa a tela
            limpatela
            
            // Chama o procedimento que mostra o cabeçalho de saída.
            cabecalho()
         
            
         caso 0
            escreval
            escreval(" Encerrando o programa ...")
            
         outrocaso

            // Mostra a mensagem de opção inválida e aguarda nova escolha.
            escreval(" OPÇÃO INVÁLIDA")
            
      fimescolha

      ate opcao1 = 0
      
      // Limpa a tela
      limpatela
      
      // Chama o procedimento que mostra o cabeçalho de saída.
      cabecalho()
      
      // Mensagem de agradecimento ao final da execução do programa.
      escreval
      escreval
      escreval("                     OBRIGADO(A) POR UTILIZAR NOSSO PROGRAMA")
      escreval
      
FimAlgoritmo

 

[devair1010]

@Flaviane   os vetores no VisualG tem esse formato :

vet : vetor[1..10] de inteiro

e se você puder poste o seu código todo , começando do inicio , lá em :;

algoritmo "nome_do_programa"

e o restante também até o  :

fimalgoritmo

para vermos como está e em que podemos ajudar   .