algoritmo "jormungandr"

var
   D: inteiro
   VI, TJ, QM, VF: real
   d_vfinals, d_vinicials, d_tjuross, d_qmesess: real
   d_vfinalc, d_vinicialc, d_tjurosc, d_qmesesc: real

inicio

   d_vinicials <- VF/(1+((TJ/100)^QM))
   d_tjuross <- (((VF-VI)/(VI*QM))*100)
   d_qmesess <- (VF-VI)/(VI*(TJ/100)
   d_vfinals <- VI*(1+((TJ/100)*QM))

   d_vinicialc <- VF/(1+((TJ/100)^QM))
   d_tjurosc <- ((((VF/VI)^1)/QM) - 1)*100)
   d_qmesesc <- log(VF/VI)/log(1+(TJ/100))
   d_vfinalc <- VI*(1+((TJ/100)^QM))


   escreval ("------------------------------------")
   escreval (" BEM VINDO A CALCULADORA FINANCEIRA ")
   escreval ("------------------------------------")

   escreval ("Por favor, informe a variável a ser calculada.")

   escreval ("----------------------------------------------------")
   escreval (" [0] para calcular o valor presente (juros simples) ")
   escreval (" [1] para calcular o valor presente (juros compostos) ")
   escreval (" [2] para calcular a taxa de juros (juros simples) ")
   escreval (" [3] para calcular a taxa de juros (juros compostos) ")
   escreval (" [4] para calcular a quantidade de meses (juros simples) ")
   escreval (" [5] para calcular a quantidade de meses (juros compostos) ")
   escreval (" [6] para calcular o montante (juros simples) ")
   escreval (" [7] para calcular o montante (juros compostos) ")
   escreval ("----------------------------------------------------")

   leia (D)
   se (D = 0)
      escreva (" Informe a taxa de juros em %: ")
      leia (TJ)
      escreva (" Informe a quantidade de meses: ")
      leia (QM)
      escreva (" Informe o montante: ")
      leia (VF)

      escreval (" O valor inicial é:", d_vinicials)

   senao
      se (D = 1)

         escreva (" Informe a taxa de juros em %: ")
         leia (TJ)
         escreva (" Informe a quantidade de meses: ")
         leia (QM)
         escreva (" Informe o montante: ")
         leia (VF)

         escreval (" O valor inicial é:", d_vinicialc)


      senao
         se (D = 2)
            escreva (" Informe o valor inicial: ")
            leia (VI)
            escreva (" Informe a quantidade de meses: ")
            leia (QM)
            escreva ("informe o montante: ")
            leia (VF)

            escreval (" A taxa de juros é:", d_tjuross)


         senao
            se (D = 3)
               escreva (" Informe o valor inicial: ")
               leia (VI)
               escreva (" Informe a quantidade de meses: ")
               leia (QM)
               escreva ("informe o montante: ")
               leia (VF)

               escreval (" A taxa de juros é:", d_tjurosc)


            senao
               se (D = 4)
                  escreva (" Informe o valor inicial: ")
                  leia (VI)
                  escreva (" Informe a taxa de juros em %: ")
                  leia (TJ)
                  escreva ("informe o montante: ")
                  leia (VF)

                  escreval (" A taxa de juros é:", d_qmesess)


               senao
                  se (D = 5)
                     escreva (" Informe o valor inicial: ")
                     leia (VI)
                     escreva (" Informe a quantidade de meses: ")
                     leia (QM)
                     escreva ("informe o montante: ")
                     leia (VF)

                     escreval (" A taxa de juros é:", d_qmesesc)


                  senao
                     se (D = 6)
                        escreva (" Informe o valor inicial: ")
                        leia (VI)
                        escreva (" Informe a taxa de juros em %: ")
                        leia (TJ)
                        escreva (" Informe a quantidade de meses: ")
                        leia (QM)

                        escreval (" O valor inicial é:", d_vfinals)


                     senao
                        se (D = 7)
                           escreva (" Informe o valor inicial: ")
                           leia (VI)
                           escreva (" Informe a quantidade de meses: ")
                           leia (QM)
                           escreva ("informe o montante: ")
                           leia (VF)

                           escreval (" A taxa de juros é:", d_vfinalc)

                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse

fimalgoritmo