@greenFlagが押されたとき
x座標を(0)、y座標を(0)にする
(90)度に向ける
全部消す
[再帰回数を入力してください。]と聞いて待つ
[回数 v]を(答え)にする
[長さ v]を(390)にする
[描画開始x座標 v]を(-195)にする
[描画開始y座標 v]を(((-195)*((3)の[平方根 v]::operators))/(2))にする
x座標を(描画開始x座標)、y座標を(描画開始y座標)にする
シェルピンスキーの三角形(回数)(長さ)::custom

定義 シェルピンスキーの三角形(回数)(長さ)
もし<(回数::custom)>(0)>なら
(3)回繰り返す
シェルピンスキーの三角形((回数::custom)-(1))((長さ::custom)/(3))::custom
(長さ::custom)歩動かす
↺(120)度回す
end
でなければ
塗りつぶしの三角形描画(長さ::custom)::custom
end

定義 塗りつぶしの三角形描画(長さ)
もし<(長さ::custom)>(0)>なら
塗りつぶしの三角形描画((長さ::custom)-(0.1))::custom
ペンを下ろす
(3)回繰り返す
(長さ::custom)歩動かす
↺(120)度回す
end
ペンを上げる
end

@greenFlagが押されたとき

緑みどりの旗はたが押おされたとき、スすクくリりプぷトとを開かい始しする

x座標を(0)、y座標を(0)にする
(90)度に向ける

スすプぷラらイいトとを、原げん点てんに移い動どうして、右みぎに向むける

全部消す

白はく紙し状じょう態たいにする

[再帰回数を入力してください。]と聞いて待つ
[回数 v]を(答え)にする

キきーーボぼーードどから入にゅう力りょくした数すう値ちを変へん数すう「回かい数すう」に格かく納のうする

[長さ v]を(390)にする
[描画開始x座標 v]を(-195)にする
[描画開始y座標 v]を(((-195)*((3)の[平方根 v]::operators))/(2))にする

変へん数すうの初しょ期き設せっ定てい

x座標を(描画開始x座標)、y座標を(描画開始y座標)にする
シェルピンスキーの三角形(回数)(長さ)::custom

描びょう画がを開かい始し位い置ちに移い動どうして定てい義ぎ「シしェぇルるピぴンんスすキきーーの三さん角かく形けい」を実じっ行こうする

定義 シェルピンスキーの三角形(回数)(長さ)

定てい義ぎ「シしェぇルるピぴンんスすキきーーの三さん角かく形けい」が呼よび出だされたとき、スすクくリりプぷトとを開かい始しする

もし<(回数::custom)>(0)>なら
でなければ
end

引ひき数すう「回かい数すう」が0になるまで再さい帰きを実じっ行こうする

(3)回繰り返す
シェルピンスキーの三角形((回数::custom)-(1))((長さ::custom)/(3))::custom
(長さ::custom)歩動かす
↺(120)度回す
end

引ひき数すう「回かい数すう」を減へらして定てい義ぎ「シしェぇルるピぴンんスすキきーーの三さん角かく形けい」を実じっ行こうして、次つぎの位い置ちへ移い動どうする

塗りつぶしの三角形描画(長さ::custom)::custom

定てい義ぎ「塗ぬりつぶしの三さん角かく形けい描びょう画が」を実じっ行こうする

定義 塗りつぶしの三角形描画(長さ)

定てい義ぎ「塗ぬりつぶしの三さん角かく形けい描びょう画が」が呼よび出だされたとき、スすクくリりプぷトとを開かい始しする

もし<(長さ::custom)>(0)>なら
end

引ひき数すう「長ながさ」が0になるまで再さい帰きを実じっ行こうする

塗りつぶしの三角形描画((長さ::custom)-(0.1))::custom

引ひき数すう「長ながさ」を減へらして定てい義ぎ「塗ぬりつぶしの三さん角かく形けい描びょう画が」を実じっ行こうする

ペンを下ろす
(3)回繰り返す
(長さ::custom)歩動かす
↺(120)度回す
end
ペンを上げる

三さん角かく形けいを描びょう画が