5800坐标反算程序比较.docVIP

5800坐标反算程序比较（转载，仅供学习）  程序特点：人机对话方式输入已知数据，屏幕显示计算结果。fx-5800P 程序名：A-20Deg: Fix 3: 设置角度单位为十进制度，3 位固定小数显示XO ?A:YO ?B 提示输入起点的坐标Lbl 0:Xn , 0→END ?C 提示输入端点x 坐标，输入负数结束程序运行While C 0Yn ?D 提示输入n 点的y 坐标Pol C-A,D-B :Cls 调用极坐标函数并清除屏幕显示If J 0:Then J+360→F:Else J→F:IfEndDIST O→n m :I 显示水平距离BEAR O→n DMS :F▲DMS 以六十进制度显示计算出的方位角Goto 0: WhileEnd 提示重复输入端点的坐标END 程序特点：人机对话方式输入已知数据，计算结果送屏幕显示，也存储在统计串列中，完成程序计算后，可以按键静态地查看计算出的全部边长值与方位角，其中边长存储在List X，十进制度为单位的方位角存储在List Y，若要查看以60 进制单位的方位角，应将光标移动到List Y的一个单元上，按键。[B]fx-5800P 程序名：A-21Deg: Fix 3: 设置角度单位为十进制度，3 位固定小数显示XO ?A:YO ?B 提示输入0 点的坐标ClrStat:0→N 清除统计