ecampos2018

Obrigado amigo. Ajudou bastante....

Boa tarde galera. Estou com dificuldade em 2 situações no código abaixo. 1-Gostaria que o valor da hora trabalhada já aparecesse automaticamente e não que fosse preciso digitar o valor. 2-Aplicar um desconto no valor final do serviço. Algoritmo "centro automotivo" Var a,b,opcao,op:inteiro c,d, soma: inteiro desconto: inteiro //--------------------------------------------------------------------- procedimento menu_principal Inicio //menu principal limpatela escreval ("CENTRO AUTOMOTIVO") escreval("Informe a opção de reparo") escreval ("1 - Motor") escreval ("2 - Suspensão") escreval ("3 - Freio") escreval ("4 - sair") escreva("=> ") Fimprocedimento //--------------------------------------------------------------------- //funcao da opcao 1 procedimento menu_motor inicio limpatela escreval ("Opcao informada: MOTOR") escreval ("1- Alto consumo de óleo lubrificante") escreval ("2- Excesso de fumaça sendo expelida pelo escapamento") escreval ("3- Baixa potência") escreval ("4- Voltar") escreval ("Selecione o problema relatado pelo cliente") escreva("=> ") fimprocedimento //---------------------------------------------------------------------- //funcao da opcao 2 procedimento menu_suspensao inicio limpatela escreval ("Opcao Suspensã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") escreva("=> ") fimprocedimento //--------------------------------------------------------------------- // funcao opcao 3 procedimento menu_freio inicio limpatela escreval ("Opcao Freio") escreval ("1- Carro ou pedal vibrando 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") escreva("=> ") fimprocedimento //--------------------------------------------------------------------- //--------------------------------------------------------------------- procedimento alto_consumo //Motor inicio escreval("Problema informado: Alto consumo") escreval("Custo por Hora/Atividade R$ 100,00") escreval("Informe o valor da hora:") leia (c) escreval("Quantidade de horas utilizadas no serviço:") leia (d) escreval("Valor total dos serviços R$",c*d) escreval("Tecle Enter") leia(a) fimprocedimento //--------------------------------------------------------------------- procedimento excesso_de_fumaca // Motor inicio escreval("Problema informado: Excesso de fumaça") escreval("Custo por Hora/Atividade R$ 100,00") escreval("Informe o valor da hora:") leia (c) escreval("Quantidade de horas utilizadas no serviço:") leia (d) escreval("Valor total dos serviços R$",c*d) escreval("Tecle Enter") leia(a) fimprocedimento //--------------------------------------------------------------------- procedimento baixa_potencia //Motor inicio escreval("Problema informado: Baixa potência do motor") escreval("Custo por Hora/Atividade: R$ 100,00") escreval("Informe o valor da hora:") leia (c) escreval("Quantidade de horas utilizadas no serviço:") leia (d) escreval("Valor total dos serviços R$",c*d) escreval("Tecle Enter") leia(a) fimprocedimento //--------------------------------------------------------------------- procedimento ruidos_e_batidas_nas_rodas //Suspensão inicio escreval("Problema informado: Ruidos e batidas nas rodas") escreval("Custo por Hora/Atividade: R$ 200,00") escreval("Informe o valor da hora:") leia (b) escreval("Quantidade de horas utilizadas no serviço: ") leia (d) escreval("Valor total dos serviços R$",b*d) escreval("Tecle Enter") leia(a) fimprocedimento //--------------------------------------------------------------------- procedimento Vibracoes_e_direcao_puxando //Suspensão inicio escreval("Problema informado: Vibrações e Direção puxando") escreval("Custo por Hora/Atividade: R$ 200,00") escreval("Informe o valor da hora:") leia (b) escreval("Quantidade de horas utilizadas no serviço: ") leia (d) escreval("Valor total dos serviços R$",b*d) escreval("Tecle Enter") leia(a) fimprocedimento //--------------------------------------------------------------------- procedimento desgaste_irregular_dos_peneus //Suspensão inicio escreval("Problema informado: Pneus desgastando de forma irregular") escreval("Custo por Hora/Atividade: R$ 200,00") escreval("Informe o valor da hora:") leia (b) escreval("Quantidade de horas utilizadas no serviço: ") leia (d) escreval("Valor total dos serviços R$",b*d) escreval("Tecle Enter") leia(a) fimprocedimento //--------------------------------------------------------------------- procedimento carro_ou_pedal_vibra_ao_pisar //Freio inicio escreval("Problema informado: Carro ou pedal vibrando ao pisar no freio") escreval("Custo por Hora/Atividade: R$ 300,00") escreval("Informe o valor da hora:") leia (b) escreval("Quantidade de horas utilizadas no serviço: ") leia (d) escreval("Valor total dos serviços R$",b*d) escreval("Tecle Enter") leia(a) fimprocedimento //--------------------------------------------------------------------- procedimento carro_puxa_para_algum_lado //Freio inicio escreval("Problema informado: Veículo com tendencia de saída para os lados") escreval("Custo por Hora/Atividade: R$ 300,00") escreval("Informe o valor da hora:") leia (b) escreval("Quantidade de horas utilizadas no serviço: ") leia (d) escreval("Valor total dos serviços R$",b*d) escreval("Tecle Enter") leia(a) fimprocedimento //--------------------------------------------------------------------- procedimento Chiado_ou_ronco_quando_pisa //Freio inicio escreval("Problema informado: Chiado ou ronco ao acionar pedal do freio") escreval("Custo por Hora/Atividade: R$ 300,00") escreval("Informe o valor da hora:") leia (b) escreval("Quantidade de horas utilizadas no serviço: ") leia (d) escreval("Valor total dos serviços R$",b*d) 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_suspensao 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