FX-603P版はこちらです→FX-603P 座標面積計算
多角形の面積を計算します。［100角形まで計算できます。］
まず角数(ｎ≦100)を入力した後、折点座標(Ｘi,Ｙi)を順次入力します。指定した角数の座標入力が終了すると、その面積を表示します。
さらに、必要に応じ全ての入力データを再表示してチェックする事ができます。
座標面積計算 【ファイル名：P10】
Fixm:Defm 200:S=0
Lbl 0:Cls:{S}
"<ZAHYO_MENKEI>"
S"ZAHYO_N_"
(S-3)＜0⇒Prog "ER.SUB":Goto 0△
S＞100⇒Prog "ER.SUB":Goto 0△
Lbl 1:R=S:A=0:B=0:C=100
Lbl 2:Cls:B=B+1:C=C+1:A=A+1
X=Z[B]:Y=Z[C]
"INPUT_NO=":A:Pause 0
{X,Y}
X"X_":Y"Y_"
Z[B]=X:Z[C]=Y
Dsz R:Goto 2
F=Z[1]-Z[B]
G=Z[101]+Z[C]
H=F×G
R=S-1:A=0:B=0:C=100:D=1:E=101
Lbl 3:A=A+1:B=B+1:C=C+1:D=D+1:E=E+1
F=Z[D]-Z[B]
G=Z[E]+Z[C]
H=H+F×G
Dsz R:Goto 3
I=Abs H÷2
Lbl 4:Cls
"ZAHYO_N=":S:Pause 0
"MENSEKI=":I▲
Lbl 8:Cls:J=0:{J}
"REPEAT⇒0"
"AGAIN_⇒1"
J"TOP⇒2_END⇒9_"
J＝0⇒Goto 4△
J＝1⇒Goto 1△
J＝2⇒Goto 0△
J≠9⇒Goto 8△
エラー表示サブルーチン 【ファイル名：ER.SUB】
Z=999"DATA_ERROR"
Pause 3
Cls
ご注意下さい
- 上記プログラムソースは見やすいようにインデントされていますが、fx-4850Pに入力する際には、インデントを無視してください。
- ファイル名は変更可能ですが、ソフト起動プログラム（QUICK RUN）を利用する場合には変更しないでください。
- サブルーチンは他のプログラムと共用しますのでファイル名を変更しないでください。
- プログラムの入力やファイル名の変更は、fx-4850Pの取扱説明書をよくお読みになってから行ってください。
- アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
- fx-4850Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。
