関数f(x)をx=aからx=bまで数値積分するには

---

f(x)＝４／(ｘ^２ ＋1) をｘ＝０からｘ＝１までを20分割して積分する。　　解析値はπである。
�@積分の下限ａ，上限ｂ，分割数ｎを入力           Ｂ２，Ｂ３，Ｄ２
�Aステップｈ＝(ｂ−ａ)／ｎを計算　　　　　　　　　Ｄ３　
�Bｘの値はａからｂまでｈ刻み　　　　　　　　　　　Ｂ５〜Ｂ２５
中点公式
�Cｋが奇数の場合のｆ(ｘ)を計算し，その合計        Ｃ６〜Ｃ２４，Ｃ２６
�Dそれを２ｈ倍する。　　　　　　　　              Ｃ２７
台形公式
�Cすべてのｋに対するｆ(ｘ)を計算し，その合計　　　Ｄ５〜Ｄ２４，Ｄ２６
�D　　　　　　　　　ｆ(ｘ＋ｈ)を計算し，その合計　Ｅ５〜Ｄ２４，Ｅ２６
�Eその両者の和をｈ／２倍する。　　　　　　　　　　Ｄ２７
シンプソン公式
�Cｋが偶数の場合に対するｆ(ｘ)を計算し，その合計　　　　Ｆ５〜Ｆ２３，Ｆ２６
�D　　　　　　　　　　　ｆ(ｘ＋ｈ)を計算し，その合計　　Ｇ５〜Ｇ２３，Ｇ２６
�E　　　　　　　　　　　ｆ(ｘ＋２ｈ)を計算し，その合計　Ｈ５〜Ｈ２３，Ｈ２６
�FＦ２６＋４*Ｇ２６＋Ｈ２６をｈ／３倍する。 　　　　　　Ｆ２７　
なおｆ(ｘ)は関数として定義しておくとよい。