このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 131代目 #358 # [1] 授業単元: プログラミング演習 # [2] 問題文(含コード&リンク): # (1)ライプニッツの公式を用いて円周率の近似値を求める時、 # その値が3.14から3.15の間になるまで # nを増やしていき、そのnの値(繰り返し回数)を求めるプログラムを作成せよ。 # # (2)ライプニッツの公式を用いて円周率の近似値を以下の条件で求めよ。 # nの値が増えるにつれ、それまでの近似値の平均値を求め、近似値と平均値の # 差が平均値の1%におさまるまで繰り返す。 ライプニッツの公式(Pai) :- findsum(U,(between(0,1000000,N),U is (-1 ^ N) / ( 2 * N + 1)),S), Pai is 4 * S. findsum(_射影項,_目標,_合計) :- findall(_射影項,_目標,L), sum_list(L,_合計).