このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1267796762/806
#    
#  【 課題 】利息計算:年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後かを求めなさい.rを0.2から5.0まで0.2刻みで求めなさい.  
#  鶴亀算:頭の数と足の数を入力し,鶴と亀の数を出力しなさい.計算できない場合は,その旨メッセージを出力しなさい.  
#  【 形態 】1. Javaアプリケーション(main()で開始)  
#  【 GUI 】制限なし  
#  【 期限 】1/23  
#  【 Ver 】1.6.0_21  
#  【 補足 】プログラムに適切なコメントを入れてください.  
#   
#  よろしくお願いします  
# 
# 


'利息計算:年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後か。rを0.2から5.0まで0.2刻みで求める'(_r,[]) :-
        _r >= 5.0,!.
'利息計算:年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後か。rを0.2から5.0まで0.2刻みで求める'(_r,[[_r,_何年後]|R]) :-
        '年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後か'(0,1.0,_r,_何年後),
        _r2 is _r + 0.2,
        '利息計算:年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後か。rを0.2から5.0まで0.2刻みで求める'(_r2,R).


'年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後か'(_何年後,S,_r,_何年後) :- S >= 2.0,!.
'年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後か'(N,S,_r,_何年後) :-
        S is (1 + _r) ^ N,
        N2 is N + 1,
        '年利 r%で預金したとき,元利合計が当初の2倍になるのは何年後か'(N2,S,_r,_何年後).