このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1286978599/487
#  [1] 授業単元:C++入門  
#  [2] 問題文(含コード&リンク):e^x(自然対数)をテイラー展開したとき、x=1で計算した場合の 
#  自然対数の値の近似値を求めなさい。なお、計算処理は第4項までとする。 
#  

'e^x(自然対数)をテイラー展開したとき、x=1で計算した場合の自然対数の値の近似値を求めなさい。なお、計算処理は第4項までとする。 ' :-
        'x=1で計算した場合の自然対数の値の近似値を求める'(1,4,1,_自然対数の値の近似値),
        write_formatted('第四項までの近似値は %t です\n',[_自然対数の値の近似値]).

'x=1で計算した場合の自然対数の値の近似値を求める'(M,N,S,S) :- M > N,!.
'x=1で計算した場合の自然対数の値の近似値を求める'(M,N,S1,S) :-
        階乗(M,Mの階乗),
        S2 is S1 + 1 / Mの階乗,
        M2 is M + 1,
        'x=1で計算した場合の自然対数の値の近似値を求める'(M2,N,S2,S).