Question

Questão 09. Uma agência bancária possui vários clientes que podem fazer investimentos com
rendimentos mensais, conforme a tabela a seguir:


Faça um programa que receba um valor( é o montante ), o tipo de investimento escolhido, e uma
quantidade de meses a ser aplicado. Calcule e mostre o valor do lucro durante o período e o
montante total ao final. A leitura terminará quando o código do cliente digitado for menor ou
igual a zero.

OBs.
O montante é o valor aplicado.
Calculo do montante : mt + (mt * 1.5 /100)

Você deve usar 2 comandos de repetição e um comando escolha
Dentro do comando escolha você de usar um comando de repetição

Caso 1

Repetição
montante : mt + (mt * 1.5 /100) 1500

fimalgoritmo

Answer 1

Resposta:

Algoritmo "simuladorFinanceiro"

Var

  // Seção de Declarações das variáveis

  mt: real

  codCli, qtdMes: inteiro

  opc, erro: caractere

Inicio

  // Seção de Comandos, procedimento, funções, operadores, etc...

  mt <- 0

  codcli <- 0

  erro <- "0"

  opc <- "0"

  escreval()

  escreva("Informe o codigo do cliente: ")

  leia(codCli)

  repita

  repita

     escreval()

     escreva("Valor aplicado: ")

     leia(mt)

     ate (mt > 0)

     repita

        limpatela

        escreval("Simulador de investimento")

        escreval()

        escreval("Valor aplicado", mt)

        escreval()

        escreval("1 - Poupança")

        escreval("2 - Poupança Plus")

        escreval("3 - Fundos de renda Fixa")

        escreval()

        escreva("Escolha um rendimento: ")

        leia(opc)

     ate ((opc = "1") ou (opc = "2") ou (opc = "3"))

     escreval()

     escreva("Quantidade de Meses aplicados: ")

     leia(qtdMes)

     escreval()

     escolha opc

     caso "1"

        para qtdMes de 1 ate qtdMes passo 1 faca

           mt <- mt + (mt * 0.015)

        fimpara

     caso "2"

        para qtdMes de 1 ate qtdMes passo 1 faca

           mt <- mt + (mt * 0.02)

        fimpara

     caso "3"

        para qtdMes de 1 ate qtdMes passo 1 faca

           mt <- mt + (mt * 0.04)

        fimpara

     outrocaso

        escreval()

        escreval("***** Opção invalida! *****")

        escreval()

        erro <- "1"

     fimescolha

     se(erro = "0") entao

        escreval("Montante após ", qtdMes, " meses: ", mt)

        escreval()

     fimse

     escreva("Informe o codigo do cliente (0 - sair): ")

     leia(codCli)

  ate (codCli <= 0)

Fimalgoritmo

Explicação:

Para copiar e colar use o anexo em txt. Copiar e colar diretamente do site irá apresentar erro.

1ff6ba972e0bcb44434fff351a20929b.txt