このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/714
#  [1] 授業単元:cプログラミング1 
#  [2] 問題文(含コード&リンク): 
#  問題3:実数xを引数とし、数列an=1/n!(n=0,・・・9)を係数にもつ多項式f(x)=a0 + a1x + ・・・a8x^8 + a9x^9 
#  の値を計算して返す関数をforループを用い作成しmain文の中から呼び出し動作を確認する。 
#  

'実数xを引数とし、数列an=1/n!(n=0,・・・9)を係数にもつ多項式f(x)=a0 + a1x + ・・・a8x^8 + a9x^9の値を計算して返す'(X,_多項式の値) :-
        findsum(U,(
                    for(0,_n,9),
                    階乗(_n,_階乗),
                    U is (1 / _階乗) * X ^ _n),
                _多項式の値).