このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/565
# [1] 授業単元:プログラミング演習 
# [2] 問題文(含コード&リンク): 
# http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10209.txt
# 以下の実行結果を元に、元金[円]と年利[%]と預金年度をキーボードから入力させ、
# 10年間預金したときの毎年度の利息と元利合計を表示するプログラムを作成、コンパイル、実行しなさい。
# なお、利息は複利で計算し、毎年度の利息の円単位未満は切り捨てること。
# 元金[円]を入力してください : 3613 enter↓
# 年利[%]を入力してください  : 9.6 enter↓
# 預金年度を入力してください : 2009 enter↓
# +-----------+------------+-----------+
# | 年度    |  利息  |  元利合計| 
# +-----------+------------+-----------+
# |   2009 |      |   3613 |
# |   2010 |    346 |   3959 |
# |      2011 |        380 |      4339 |
# |      2012 |        416 |      4755 |
# |      2013 |        456 |      5211 |
# |      2014 |        500 |      5711 |
# |      2015 |        548 |      6259 |
# |      2016 |        600 |      6859 |
# |      2017 |        658 |      7517 |
# |   2018 |    721 |   8238 |
# |   2019 |    790 |   9028 |
# +-----------+------------+-----------+

'10年間預金したときの毎年度の利息と元利合計を表示' :- 
    催促付き整数入力('元金[円]を入力してください  : ',_元金1), 
    催促付き整数入力('年利[%]を入力してください : ',_年利), 
    催促付き整数入力('預金年度を入力してください : ',_預金年度1), 
    write('+-----------+------------+-----------+\n'), 
    write('| 年度      |    利息    |   元利合計|\n'). 
    write('+-----------+------------+-----------+\n'), 
    元利合計計算(_預金年度1,_預金年度,_年利,0,_元金1,_元利合計), 
    年度ごとに表示(_預金年度1,_預金年度,_利息,_元利合計), 
    _預金年度 is _預金年度1 + 10, 
    write('+-----------+------------+-----------+\n'),!. 

元利合計計算(_預金年度,_預金年度,_年利,_利息,_元金,_元金). 
元利合計計算(_預金年度1,_預金年度,_年利,_,_元金1,_元金) :- 
    _利息2 is truncate(_元金1 * _年利 / 100), 
    _元金2 is _元金1 + _利息2, 
    _預金年度2 is _預金年度 + 1, 
    元利合計計算(_預金年度2,_預金年度,_年利,_利息2,_元金2,_元利合計). 

年度ごとに表示(_預金年度,_預金年度,_利息,_元利合計) :- 
    write_formatted('|      %t |           |  %8d |\n',[_預金年度,_元利合計]),!. 
年度ごとに表示(_,_預金年度,_利息,_元利合計) :- 
    write_formatted('|      %t |  %8d |  %8d |\n',[_預金年度,_元利合計]),!.