今までのおさらい：
意外にもこのコーナーは地味な人気に支えられて、底堅いものがあるようで素朴に感動している。素数とは何か？素因数分解とは？最大公約数とは？或いは最小公倍数とはどういうものか？といった数学の基礎の基礎を再認識していただけたことと思う。その延長線上で連立方程式を解くという動機づけがなされた教育が行われてきたかということを考えると甚だ疑問である。
年配者は年配者で、このような整数の美しさを教えられた上で、方程式の解法を学んでいたら、もっと数学が好きになっていたかも知れない、本当は「数学」とは興味深いものであったと大いに再認識してくださっても、或いは柔らかい脳を持ったこれからの少年に「数学への興味を喚起」する一助にでもなれば、それはそれでそれで私としては十分である。
起源一世紀頃、古代ギリシャの国に「へロン」という数学者だか技術者だか奇術師だか分らぬような人物がいました。そのへロンが残した偉大な三角形の面積を求める公式というのがあります。この公式はイギリスが誇るニュートンが十七世紀になって発見したと大喜びしていたところ、既に起源一世紀にへロンによって発見済みということを知るところとなり、ガッカリしたといういわくつきの公式である。
この公式というのは、三角形の三辺の長さを測って面積を求めるというものです。「三辺法」とか「へロンの公式」という名称で親しまれています。
へロンの公式：三角形の辺の長さを使って、その面積を計算する公式。
三つの辺の長さをａ、ｂ、ｃとし、２ｓ＝ａ＋ｂ＋ｃとおけば、面積は、ＳＱＲ（ｓ（ｓ－ａ）（ｓ－ｂ）（ｓ－ｃ））デ与えられる。「ＳＱＲとはスクウェア・ルート、平方根という意味である」
今日は、この「へロンの公式」をプログラミングして、今迄このコーナーに付き合ってくださいました方々に感謝したいと思います。
今までのプログラムは「songzhaoのライブラリー」として、ひとまとめにしたいと思いますので、１０００行目から打ち込んでください。
１０００ ＲＥＭ＊＊＊へロンノコウシキ
１０２０ ＣＬＥＡＲ：ＣＬＳ：ＰＲＩＮＴ”＜ヘロン ノ コウシキ＞”：ＩＮＰＵＴ”サンカクケイノスウ”；Ｎ
１０３０ ＤＩＭ Ｌ（Ｎ－１,２）,Ｓ（２,Ｎ－１）,Ｔ（２,１）,Ｈ（Ｎ,－１）,Ｂ（Ｎ－１）
１０４０ ＩＮＰＵＴ”データＰｒｇ． ”；ＤＴＰ：ＧＯＳＵＢ＃ＤＴＰ：ＦＯＲ Ｊ＝０ ＴＯ Ｎ＝１：ＰＲＩＮＴ”＊”；
１０５０ Ｌ＝０：Ａ＝Ｌ（Ｊ,０）：ＦＯＲ Ｋ＝０ ＴＯ ２：ＩＦ Ａ＜Ｌ（Ｊ,Ｋ） ＴＨＥＮ Ａ＝Ｌ（Ｊ,Ｋ）
１０６０ Ｌ＝Ｌ＋Ｌ（Ｊ,Ｋ）：ＮＥＸＴ Ｋ：Ｂ（Ｊ）＝Ａ：ＩＦ Ｌ－Ａ＝＜Ａ ＴＨＥＮ ＰＲＩＮＴ Ｊ＋１；”エラー チェック”：ＥＮＤ
１０７０ Ｍ＝Ｌ/２：Ｓ（０,Ｊ）＝ＳＱＲ（Ｍ＊（ＭーＬ（Ｊ,０））＊（Ｍ－Ｌ（Ｊ,１））＊（Ｍ－Ｌ（Ｊ,２）））
１０８０ Ｓ（１,Ｊ）＝ＥＸＰ（（ＬＮ Ｍ＋ＬＮ（Ｍ－Ｌ（Ｊ,０））＋ＬＮ（Ｍ－Ｌ（Ｊ,１））＋ＬＮ（Ｍ－Ｌ（Ｊ,２）））/２）
１０９０ Ｈ（Ｊ）＝ＲＯＵＮＤ（Ｓ（０,Ｊ）/Ｂ（Ｊ）,－４）：Ｓ（２,Ｊ）＝Ｈ（Ｊ）＊Ｂ（Ｊ）
１１００ ＦＯＲ Ｋ＝０ ＴＯ ２
１１１０ Ｔ（Ｋ,０）＝Ｔ（Ｋ,０）＋ＩＮＴ Ｓ（Ｋ,Ｊ）：Ｔ（Ｋ,１）＝Ｔ（Ｋ,１）＋ＦＲＡＣ Ｓ（Ｋ，Ｊ）
１１２０ ＮＥＸＴ Ｋ,Ｊ
１１３０ ＦＯＲ Ｊ＝０ ＴＯ ２
１１４０ Ｔ（Ｊ,０）＝Ｔ（Ｊ,０）＋ＩＮＴ Ｔ（Ｊ,１）：Ｔ（Ｊ,１）＝ＦＲＡＣ Ｔ（Ｊ,１）
１１５０ ＮＥＸＴ Ｊ
１２００ ＲＥＭ＊＊リスト
１２１０ ＦＯＲ Ｊ＝０ ＴＯ Ｎ－１
１２２０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ.”；Ｊ＋１；”（ヘロン キュウセキ）”：ＰＲＩＮＴ ＵＳＩＮＧ”ａ＝＃＃＃.＃＃＃ ｂ＝＃＃＃.＃＃＃ ｃ＝＃＃＃.＃＃＃”；Ｌ（Ｊ,０）；Ｌ（Ｊ,１）；Ｌ（Ｊ,２）
１２３０ ＰＲＩＮＴ ＵＳＩＮＧ”（ｓｑｒ）＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｓ（０,Ｊ）：ＰＲＩＮＴ ＵＳＩＮＧ”（ｌｏｇ）＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｓ（１,Ｊ）；
１２４０ ＧＯＳＵＢ １３５０：ＮＥＸＴ Ｊ
１２５０ ＣＬＳ：ＰＲＩＮＴ”（ヘロン メンセキ ゴウケイ）”
１２６０ ＰＲＩＮＴ ＵＳＩＮＧ”ｓｑｒ：＃＃＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｔ（０,０）＋Ｔ（０,１）
１２７０ ＰＲＩＮＴ ＵＳＩＮＧ”ｌｏｇ：＃＃＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｔ（１,０）＋Ｔ（１,１）
１２８０ ＧＯＳＵＢ １３５０
１３００ ＲＥＭ＊＊テイヘン＊タカサ メンセキ リスト
１３１０ ＦＯＲ Ｊ＝０ ＴＯ Ｎ－１：ＣＬＳ：ＰＲＩＮＴ”Ｎｏ.”；Ｊ＋１；”（サンシャ キュウセキ）”：ＰＲＩＮＴ ＵＳＩＮＧ”テイヘン＝ ＃＃＃.＃＃＃ｍ”；Ｂ（Ｊ）：ＰＲＩＮＴ ＵＳＩＮＧ”タカサ ＝ ＃＃＃.＃＃＃ｍ”；２＊Ｈ（Ｊ）；
１３２０ ＰＲＩＮＴ ＵＳＩＮＧ”メンセキ＝＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｓ（２,Ｊ）；
１３３０ ＧＯＳＵＢ １３５０：ＮＥＸＴ Ｊ
１３４０ ＣＬＳ：ＰＲＩＮＴ”（サンシャ メンセキ ゴウケイ）”：ＰＲＩＮＴ ＵＳＩＮＧ”＃＃＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｔ（２,０）＋Ｔ（２,１）：ＧＯＳＵＢ １３５０：ＧＯＴＯ １２００
１３５０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ １３５０
１３６０ ＩＦ Ｚ＄＝”Ｚ”ＴＨＥＮ １ ＥＬＳＥ ＲＥＴＵＲＮ
それでは続けて次のようにプログラムを打ち込んで下さい。
１ ＣＬＳ：ＰＲＩＮＴ”＜songzhao ノ スウガク アラカルト＞”,”ソスウヲモトメル＝１： ソインスウ ブンカイ＝２”,"コウヤク コウバイスウ＝３： ホウテイシキ＝４”,”ヘロンノコウシキ＝５ ”；
２ ＩＮＰＵＴ ＤＴ：ＯＮ ＤＴ ＧＯＴＯ １０,１００,３００,５００,１０００
そして、今迄のプログラムを次のように書き改めてください。
８０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝”” ＴＨＥＮ ８０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｚ” ＴＨＥＮ １ ＥＬＳＥ ２０
２１０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝”” ＴＨＥＮ ２１０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｚ” ＴＨＥＮ １ ＥＬＳＥ １２０
４９０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝”” ＴＨＥＮ ４９０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｚ” ＴＨＥＮ １ ＥＬＳＥ ３２０
６８０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝”” ＴＨＥＮ ６８０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｚ” ＴＨＥＮ １
こうしておけば、「Ｚ］以外のキーを押した場合にはそのプログラムを繰り返すし、「Ｚ］を押した場合には最初のメニュー画面に戻ります。
このへロンの公式のプログラムにおいては、データ入力用のプログラムを本体以外のプログラム・エリアに組むこととします。Ｐ０～Ｐ９までの間の空いているエリアに次のプログラムを書き込んでください。
１ ＤＡＴＡ ３,４,５
２ ＤＡＴＡ ４,５,６
３ ＤＡＴＡ １０,１４,１７
４ ＤＡＴＡ １３,１６,２２
５ ＤＡＴＡ ２２,２５,２８
６ ＤＡＴＡ １８,２２,２８
７ ＤＡＴＡ ２４,２８,３５
８ ＤＡＴＡ
９ ＤＡＴＡ
１０ ＤＡＴＡ
１１ ＤＡＴＡ
１２ ＤＡＴＡ
１３ ＤＡＴＡ
５００ ＲＥＭ＊＊ヘロン ノ コウシキ データ
５１０ ＦＯＲ Ｊ＝０ ＴＯ Ｎ－１：ＦＯＲ Ｋ＝０ ＴＯ ２：ＲＥＡＤ Ｌ（Ｊ,Ｋ）：ＮＥＸＴ Ｋ,Ｊ：ＲＥＴＵＲＮ
これでプログラム自体の書き込みは終了しました。思いどおりに作動するかチェックします。例によって、ＲＵＮ ＥＮＴＥＲとします。
＜songzhao ノ スウガク アラカルト＞
ソスウヲモトメル＝１： ソインスウ ブンカイ＝２
コウヤク コウバイスウ＝３： ホウテイシキ＝４
ヘロンノコウシキ＝５ ？
このような表示が出力されます。５ ＥＮＴＥＲとしてください。
＜へロン ノ コウシキ＞
サンカクケイノスウ？ このように聞いてきますので７を入力してください。すると、
データＰｒｇ． ？ と聞いてきますので、先ほど作成したデータプログラムの番号を入力してください。
＊印が７個表示され、
ａ＝ ３．０００ ｂ＝ ４．０００ ｃ＝ ５．０００
（ｓｑｒ） ６．００００００ｍ２
（ｌｏｇ） ６．００００００ｍ２
と表示されます。次々に「Ｚ］以外のきーを押していくと、各々７個の三角形の面積と合計が示され、基本的な三角形の面積＝底辺＊高さ/２の換算値が示されます。
このプログラムは、プログラム自体をデータの入力方法として使用しています。行番号に続いて、数値データを書き込み（,)コンマで区切って、一行を一個の三角形の辺のデータとしています。何個でも書き込むことができます。表計算のデータの書き込みと同じ感覚で入力できるところがとてもよい。
さて、それではこのプログラムを何のために使うかといえば、主に土地の面積を測るのに使います土地を三角形の集合体と考えて要領よく区切ります、区切った三角形ごとに面積を求めて全体の面積を測ります。
土地の面積とは水平投影面積ですので、斜面をそのまま計測しても正しい面積は求められませんが、平地で障害物がない場合には、このプログラムが威力を発揮します。鋼巻尺を使い所定の張力を掛けて測量するのですが、基礎知識を学んでから挑戦してみてください。１万平方メートル未満の測量なら、十分な精度があります。三角形に区切る際には、できるだけ正三角形に近い区切り方をしてください。さもないと誤差が大きくなってしまいます。
意外にもこのコーナーは地味な人気に支えられて、底堅いものがあるようで素朴に感動している。素数とは何か？素因数分解とは？最大公約数とは？或いは最小公倍数とはどういうものか？といった数学の基礎の基礎を再認識していただけたことと思う。その延長線上で連立方程式を解くという動機づけがなされた教育が行われてきたかということを考えると甚だ疑問である。
年配者は年配者で、このような整数の美しさを教えられた上で、方程式の解法を学んでいたら、もっと数学が好きになっていたかも知れない、本当は「数学」とは興味深いものであったと大いに再認識してくださっても、或いは柔らかい脳を持ったこれからの少年に「数学への興味を喚起」する一助にでもなれば、それはそれでそれで私としては十分である。
起源一世紀頃、古代ギリシャの国に「へロン」という数学者だか技術者だか奇術師だか分らぬような人物がいました。そのへロンが残した偉大な三角形の面積を求める公式というのがあります。この公式はイギリスが誇るニュートンが十七世紀になって発見したと大喜びしていたところ、既に起源一世紀にへロンによって発見済みということを知るところとなり、ガッカリしたといういわくつきの公式である。
この公式というのは、三角形の三辺の長さを測って面積を求めるというものです。「三辺法」とか「へロンの公式」という名称で親しまれています。
へロンの公式：三角形の辺の長さを使って、その面積を計算する公式。
三つの辺の長さをａ、ｂ、ｃとし、２ｓ＝ａ＋ｂ＋ｃとおけば、面積は、ＳＱＲ（ｓ（ｓ－ａ）（ｓ－ｂ）（ｓ－ｃ））デ与えられる。「ＳＱＲとはスクウェア・ルート、平方根という意味である」
今日は、この「へロンの公式」をプログラミングして、今迄このコーナーに付き合ってくださいました方々に感謝したいと思います。
今までのプログラムは「songzhaoのライブラリー」として、ひとまとめにしたいと思いますので、１０００行目から打ち込んでください。
１０００ ＲＥＭ＊＊＊へロンノコウシキ
１０２０ ＣＬＥＡＲ：ＣＬＳ：ＰＲＩＮＴ”＜ヘロン ノ コウシキ＞”：ＩＮＰＵＴ”サンカクケイノスウ”；Ｎ
１０３０ ＤＩＭ Ｌ（Ｎ－１,２）,Ｓ（２,Ｎ－１）,Ｔ（２,１）,Ｈ（Ｎ,－１）,Ｂ（Ｎ－１）
１０４０ ＩＮＰＵＴ”データＰｒｇ． ”；ＤＴＰ：ＧＯＳＵＢ＃ＤＴＰ：ＦＯＲ Ｊ＝０ ＴＯ Ｎ＝１：ＰＲＩＮＴ”＊”；
１０５０ Ｌ＝０：Ａ＝Ｌ（Ｊ,０）：ＦＯＲ Ｋ＝０ ＴＯ ２：ＩＦ Ａ＜Ｌ（Ｊ,Ｋ） ＴＨＥＮ Ａ＝Ｌ（Ｊ,Ｋ）
１０６０ Ｌ＝Ｌ＋Ｌ（Ｊ,Ｋ）：ＮＥＸＴ Ｋ：Ｂ（Ｊ）＝Ａ：ＩＦ Ｌ－Ａ＝＜Ａ ＴＨＥＮ ＰＲＩＮＴ Ｊ＋１；”エラー チェック”：ＥＮＤ
１０７０ Ｍ＝Ｌ/２：Ｓ（０,Ｊ）＝ＳＱＲ（Ｍ＊（ＭーＬ（Ｊ,０））＊（Ｍ－Ｌ（Ｊ,１））＊（Ｍ－Ｌ（Ｊ,２）））
１０８０ Ｓ（１,Ｊ）＝ＥＸＰ（（ＬＮ Ｍ＋ＬＮ（Ｍ－Ｌ（Ｊ,０））＋ＬＮ（Ｍ－Ｌ（Ｊ,１））＋ＬＮ（Ｍ－Ｌ（Ｊ,２）））/２）
１０９０ Ｈ（Ｊ）＝ＲＯＵＮＤ（Ｓ（０,Ｊ）/Ｂ（Ｊ）,－４）：Ｓ（２,Ｊ）＝Ｈ（Ｊ）＊Ｂ（Ｊ）
１１００ ＦＯＲ Ｋ＝０ ＴＯ ２
１１１０ Ｔ（Ｋ,０）＝Ｔ（Ｋ,０）＋ＩＮＴ Ｓ（Ｋ,Ｊ）：Ｔ（Ｋ,１）＝Ｔ（Ｋ,１）＋ＦＲＡＣ Ｓ（Ｋ，Ｊ）
１１２０ ＮＥＸＴ Ｋ,Ｊ
１１３０ ＦＯＲ Ｊ＝０ ＴＯ ２
１１４０ Ｔ（Ｊ,０）＝Ｔ（Ｊ,０）＋ＩＮＴ Ｔ（Ｊ,１）：Ｔ（Ｊ,１）＝ＦＲＡＣ Ｔ（Ｊ,１）
１１５０ ＮＥＸＴ Ｊ
１２００ ＲＥＭ＊＊リスト
１２１０ ＦＯＲ Ｊ＝０ ＴＯ Ｎ－１
１２２０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ.”；Ｊ＋１；”（ヘロン キュウセキ）”：ＰＲＩＮＴ ＵＳＩＮＧ”ａ＝＃＃＃.＃＃＃ ｂ＝＃＃＃.＃＃＃ ｃ＝＃＃＃.＃＃＃”；Ｌ（Ｊ,０）；Ｌ（Ｊ,１）；Ｌ（Ｊ,２）
１２３０ ＰＲＩＮＴ ＵＳＩＮＧ”（ｓｑｒ）＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｓ（０,Ｊ）：ＰＲＩＮＴ ＵＳＩＮＧ”（ｌｏｇ）＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｓ（１,Ｊ）；
１２４０ ＧＯＳＵＢ １３５０：ＮＥＸＴ Ｊ
１２５０ ＣＬＳ：ＰＲＩＮＴ”（ヘロン メンセキ ゴウケイ）”
１２６０ ＰＲＩＮＴ ＵＳＩＮＧ”ｓｑｒ：＃＃＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｔ（０,０）＋Ｔ（０,１）
１２７０ ＰＲＩＮＴ ＵＳＩＮＧ”ｌｏｇ：＃＃＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｔ（１,０）＋Ｔ（１,１）
１２８０ ＧＯＳＵＢ １３５０
１３００ ＲＥＭ＊＊テイヘン＊タカサ メンセキ リスト
１３１０ ＦＯＲ Ｊ＝０ ＴＯ Ｎ－１：ＣＬＳ：ＰＲＩＮＴ”Ｎｏ.”；Ｊ＋１；”（サンシャ キュウセキ）”：ＰＲＩＮＴ ＵＳＩＮＧ”テイヘン＝ ＃＃＃.＃＃＃ｍ”；Ｂ（Ｊ）：ＰＲＩＮＴ ＵＳＩＮＧ”タカサ ＝ ＃＃＃.＃＃＃ｍ”；２＊Ｈ（Ｊ）；
１３２０ ＰＲＩＮＴ ＵＳＩＮＧ”メンセキ＝＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｓ（２,Ｊ）；
１３３０ ＧＯＳＵＢ １３５０：ＮＥＸＴ Ｊ
１３４０ ＣＬＳ：ＰＲＩＮＴ”（サンシャ メンセキ ゴウケイ）”：ＰＲＩＮＴ ＵＳＩＮＧ”＃＃＃＃＃＃.＃＃＃＃＃＃ｍ２”；Ｔ（２,０）＋Ｔ（２,１）：ＧＯＳＵＢ １３５０：ＧＯＴＯ １２００
１３５０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ １３５０
１３６０ ＩＦ Ｚ＄＝”Ｚ”ＴＨＥＮ １ ＥＬＳＥ ＲＥＴＵＲＮ
それでは続けて次のようにプログラムを打ち込んで下さい。
１ ＣＬＳ：ＰＲＩＮＴ”＜songzhao ノ スウガク アラカルト＞”,”ソスウヲモトメル＝１： ソインスウ ブンカイ＝２”,"コウヤク コウバイスウ＝３： ホウテイシキ＝４”,”ヘロンノコウシキ＝５ ”；
２ ＩＮＰＵＴ ＤＴ：ＯＮ ＤＴ ＧＯＴＯ １０,１００,３００,５００,１０００
そして、今迄のプログラムを次のように書き改めてください。
８０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝”” ＴＨＥＮ ８０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｚ” ＴＨＥＮ １ ＥＬＳＥ ２０
２１０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝”” ＴＨＥＮ ２１０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｚ” ＴＨＥＮ １ ＥＬＳＥ １２０
４９０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝”” ＴＨＥＮ ４９０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｚ” ＴＨＥＮ １ ＥＬＳＥ ３２０
６８０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝”” ＴＨＥＮ ６８０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｚ” ＴＨＥＮ １
こうしておけば、「Ｚ］以外のキーを押した場合にはそのプログラムを繰り返すし、「Ｚ］を押した場合には最初のメニュー画面に戻ります。
このへロンの公式のプログラムにおいては、データ入力用のプログラムを本体以外のプログラム・エリアに組むこととします。Ｐ０～Ｐ９までの間の空いているエリアに次のプログラムを書き込んでください。
１ ＤＡＴＡ ３,４,５
２ ＤＡＴＡ ４,５,６
３ ＤＡＴＡ １０,１４,１７
４ ＤＡＴＡ １３,１６,２２
５ ＤＡＴＡ ２２,２５,２８
６ ＤＡＴＡ １８,２２,２８
７ ＤＡＴＡ ２４,２８,３５
８ ＤＡＴＡ
９ ＤＡＴＡ
１０ ＤＡＴＡ
１１ ＤＡＴＡ
１２ ＤＡＴＡ
１３ ＤＡＴＡ
５００ ＲＥＭ＊＊ヘロン ノ コウシキ データ
５１０ ＦＯＲ Ｊ＝０ ＴＯ Ｎ－１：ＦＯＲ Ｋ＝０ ＴＯ ２：ＲＥＡＤ Ｌ（Ｊ,Ｋ）：ＮＥＸＴ Ｋ,Ｊ：ＲＥＴＵＲＮ
これでプログラム自体の書き込みは終了しました。思いどおりに作動するかチェックします。例によって、ＲＵＮ ＥＮＴＥＲとします。
＜songzhao ノ スウガク アラカルト＞
ソスウヲモトメル＝１： ソインスウ ブンカイ＝２
コウヤク コウバイスウ＝３： ホウテイシキ＝４
ヘロンノコウシキ＝５ ？
このような表示が出力されます。５ ＥＮＴＥＲとしてください。
＜へロン ノ コウシキ＞
サンカクケイノスウ？ このように聞いてきますので７を入力してください。すると、
データＰｒｇ． ？ と聞いてきますので、先ほど作成したデータプログラムの番号を入力してください。
＊印が７個表示され、
ａ＝ ３．０００ ｂ＝ ４．０００ ｃ＝ ５．０００
（ｓｑｒ） ６．００００００ｍ２
（ｌｏｇ） ６．００００００ｍ２
と表示されます。次々に「Ｚ］以外のきーを押していくと、各々７個の三角形の面積と合計が示され、基本的な三角形の面積＝底辺＊高さ/２の換算値が示されます。
このプログラムは、プログラム自体をデータの入力方法として使用しています。行番号に続いて、数値データを書き込み（,)コンマで区切って、一行を一個の三角形の辺のデータとしています。何個でも書き込むことができます。表計算のデータの書き込みと同じ感覚で入力できるところがとてもよい。
さて、それではこのプログラムを何のために使うかといえば、主に土地の面積を測るのに使います土地を三角形の集合体と考えて要領よく区切ります、区切った三角形ごとに面積を求めて全体の面積を測ります。
土地の面積とは水平投影面積ですので、斜面をそのまま計測しても正しい面積は求められませんが、平地で障害物がない場合には、このプログラムが威力を発揮します。鋼巻尺を使い所定の張力を掛けて測量するのですが、基礎知識を学んでから挑戦してみてください。１万平方メートル未満の測量なら、十分な精度があります。三角形に区切る際には、できるだけ正三角形に近い区切り方をしてください。さもないと誤差が大きくなってしまいます。