このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1255709298/365
#  [1] 授業単元:プログラミング  
#  [2] 問題文(含コード&リンク): http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10019.txt
#
# 区分積分法を用いて、 y=3x*x , (0 ≦ x ≦1)の面積を求めるプログラム

f(X,Y) :- Y is 3 * X * X.

区分求積法(M,Sum) :-
    findsum(U,(for(0,N,M),V is N / M,f(V,W),U is 1.0 / M * W),Sum).