Pedro Roth

Muito obrigado pelas dicas e correções, esse código serviu para testar meu conhecimento sobre algoritmos Resolvi aprender algoritmo para ter uma base para passar a aprender outras linguagens

Obrigado pelo feedback

Olá, estou iniciando no mundo do TI e estou aprendendo sobre algoritmos, no momento fiz um teste de todo meu conhecimento ate o momento e gostaria de dicas de como melhorar ou otimizar melhor o algoritmo algoritmo "CalculadoraDeMilhas" var Opcao: inteiro VMV, VMC, IN, TotM, Porce, TotPorce: real Resp: caractere Procedimento ProcM(VMV, VMC, IN, TotM, Porce, TotPorce:Real) var Resp2:Caractere inicio Escreva("Qual o valor do milheiro para venda? R$") Leia(VMV) Escreva("Qual o valor do milheiro para compra? R$") Leia(VMC) Escreva("Quanto voce deseja investir? R$") Leia(IN) TotM <- (IN/VMC) Escreva("Você vai participar de alguma Bonificação?[S/N] ") Leia(Resp2) Se (Resp2 = "S") então Escreva("Qual é a porcentagem da bonificação? ") Leia(Porce) Escreval(" ") TotPorce <- (TotM * Porce)/ 100 TotM <- TotPorce + TotM Escreval("------------------------------------------------------------") Escreval(" ") Escreval("Nesse caso, o total de milhas é ", TotM*1000:7) Fimse Escreval("------------------------------------------------------------") Escreval(" ") Escreval("O valor total da venda das milhas será: R$", TotM*VMV:5:2) Escreval(" ") Escreval("O lucro dessa operação será: R$", (TotM*VMV)-IN:5:2) Escreval(" ") Escreval("Em comparação, se você tivesse deixado esse valor rendendo") Escreval("100% do CDI, em 3 meses teria rendido: R$", ((IN*3.43)/100):5:2) fimprocedimento Procedimento Topo() inicio Escreval("---------------------------------------------------------------") Escreval(" CALCULADORA DE MILHAS ") Escreval("---------------------------------------------------------------") Escreval(" ") Escreval(" O que você gostaria de calcular?") Escreval(" [1] Pontos") Escreval(" [2] Milhas") Escreval(" [3] Sair") Leia(Opcao) Escreval("---------------------------------------------------------------") Fimprocedimento inicio Topo() Escolha (Opcao) Caso 1 ProcM(VMV, VMC, IN, TotM, Porce, TotPorce) Caso 2 ProcM(VMV, VMC, IN, TotM, Porce, TotPorce) Caso 3 Escreval(" Encerrando... ") Escreval("---------------------------------------------------------------") Timer(2000) LimpaTela Fimalgoritmo Fimescolha Repita Escreval(" ") Escreval("---------------------------------------------------------------") Escreva("Deseja fazer outro calculo?[S/N]") Leia(Resp) Se (Resp = "S") então LimpaTela topo() Escolha (Opcao) Caso 3 Escreval(" Encerrando... ") Escreval("---------------------------------------------------------------") Timer(2000) LimpaTela Fimalgoritmo Fimescolha ProcM(VMV, VMC, IN, TotM, Porce, TotPorce) Fimse Ate (Resp = "N") Escreval(" Escerrando...") Timer(2000) LimpaTela fimalgoritmo