计算器测量编程 作者 冯大福 第5讲条件语句及编程.ppt

地质与测绘工程学院 地质与测绘工程学院 计算器编程 测量教研室 2014年2月 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： 一、条件语句 …… If A0 Then 10A▲ Else 19A▲ ifEnd …… …… If A0 Then 10A▲ Else 19A▲（本句可以省略） ifEnd …… 二.坐标反算程序 已知X1，Y1、X2、Y2 求D12、F12 1.数学模式 POL（X2-X1，Y2-Y1） 2.变量对应关系 X1——A Y1——B X2——C Y2——D D12——I F12——J 3.请大家根据上述要求编写程序……… 三、程序的运行 ZBFS算例： 1(3105.833,4177.098) 2(3278.006,4200.259) 3(2996.511,4196.646) 4(3017.016,4088.042) 5(3266.084,4006.155) 程序：ZBFS “X1”?→A “Y1”?→B “X2”?→C “Y2”?→D POL(C-A,D-B) “D12”：I▲ IF J0 THEN J+360 →J IFEND “F12”：J 四、运行程序 1 在COMP状态，按FILE键，可以选择运行程序。 2.在PROG中，可以按RUN，选择运行程序。 3.思考： 在什么时候，需要在程序的后面加上▲？ 在程序的末尾为什么不需要▲符号？ 回车键与：有何区别？ 五、案例2 要求键盘输入A、B两值，如果A+B的值为奇数，则要求算A2*B2的值，如果A+B的值为偶数，则计算出A2/B2的值，如果B的值为0，则显示0. 六、案例2程序 程序：AB “A”?→A “B”?→B A+B→C IF C/2-INT（C/2）＝0 THEN AA/B/B▲ ELSE AABB▲ IFEND IF B=0 THEN B ▲ IFEND 七、案例3，根据经度计算带号 问题： 6度带公式 带号=INT（L÷6）+1 3度带公式 带号=INT（（L+1.5）÷3） 如果知道6度带带号，L6＝6n-3 如果知道3度带带号，L3＝3n 如果编程 ？？？ 本讲结束, 谢谢大家! 地质与测绘工程学院 地质与测绘工程学院