このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 132代目 #140 # # 多重繰り返し文を使って,z=1-(x2+y2)とz=0平面とで 囲まれる領域の体積の近似値を求めよ. # # です。よろしくおねがいします。 # # 'z=1-(x2+y2)とz=0平面とで 囲まれる領域の体積の近似値'(_刻み数,_体積の近似値) :- _刻み is 1 / _刻み数, 刻んで断面積ならびを得る(_刻み,0.0,L), 台形の積み上げ(L,_刻み,_体積の近似値). 刻んで断面積ならびを得る(_刻み,P,[]) :- P > 1.0,!. 刻んで断面積ならびを得る(_刻み,P,L1) :- 刻んで断面積ならびを得て行く(_刻み,P,L1). 刻んで断面積ならびを得て行く(_刻み,P,[U1|R]) :- U1 is (sqrt((P-1.0) * (-1.0)) ^ 2) * pi, P2 is P + _刻み, 刻んで断面積ならびを得る(_刻み,P2,R). 台形の積み上げ([A,B],H,S) :- S is (A + B) / 2 * H,!. 台形の積み上げ(L,H,S) :- 台形の積み上げて行く(L,H,S). 台形の積み上げて行く([A,B|R],H,S) :- U is (A + B) / 2 * H, 台形の積み上げ([B|R],H,S1), S is S1 + U.