第３講　ｆｏｒ文の学習

第５話　円周率π解答例

Form1例

コード例
#pragma once
#include<math.h>
namespace 円周率πの計算 {
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・
#pragma endregion
　　 private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
　　　　　　　　　　　double d,w=0;
　　　　　　　　　　　int i,n;

　　　　　　　　　　　//TextBoxから横幅を取得
　　　　　　　　　　　d=double::Parse(textBox1->Text);
　　　　　　　　　　　//長方形数を計算
　　　　　　　　　　　n=1/d;

　　　　　　　　　　　//１／４円の面積を計算
　　　　　　　　　　　for(i=0;i<=n;i++){
　　　　　　　　　　　　　w=w+d*sqrt(1-(i*d)*(i*d));
　　　　　　　　　　　}

　　　　　　　　　　　//円周率を表示
　　　　　　　　　　　textBox2->Text=(4*w).ToString();

　　　 　　　　}
};
}


実行結果例

円周率πは

3.14159 26535 89793 23846 26433 83279 50288 …

ですから、このような単純なプログラムでもかなり正確な値を出すことができることがわかります。
長方形の幅を小さくすればもっと正確な値になりますが、
小さくするに従って、計算時間もかなりかかるようになります。

第４話へ　第６話へ

vc++講義第１部へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ

数学研究室に戻る