このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1364700745/817
#  [1] 授業単元:プログラミング演習 
#  [2] 問題文(含コード&リンク): 
#    while文を用いて、金利が1%の銀行に10000円を預金した場合、 
#    預金額(deposit)が15000円になるのに何年(year)かかるかを表示するプログラムを作成せよ 
#   

'金利が1%の銀行に10000円を預金した場合、預金額が15000円になるのに何年かかるかを表示する'(_何年) :-
        '金利が1%の銀行に10000円を預金した場合、預金額が15000円になるのに何年かかるか'(10000,0,_何年),
        表示する(_何年).

'金利が1%の銀行に10000円を預金した場合、預金額が15000円になるのに何年かかるか'(_預金額,_何年,_何年) :-
        _預金額 >= 15000,!.
'金利が1%の銀行に10000円を預金した場合、預金額が15000円になるのに何年かかるか'(_預金額_1,_何年_1,_何年) :-
        _何年_2 is _何年 + 1,
        _預金額_2 is _預金額_1 * 1.01,
        '金利が1%の銀行に10000円を預金した場合、預金額が15000円になるのに何年かかるか'(_預金額_2,_何年_2,_何年).

表示する(_何年) :-
        writef('%t年掛かります。\n',[_何年]).