13 - emprestimo

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

emprestimo:-
	write('digite o valor do salario'),nl,
	read(S),
	write('digite o valor do emprestimo'),nl,
	read(E),
	write('informe a quantidade de prestacoes'),nl,
	read(P),
	analisa(S,E,P).
analisa(S,E,P):-
	ValorP is E/P,
	ValorMax is S*0.30,
	write('valor da prestacao = ':ValorP),nl,nl,
	write('Valor maximo aceito = ':ValorMax),nl,
	ValorP =< ValorMax,
	write('Emprestimo concedido'),!.
analisa(_,_,_):-
	write('emprestimo nao concedido.').