このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/240
#  [1] 授業単元: プログラミング論
#  [2] 問題文(含コード&リンク):  
#  http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10150.txt 
#   
#  問2(1)を書きました。添削・解説お願いします。 
#  http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10151.txt

# 問1
# 遊びの金に困ったA君は、サラ金を利用することにした。
# 日歩20銭で10万円借りた場合、30日後の利息はいくらでしょうか?
# 複利計算で求めなさい。
# 
# 問2
# (1)10万円を年利4分で預金したとき、10年後の元利合計を複利計算で求めよ。
# (2)前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示せよ。

日歩20銭で10万円借りた場合、30日後の利息(_30日後の利息) :-
    日歩20銭とは(_日歩20銭),
    _30日後の利息 is _預金 * _日歩20銭^30 - _預金.

日歩20銭とは(_日歩20銭) :- _日歩20銭 is 20 / 100 / 100.

年利4分とは(0.04).

10万円を年利4分で預金したとき、10年後の元利合計(_10年後の元利合計) :-
    年利4分とは(_年利4分),
    _10年後の元利合計 is 100000 * ( 1 + _年利4分) ^ 10.

前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示 :-
    前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示(1,100000,0).

前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示(N,_,_) :- N > 10,!.
前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示(N,_預金額,_前年度の利息) :-
    年利4分とは(_年利4分),
    _今年の利息 is _預金額 * _年利4分,
    _次年度の預金額 is _預金額 * _年利4分,
    _前年度の利息との差額 is _今年度の利息 - _前年度の利息,
    write_formatted('%t年後 前年度との利息差額は %t です\n',[N,_前年度の利息との差額]),
    N2 is N + 1,
前年の利息がどのくらいずつ増えてゆくか、前年度の利息との差額を表示(N2,_次年度の預金額,_今年度の利息).