何シンプソンの方法であり、言語パスカルでそれを実装する方法

シンプソンの方法 - 整数の値を計算するには、おおよそいえ、その作成者にちなんで名付けられた優れた方法があります。 それは放物線の建設を使用しているため、彼はまた、放物線メソッドを呼び出しました。 この図は、関数のできるだけ近くに基づいています。 実際には、機能のポイントと正確に一致するポイント放物線を構築するためにどのような方法は、それが不可能であり、積分は近似しています。 1 / H×（Y + 4Y _{0 1} + 2Y ₂ + 4Y ₃ + ... + 4Y _N-1 + Y _N）とBとの境界の式の場所は、次のようになります_。 ここで、私たちはどこ、0からnまでの各Yを計算する必要があるのn我々は自分自身を定義する - より多くの、より良い、より多くのyのため、我々の仕事の真の値に、より近似。 （BA）/（N-1）：Hに対して、そして、このステップは、以下の式によって算出されます。

理論的には、すべてが非常に簡単ですが、実際には、これをすべて実装する必要があります。 PascalやDelphiの - 多くのプログラマのためにシンプソンの方法として、この問題を解決するには良い方法ではありません。 このような環境では、積分を評価するために、だけでなく、それに関数のグラフを構築するだけでなく、非常に簡単であり、さらに彼女のブランコを構築しました。 そこで、我々は必要な場合は、すぐにシンプソンの方法を実装することができ、さらには説明する方法を見て、両方ともここにその組織化され、興味を持ってすべてのものを。

しかし、私はそれがこの整数の前にどのように見えるかを覚えています。 「X」軸、すなわちAとBで始まる行で囲まれているこの図。

私たちは、積分を見つけるれる=と何か：だから、プログラムを起動するために、あなたは可積分単にF書かなければならない機能（トートロジーはご容赦）、のための関数を作成する必要があります。 ここでは、パスカルで関数を入力する際に誤るしないことが重要です。 しかし、それは別の話です。 結果のコードは次のようになります。

関数f（x：実数）：実。

そして、基本的なテキスト機能

始めます

F：= 25 * LN（X）+ SIN（10）。 {ここで、あなたはその機能の内容を記述する必要があります}

エンド;

その後、シンプソンの方法を実装する関数を記述します。 スタートのようなものになります。

関数simpsonmetod（B：実; N：整数）：実数。

次に、我々は変数を宣言します。

VAR

S：本当。 {小計（さらに理解）}

H：本物。 {ステップ}

私：整数; ちょうど{カウンタ}

MNO：整数; {}次乗算器

そして今、実際には、プログラム自体：

始めます

H：=（B-A）/（N-1）。 {標準式に従ってステップを期待。 時々ステップ}は、ジョブに書き込まれ、この場合、この式は適用されません

S：= F（B）+ F（A）。 {与えられた初期ピッチ値}

MNO：= 4。 { -この4ここに綴られ、第二因子は2であるが、よりこの後に1 / H×（Y + 4Y _{0 1 ...}式を記憶}

その同じ基本的な式を今すぐ：

= 1からn-2に始めるん：私のために

S = S + MNOの*のF（A + H * MU）。 要約すると、{4 * Y _nまたは2 * Y _nを乗じた他の要因を追加_}

IF（MNO = 4）次に、MNO：他MNO = 2：= 4; {この係数は変化し、 - 今4である場合、2およびその逆に変更します}

エンド;

simpsonmetod：= sの* H / 3。 次式に従って、{サイクル得られた和は、H / 3が乗算されます}

終わり。

それはそれだ - 式に従ってすべてのアクションを実行します。 あなたは、メインプログラム方法に適用する方法を考え出したていない場合はシンプソンの例は、これであなたを助けます。

だから、すべての書き込み機能を書き込んだ後

始めます

N = 3。 我々は、セット{n}は

Q：= simpsonmetod（B、N）。 {シンプソンの方法は、Bの積分を計算することであるので、そこにいくつかの計算ステップであるので、サイクルを手配します}

繰り返します

Q2：= Q; {記憶前のステップ}

N = N + 2。

Q：= simpsonmetod（B、N）。 次のように{と}の値が算出されます

まで（ABS（Q-Q2）<0.001）; {必要な精度に達するまで、同じ操作を繰り返す必要があるように設定精度は、書き込まれています}

シンプソンの方法 - ここで彼です。 実際には、何も複雑な、すべてが非常に迅速に書き込まれません！ 今すぐあなたのTurbo Pascalのを開いて、プログラムを書き始めます。