Pesquisar na Comunidade
Mostrando resultados para as tags ''transformar''.
Encontrado 1 registro
-
Olá boa noite! estou com uma grande duvida, faço curso de TADS e meu professor quer que nós passemos um código que fizemos em portugol no visualg para a linguagem C, estou muito perdido em como fazer isso. algoritmo "Locação de Veiculos" // Função : Locadora de Veiculos // Autor : Maxwell Ruan // Data : 21/10/2017 // Seção de Declarações var opcao,opcao2 : inteiro CODIGO,NOME,RG,CPF,ENDERECO,DATADENASCIMENTO,CNH,CLIENTE,AUTOMOVEL:CARACTER MARCAVEICULO,CODIGOVEICULO,MODELO,ANOFABRICACAO,CLASSIFICACAO,CODIGOCLASS:CARACTER VALOR:REAL a,b,soma :numerico // procedimentos procedimento menu_principal inicio escreval ("++++++++++++++++++++++++++++++++++++") escreval (" 1- Cadastro de Cliente +") escreval (" 2- Cadastro de Veiculos +") escreval (" 3- Cadastro de Classificação +") escreval (" 4- Cadastro de movimentação +") escreval (" 5- Sair +") escreval ("++++++++++++++++++++++++++++++++++++") fimprocedimento procedimento menu_cliente inicio escreval ("======Menu do Cliente=====") escreval (" ") escreval ("==========================") escreval ("Digite o Código") leia (codigo) escreval ("Digite o Nome") leia (nome) escreval ("Digite o RG") leia (rg) escreval ("Digite o CPF") leia (cpf) escreval ("Digite o Endereço") leia (endereco) escreval ("Digite a Data de Nascimento") leia (datadenascimento) escreval ("Digite a Carteira de habilitação") leia (cnh) limpatela fimprocedimento procedimento menu_veiculo inicio escreval ("+==========Menu do Veiculo================ +") escreval ("+ Digite (01) se for do tipo Básico +") escreval ("+ Digite (02) se for do tipo Intermediário +") escreval ("+ Digite (03) se for do tipo Luxuoso +") escreval ("+========================================= +") escreval ("Digite o Código") leia (CODIGOVEICULO) escreval ("Digite a Marca do Veciulo") leia (MARCAVEICULO) escreval ("Digite o Modelo do Veiculo") leia (MODELO) escreval ("Digite o Ano de Fabricação") leia (ANOFABRICACAO) escreval ("Digite o Codigo de Classificação") leia (CLASSIFICACAO) limpatela fimprocedimento procedimento menu_class inicio escreval ("+==========Menu de Classificação========== +") escreval ("+ Digite (01) se for do tipo Básico +") escreval ("+ Digite (02) se for do tipo Intermediário +") escreval ("+ Digite (03) se for do tipo Luxuoso +") escreval ("+========================================= +") escreval ("Digite o Código") leia (CODIGOCLASS) escreval ("Digite a Marca do Veciulo") leia (MARCAVEICULO) escreval ("Digite a Classificação") leia (CLASSIFICACAO) escreval ("Digite o Valor da locação") leia (VALOR) limpatela fimprocedimento procedimento menu_movimentacao inicio escreval ("========Menu de Movimentação=======") escreval ("! [ Valor das Diárias ] !") escreval ("! Básico :R$ 80,00 !") escreval ("! Intermediário :R$ 150,00 !") escreval ("! Luxuoso :R$ 300,00 !") escreval ("!=================================!") escreval ("Digite o Código") leia (codigo) escreval ("Digite o Código do Cliente") leia (CLIENTE) escreval ("Digite o Código do Automovel") leia (AUTOMOVEL) escreval ("Digite o Valor da locação") leia (a) escreval ("Digite a Quantidade de Diarias") leia (b) soma:=(a*b) escreval ("=============================================+") escreval ("O Valor Total que o Cliente pagará será:" ,soma) escreval (" +") escreval ("=============================================+") fimalgoritmo limpatela fimprocedimento inicio // Seção de Comandos repita menu_principal escreva ("=>") leia (opcao) limpatela escolha (opcao) caso 1 // cadastro de cliente menu_cliente caso 2 // cadastro de veiculos menu_veiculo caso 3 // cadastro de classificação menu_class caso 4 // cadastro de movimentação menu_movimentacao caso 5 // sair outrocaso escreval("Opção Invalidade") fimescolha ate opcao = 5 fimalgoritmo