このディレクトリの索引
#  出典: http://pc12.2ch.net/test/read.cgi/tech/1244449887/742
# [1] 授業単元: C
# [2] 問題文(含コード&リンク):年r%の複利でy円を借り、n年後に一括返済する場合の返済額を計算するプログラムを作成せよ
#               ただしr%の複利でn年借りた場合の利率を計算する部分を関数として作成すること。
# 表示結果の例
#     利率(r):7.5
#     金額(y):1000000
# 期間(n):2
# 返済金額は1155625
# ヒント:返済金額は (1+r/100)のn乗円である。r%の複利でn年間の利率(1+r/100)のn乗を計算する関数
#     float interest(float r, int n)を作る。そしてmain()からinterest()を呼び出し、返された値にyを掛けて返済額を求める。 

interest(_r,_n,_n年の複利利率) :-
        'r%の複利でn年間の利率(1+r/100)のn乗を計算する'(_r,_n,_n年の複利利率).

'r%の複利でn年間の利率(1+r/100)のn乗を計算する'(_年利率,_n年,_n年の複利l利率) :-
        _n年の複利利率 is (1 + _年利率 / 100) ^ _n年.

返済額(_金額,_年利率,_n年,_返済額) :-
        'r%の複利でn年間の利率(1+r/100)のn乗を計算する'(_年利率,_n年,_n年の複利利率),
        _返済額 is _金額 * _n年の複利利率.