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