fx-4850P版はこちらです→fx-4850P 座標面積計算
マニュアル、操作手順書のサンプルはこちらです→座標面積計算
多角形の面積を計算します。［３０角形まで計算できます。］
まず角数(ｎ)を入力した後、折点座標(Ｘi,Ｙi)を順次入力します。指定した角数の座標入力が終了すると、その面積を表示します。
さらに、必要に応じ全ての入力データを再表示してチェックする事ができます。
座標面積計算（ｎ≦30） 【プログラム番号：P10】
AC 999 MinFLBL0 0 Min9F MR30 "DATA n= ?" HLT
Min30 - 3 = X>=0 GOTO5
GSBP18
GOTO0
LBL5 MR30 - 31 = X>=0 GSBP18
MR9F X=F GOTO0
LBL1 MR30 Min00 0 Min20 30 Min21 60 Min22
LBL2 1 M+20 M+21 M+22 IND MR21 "X([AR20]) ? (n=[AR30])" HLT
IND Min21 IND MR22 "Y<[AR20]> ? (n=[AR30])" HLT
IND Min22 DSZ GOTO2
MR31 - IND MR21 = Min25 MR61 + IND MR22 = Min26 * MR25 = Min27
MR30 - 1 = Min00 0 Min20 30 Min21 60 Min22 31 Min23 61 Min24
LBL3 1 M+20 M+21 M+22 M+23 M+24 IND MR23 - IND MR21 = Min25 IND MR24
+ IND MR22 = Min26 * MR25 = M+27 DSZ GOTO3
MR27 ABS / 2 = Min28
LBL4 MR28 "A= again[RTA]999" HLT
X=F GOTO1
GOTO4
エラー表示サブルーチン 【プログラム番号：P18】
999 Min9F 0 " DATA ERROR" PAUSEご注意下さい
- 上記プログラムソースは見やすいようにインデント・改行されていますが、FX-603Pに入力する際には、インデント・改行を無視してください。
- サブルーチンは他のプログラムと共用しますのでプログラム番号を変更しないでください。
- 当プラグラムソースはASCIIコードで書かれていますので、実際の表現とは違う部分があります。表現の違いは下表の通りです。
