EX

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo "ex14"
Var
p:inteiro
v,s,parcela:real
 inicio
 escreval("Qual o valor do emprestimo que deseja? ")
 leia(v)
 escreval("Qual a quantidade de parcelas do emprestimo? ")
 leia(p)
 parcela<-(v/p)
 escreval("Valor do seu Salário Bruto: ")
 leia(s)
 Se parcela<=(s*30/100) entao
 escreval(" O valor desse empretimo é compatível com sua renda. ")
 senao
 fimse
 se parcela>(s*30/100) entao
 escreval("O valor do emprestimo não é compatível com sua renda. ")
 senao
 fimse
Fimalgoritmo