FX-603P版はこちらです→FX-603P ヘロンの面積計算 【★印刷用ページ】
ヘロンの公式を用いて多角形の面積を計算します。
三角形の三辺（a,b,c）を入力する度に、その面積（A）と、ａ辺の対頂角からａ辺への垂線長（ｈ）を計算します。次の三角形の入力に移る際に面積を集計しますが、単体の面積を表示した段階で、集計をキャンセルすると、再度同じ三角形のデータを入力し直すことができます。
ヘロンの面積計算 【ファイル名：P10】（376バイト）
Fixm
Lbl 0:"<HERON>"
G=0:K=0
Lbl 1:K=K+1
Lbl 2:K:"INPUT_NO=":Pause 0
{A}:A"A_"
A≦0⇒Goto 2△
Lbl 3:K:"INPUT_NO=":Pause 0
{B}:B"B_"
B≦0⇒Goto 3△
Lbl 4:K:"INPUT_NO=":Pause 0
{C}:C"C_"
C≦0⇒Goto 4△
(A-B-C)≧0⇒Prog "ER.SUB":Goto 2△
(B-A-C)≧0⇒Prog "ER.SUB":Goto 2△
(C-A-B)≧0⇒Prog "ER.SUB":Goto 2△
D=(A+B+C)÷2
E=√(D×(D−A)×(D−B)×(D−C))
J=E×2÷A
"TAKASA=":Pause 0
E"MENSEKI="▲
I=0:{I}
I"OK⇒0_CANCEL⇒1_"
I≠0⇒Goto 2△
G=G+E
K:"TRIANGLE_N=":Pause 0
G"TOTAL="▲
Goto 1
QUICK RUN に書き加える条件文 （16バイト）
I＝10⇒Prog "P10":Goto 0△
エラー表示サブルーチン 【ファイル名：ER.SUB】（38バイト）
Z=999"DATA_ERROR"
Pause 1
ご注意下さい
- プログラムを入力する前に、fx-4800Pの取扱説明書をよくお読みください。
- プログラムをご使用になる前に、「内容説明書」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。
- 上記プログラムソースは見やすいようにインデントされていますが、fx-4800Pに入力する際には、インデントを無視してください。
- ファイル名は変更可能ですが、ソフト起動プログラム（QUICK RUN）を利用する場合には変更しないでください。
- サブルーチンは他のプログラムと共用しますのでファイル名を変更しないでください。
- アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
- fx-4800Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。
