円周率　　　　作品例：円周率.mwx

コンピュータが作図して、円周率を求める方法です。
カメで円を書かせて、きょりを調べて、円周率を求めよう。

＜学習内容＞
・変数としてのテキストボックスの利用
・１ずつふえる方法（カウンター）

でカメが円を書きます。

　カメが進んだきょりと円の直径から、円周率が分かります。

　

で、円の大きさを変えても円周率は同じです。

＜考え方＞
・右へ１度回転し、前へ１進むを３６０回くりえすと円になります。
・右へ１度回転し、前へ１進むを１８０回くりえしたときの出発点とのきょりが円の直径です。

＜プログラミング＞　円周率のもとを左クリックしてはじめましょう。

１．GO の手順を作ります。

（１）初期設定のプログラムを書きます。

英語	日本語
to GO setS 0 setL 0 setF 0 everyone[setpos[-150 0]] clean kame2, pd	手順は　GO Sは　０ Lは　０ Fは　０全部「位置は「-１５０　０」絵だけ消す kame2、　ペンを下ろす

（２）半円を書いて、スタート位置とのきょりを調べて直径とするプログラムを書きます。

英語	日本語
repeat 180 [ forward p setS S + p right 1 ] setL distance "kame1	くりかえす　１８０「前へ　p Sは　S　+　p 右へ　１ Lは　きょり　”kame1

（３）のこりの半円を書いて、円を書いたカメが進んだ数を円周として、円周率を出すプログラムを書きます。

英語	日本語
repeat 180 [ forward p setS S + p right 1 ] setF S / L end	くりかえす　１８０「前へ　p Sは　S　+　p 右へ　１ Fは　S　÷　L 終わり

でカメが円を書きます。

　カメが進んだきょりと円の直径から、円周率が分かります。　

で、円の大きさを変えても円周率は同じです。