- 90 名前：デフォルトの名無しさん mailto:sage [2009/12/26(土) 06:36:52 ]
- '30年後の残高'(_単利か福利か,_元金,_利息,_30年後の残高) :-
findall(_残高1,残高(_単利か複利か,30,_元金,_利率,_,_,_残高1),_残高ならび),
last(_残高ならび,_30年後の残高).
残高(_単利か複利か,_期間,_元金,_利率,_年目,_利息,_残高) :-
length(L,_期間),
残高(_単利か複利か,L,[_],_元金,_元金,_利率,_年目,_利息,_残高).
残高(単利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
_利息 は 切り捨て(_元金 * _利率),
_残高 is _残高1 + _利息,
length(L1,_年目),
write_formatted('%t年目 利息=%t 残高=%t\n',[_年目,_利息,_残高]).
残高(複利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
_利息 は 切り捨て(_残高1 * _利率),
_残高 is _残高1 + _利息,
length(L1,_年目),
write_formatted('%t年目 利息=%t 残高=%t\n',[_年目,_利息,_残高]).
残高(単利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
_利息1 は 切り捨て(_元金 * _利率),
_残高2 is _残高1 + _利息1,
残高(単利,R1,[_|L1],_元金,_残高2,_利率,_年目,_利息,_残高).
残高(複利,[_|R1],L1,_元金,_残高1,_利率,_年目,_利息,_残高) :-
_利息1 は 切り捨て(_残高1 * _利率),
_残高2 is _残高1 + _利息1,
残高(複利,R1,[_|L1],_元金,_残高2,_利率,_年目,_利息,_残高).
|
 |
