Algoritmo visualg " Financiamento Bancario"

[marciorbsb 0]

Desenvolva o seguinte algoritmo:

1- Perguntar ao usuário se ele possui cadastro Caso positivo solicitar o código de acesso, se não o usuário deverá preencher seus dados pessoais: ( Nome. Endereço, Cidade, Estado, Ano de Nascimento, Filiação,Estado Civil, CPF RG, Profissão, Salário, Sexo, Tempo de Serviço).

2-Dados Financeiros:
Verificar quantidade de pessoas na família, que possui renda. Solicitar o valor salarial de cada membro da família
Totalizar o rendimento familiar

3-Apresentar na tela o seguinte menu de Opções
(1)-Financiamento de Residencial
(2)-Financiamento de Comercial
(3)-Financiamento de Carros
(4)-Financiamento de Moto
(5)-Financiamento de Estudantil – FIES
(6)-Sair do Sistema

Caso a opção =1: Solicitar
Valor financiado
Valor de Entrada
Juros % a.a
Tempo de financiamento

Calcular:
a) Valor total do Financiamento
Valor Financiado + (Valor Financiado – Valor Entrada)* Juros%

b) Valor da parcela
( Valor total do Financiamento / Tempo de financiamento)

REGRAS
1- O financiamento não poderá ultrapassar 40% da renda
familiar
2- Somente será autorizado o financiamento ao empregado com
3 anos ou mais de tempo de serviço.

Informar ao usuário se o empréstimo foi autorizado, qual o valor
total e o valor de cada parcela.

 

 

GALERA JÁ FIZ ATÉ AQUI MAS NÃO SEI SE ESTOU FAZENDO A COISA CERTA ME AJUDA POR FAVOR...

 

algoritmo "FINANCIAMENTO BANCARIO"

// Função :GERENCIAR FINANCIAMENTO BANCARIO

// Autor :MARCIO

// Data : 2/8/2013

// Seção de Declarações

var

sexo,profissao,civil,cadastro,cadastro2,nome,cidade,filiacao,estado:literal

sistema:literal

cpf,salario,idade,tempo,codigo,rg:real

endereco:caracter

familia,renda,renda2,renda3,desejo:inteiro

financiamento,entrada,financiamento2:inteiro

juros,juros2,v_financiamento:real

inicio

escreval(" ------------|Bem vindo ao banco dos malas|------------ ")

escreval("")

escreval("Você possui já possui um cadastro?[sim/não]")

leia(cadastro)

se(cadastro="nao")entao

escreval("Deseja fazer um cadastro?[sim/não]")

leia(cadastro2)

se(cadastro2="sim")entao

escreval("Dijite seu nome")

leia(nome)

escreval("Dijite seu endereço")

leia(endereco)

escreval("Dijite sua cidade")

leia(cidade)

escreval("Dijite seu estado")

leia(estado)

escreval("Dijite sua data de nascimento")

leia(idade)

escreval("Dijite os nomes do seu pai e mãe")

leia(Filiacao)

escreval("Dijite seu estado civil")

leia(civil)

escreval("Dijite seu cpf")

leia(cpf)

escreval("Dijite ser RG")

leia(rg)

escreval("Dijite sua profissão")

leia(profissao)

escreval("Dijite seu salario")

leia(salario)

escreval("Dijite seu sexo")

leia(sexo)

escreval("Dijite seu tempo de serviço")

leia(tempo)

escreval("")

limpatela

escreval("*********Cadastrado com sucesso**********")

escreval("Deseja entra no sistema?[sim/não]")

leia(sistema)

se(sistema="sim")entao

senao

escreval("Conta finalizada com sucesso")

fimalgoritmo

fimse

senao

escreval("Então o que você veio fazer aqui?-.-'")

fimalgoritmo

fimse

fimse

escreval("Porfavor Dijite seu codigo de acesso")

leia(codigo)

limpatela

escreval(" --------Seja bem vindo ao sistema malas--------")

escreval("Por favor informe seus dados Financeiros")

escreval("")

escreval("Quantas pessoas existem na sua familia?")

leia(familia)

escreval("Quantas possuem renda?")

leia(renda)

escreval("Dijite o Valor da renda de cada um")

para renda2 de 1 ate renda faca

leia(renda3)

renda3<-renda3+

fimpara

escreval("")

limpatela

escreval(" Escolha o que você deseja fazer")

escreval("")

escreval("1)Financiamento de Residencia")

escreval("2)Financiamento de Comercial")

escreval("3)Financiamento de Carros")

escreval("4)Financiamento de Moto")

escreval("5)Financiamento de Estudantil-FIES")

escreval("6)Sair do sistema")

leia(desejo)

escreval("")

limpatela

se(desejo=1)entao

escreval("Qual o valor do financiamento?")

leia(financiamento)

escreval("Qual valor da entrada?")

leia(entrada)

escreval("Qual a taxa de juros?")

leia(juros)

escreval("Quantos anos sera o financiamento?")

leia(financiamento2)

escreval("")

limpatela

escreval(renda2)

juros2<-juros/100

v_financiamento<-financiamento+(financiamento-entrada)*(juros/100)

escreval("Valor do financiamento sera",financiamento+(financiamento-entrada)*juros2,"$")

escreval("Valor de cada parcela sera",v_financiamento/financiamento2,"$")

fimse

fimalgoritmo

[Sergio Cavalcante 6]

amigão aconselho a trabalhar com vetores.... vai ficar um código mais enxuto....