円周率を求めるプログラム2

ソース
プログラム

# 円周率を求めるプログラム2
# 正弦定理を使って円周率を求めます。
# 
# 正弦定理を使って円に外接する正多角形の辺を４,８,１６,・・・
# と増やして円周率を求めます。
# 
# 半径１の単位円を考えるとき
# 円の直径は２なので、一辺が２の外接正4角形ができます。
# 一辺が2なので4辺の合計が8
# その円周率は、2で割って4になります。
# そして、正多角形の辺を４・８・１６・・・として
# 円に外接する正多角形の辺を増やして円周率に近づけます。
# 
# 参考文献など
# シグマベスト 数学Ⅱ＋B 　藤田宏　文英堂
# 改訂版チャート式 基礎と演習 数学Ⅰ＋A チャート研究所 数研出版
# NHK高校講座　TV　　数学 Ⅰ,  A　数学 Ⅱ 
# NHK　TV　3か月でマスターする　数学
# 日本語だからスイスイつくれる
# プログラミング入門教室　クジラ飛行机　マイナビ出版

３に線太さ設定。
黒色に線色設定。
白色に塗色設定。

[250,150]へ100の円描画。

//横線
[150,50]から[350,50]へ線描画。
[150,150]から[350,150]へ線描画。
[150,250]から[350,250]へ線描画。

//縦線
[150,50]から[150,250]へ線描画。
[250,50]から[250,250]へ線描画。
[350,50]から[350,250]へ線描画。

//斜線
[250,150]から[350,50]へ線描画。

//文字
黒色に塗色設定。
20に描画フォント設定。
[290,45]へ「a」を文字描画。
[230,100]へ「b」を文字描画。
[255,130]へ「A」を文字描画。
[315,70]へ「B」を文字描画。
[255,70]へ「C」を文字描画。
[300,120]へ「c」を文字描画。

//説明
15に描画フォント設定。

[50,15]へ「図のような、辺がa,b,cの三角形を考え」を文字描画。
[50,35]へ「辺aの長さを求めたいとき」を文字描画。

[50,280]へ「三角形の内角の和が１８０度より、」を文字描画。
[50,300]へ「∠A＋∠B＋∠C＝１８０」を文字描画。
[50,320]へ「∠Cは、円の接線のため常に９０度より、」を文字描画。
//[50,340]へ「∠A＋∠B＝１８０ー９０」を文字描画。
[50,340]へ「∠B＝９０ー∠A」を文字描画。
[50,360]へ「また、正弦定理により、a/SIN(A)=b/SIN(B)」を文字描画。
[50,380]へ「bは、半径なので常に１より、a=SIN(A)/SIN(B)」を文字描画。
[50,400]へ「また、b=90-Aなので、a=SIN(A)/SIN(90-A)　が考えられます。」を文字描画。


ボタン＝「数値入力」のボタン作成。
ボタンをクリックした時には
中心角=45
A=中心角をラジアン変換
B=(90-中心角)をラジアン変換
//b=1
z=0

 「円の中心角=∠Aを、45度からおよそ何度で分けますか？
 　　入力範囲　45>=∠A>=0.01
　　例　　1
  」と尋ねて中心角2に代入。
「　　　　下へスクロールお願いします。」と表示。

 もし、中心角2<0.01　ならば、中心角2=0.01
 もし、中心角2>45　ならば、中心角2=45

  中心角>中心角2/2の間
    A=中心角をラジアン変換
    B=(90-中心角)をラジアン変換
    a=SIN(A)/SIN(B)

  「円に外接する正多角形が正{4*2^z}角形のとき」と表示。
  「∠Aは、{中心角} 度」と表示。
  「辺aの長さは、a=SIN({中心角})/SIN(90-{中心角})」と表示。
  「　　　　　　  a={SIN(A)}/{SIN(B)}」と表示。
  「 　　　　　　 a={a}」と表示。
  「1辺の長さは、{a*2}」を表示。
  「外接正{4*2^z}角形の辺の長さの合計は、{a*2*4*2^z}」を表示。
  「その円周率は、{ a*2*4*2^z/2を7で小数点切り下げ}」を表示。
　「」と表示。
　 中心角=中心角/2
  　z=z+1
 ここまで。
「　※　(/) は、割り算を表します。
」と表示。
「 ブラウザにセットされている円周率（パイ）は、
　　　PI＝{PI}　　です。
   」と表示。

「　　※ただし、これらの数値を保証するものではありません。
　　　参考としてください。」と表示。
ここまで。

「　正弦定理を使って円周率を求めます。」と表示。
「下の数値入力ボタンをクリックして、
円をおよそ何度まで分割するか入力お願いします。」と表示。
作品について
作品情報

作品を編集
市来吉広作
ライセンス: MIT（改変可/表示）
形式: wnako
タグ: -
利用バージョン: 3.4.20
アクセス数(累計): 33
アクセス数(今月): 33
更新日時: 2026/08/03 07:03 編集: 2026/08/03 07:12
作品公開情報
交流
円周率を求めるプログラム2

プログラム

作品情報

コメント
