Algoritmos e Programação
Por: Filipe Nascimento Ferreira • 28/9/2019 • Trabalho acadêmico • 1.668 Palavras (7 Páginas) • 158 Visualizações
CAMPANHA NACIONAL DE ESCOLAS DA COMUNIDADE[pic 1]
FACULDADE CENECISTA DE UNAÍ-MG
FILIPE NASCIMENTO FERREIRA
Arquitetura e Organização de Computadores
Atividade Teórico Prática (ATP)
Professora: Renata Zanella
Março/2019
PARTE I
Pseudocódigo:
Algoritmo "InvestimentoBancario"
Var
cod_cliente,tipo_invest,mes: inteiro
jurosm,juros,capital,montante: real
Inicio
escreva("Digite o código do cliente: ")
leia(cod_cliente)
enquanto cod_cliente >0 faca
escreval
escreval("# ------- TIPOS DE INVESTIMENTOS -------#")
escreval("| |")
escreval("|1. Poupança tradicional - 0,50% a.m |")
escreval("|2. Poupança nova - 0,52% a.m |")
escreval("|3. CDB ou Letra de câmbio - 0,73% a.m |")
escreval("|4. Tesouro Direto (LFT) - 0,61% a.m |")
escreval("|5. LCI ou LCA - 0,69% a.m |")
escreval("|6. Fundos DI - 0,66% a.m |")
escreval("| |")
escreval("#--------------------------------------------------------#")
escreval
escreva("Digite o tipo de investimento: ")
leia(tipo_invest)
se (tipo_invest<=0) ou (tipo_invest>6) entao
escreval("Tipo de investimento inválido.")
senao
escreva("Digite o valor investido: R$ ")
leia(capital)
escreva("Digite a quantidade de meses: ")
leia(mes)
escolha tipo_invest
caso 1
jurosm:=capital*0.05
juros:=jurosm*mes
montante:=capital+juros
caso 2
jurosm:=capital*0.052
juros:=jurosm*mes
montante:=capital+juros
caso 3
jurosm:=capital*0.073
juros:=jurosm*mes
montante:=capital+juros
caso 4
jurosm:=capital*0.061
juros:=jurosm*mes
montante:=capital+juros
caso 5
jurosm:=capital*0.069
juros:=jurosm*mes
montante:=capital+juros
caso 6
jurosm:=capital*0.066
juros:=jurosm*mes
montante:=capital+juros
fimescolha
fimse
escreval
escreval("Rendimento mensal: R$ ",jurosm:1:2)
escreval("Total investido: R$ ",capital:1:2)
escreval("Total de juros pago: R$ ",juros:1:2)
escreval("Valor total: R$ ",montante:1:2)
escreval
escreval("APERTE
PAUSA
LIMPATELA
escreva("Digite o código do cliente: ")
leia(cod_cliente)
fimenquanto
escreval("Código inválido. O programa será encerrado.")
Fimalgoritmo
PARTE II
Pseudocódigo:
Algoritmo "InvestimentoBancario2"
Var
cod_cliente,mes,tip_inv: inteiro
capital, jurosm, juros, montante: real
funcao rendimento_mensal(): REAL
var
rend : REAL
inicio
escolha tip_inv
caso 1
rend:=capital*0.05
caso 2
rend:=capital*0.052
caso 3
rend:=capital*0.073
caso 4
rend:=capital*0.061
caso 5
rend:=capital*0.069
caso 6
rend:=capital*0.066
fimescolha
RETORNE rend
fimfuncao
funcao juros_total(): real
var
juros_c: real
inicio
juros_c:=jurosm*mes
retorne juros_c
fimfuncao
procedimento invest ()
inicio
limpatela
escreva("Digite o código do cliente: ")
leia(cod_cliente)
se (cod_cliente) >0 entao
escreval
escreval("# ------- TIPOS DE INVESTIMENTOS -------#")
escreval("| |")
escreval("|1. Poupança tradicional - 0,50% a.m |")
...