座標面積計算

CASIO fx-4800P版 測量計算ソフト プログラムソース




FX-603P版はこちらです→FX-603P 座標面積計算     印刷用ページ】

座標面積計算

 多角形の面積を計算します。
 折点座標(Xi,Yi)を入力すると、その都度面積を表示します。
 ただし、座標数(折点数)が3未満の場合は0を表示します。

座標面積計算画面

座標面積計算 【ファイル名:P11】(264バイト)
   Fixm
Lbl 0:"<ZAHYO_MENKEI>"
   H=0:S=0:T=0
Lbl 1:S=S+1
Lbl 2:S:"ZAHYO_NO=":Pause 0
   {XY}
   X"X(999⇒TOTAL)"
   X=999⇒S=S-1:Goto 3△
   S:"ZAHYO_NO=":Pause 0
   Y"Y_"
   S=1⇒A=X:D=X:B=Y:E=Y:Goto 3△
   F=X-D:D=X
   G=Y+E:E=Y
   H=H+F×G
   S=2⇒Goto 3△
   F=A-X
   G=B+Y
   T=H+F×G
   T=Abs T÷2
Lbl 3:S:"TOTAL ZAHYO=":Pause 0
   T"MENSEKI="▲
   Goto 1

QUICK RUN に書き加える条件文 (16バイト)
  I=11⇒Prog "P11":Goto 0△

ご注意下さい
  • プログラムを入力する前に、fx-4800Pの取扱説明書をよくお読みください。
  • プログラムをご使用になる前に、「内容説明書」「操作手順書」「例題集」を良くお読みになり、操作方法を練習してください。
  • 上記プログラムソースは見やすいようにインデントされていますが、fx-4800Pに入力する際には、インデントを無視してください。
  • ファイル名は変更可能ですが、ソフト起動プログラム(QUICK RUN)を利用する場合には変更しないでください。
  • アルファベットの「O」と数字の「0」を区別するため、アルファベットの「 O 」にアンダーラインを入れて表示しています。
  • fx-4800Pのプログラムには通常のテキストでは忠実に表現できないものがあります。本プログラムリストでは下表の通り表現していますのでご注意ください。