MAPA ALGORITMOS E LÓGICA DE PROGRAMAÇÃO I

Prévia do material em texto

Algoritmo MAPA
FUNÇÃO valorAtual(valor, somaValor: Real): Real
var
 total: real
inicio
 total<-(valor * 100) / somaValor
 retorne total
Fim_função
Var
 opt, soma:inteiro
 dados:vetor[1..5] de inteiro
 valores:vetor[1..5] de real
 somaValores:real
Inicio
 repita
 soma<-0
 Escreva("Indicação do valores percentuais sobre cada investimento")
 Escreva("CDBs /0 - não deseja Investir nessa Categoria")
 leia(dados[1])
 Escreva("Ações /0 - não deseja Investir nessa Categoria")
 leia(dados[2])
 Escreva("Fundos Imobiliários /0 - não deseja Investir nessa Categoria")
 leia(dados[3])
 Escreva("Stocks /0 - não deseja Investir nessa Categoria")
 leia(dados[4])
 Escreva("Reits /0 - não deseja Investir nessa Categoria")
 leia(dados[5])
 
 soma<- dados[1] + dados[2] + dados[3] + dados[4] + dados[5]
 se(soma <> 100)entao
 escreva("Os Valores não corespondem os 100%, Repita o procedimento")
 Fim_se
 Até_que(soma = 100)
 
 Escreva("Indicar os valores que já possui investido em cada categoria")
 Escreva("CDBs /0 - não deseja Investir nessa Categoria")
 leia(valores[1])
 Escreva("Ações /0 - não deseja Investir nessa Categoria")
 leia(valores[2])
 Escreva("Fundos Imobiliários /0 - não deseja Investir nessa Categoria")
 leia(valores[3])
 Escreva("Stocks /0 - não deseja Investir nessa Categoria")
 leia(valores[4])
 Escreva("Reits /0 - não deseja Investir nessa Categoria")
 leia(valores[5])
 somaValores<- valores[1] + valores[2] + valores[3] + valores[4] + valores[5]
 Escreva("Objetivos pretendido")
 Escreva("CDBs = ",dados[1]," %")
 Escreva("Ações = ",dados[2]," %")
 Escreva("Fundos Imobiliários = ",dados[3]," %")
 Escreva("Stocks = ",dados[4]," %")
 Escreva("Reits = ",dados[5]," %")
 
 Escreva("Objetivo atual")
 Escreva("CDBs = ",valorAtual(valores[1], somaValores)," %")
 Escreva("Ações = ",valorAtual(valores[2], somaValores)," %")
 Escreva("Fundos Imobiliários = ",valorAtual(valores[3], somaValores)," %")
 Escreva("Stocks = ",valorAtual(valores[4], somaValores)," %")
 Escreva("Reits = ",valorAtual(valores[5], somaValores)," %")
FIM