いろんな言語で宿題スレ第三編

いろんな言語で宿題ス ..

90:デフォルトの名無しさん
09/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,_利率,_年目,_利息,_残高).

次ページ

続きを表示

1を表示