卡西欧5800计算器编程入门程序集

5800卡西欧计算器程序大全1.基本数学运算程序-加法：输入两个数字，然后计算它们的和。

-减法：输入两个数字，然后计算它们的差。

-乘法：输入两个数字，然后计算它们的积。

-除法：输入两个数字，然后计算它们的商。

-平方根：输入一个数字，然后计算它的平方根。

-幂运算：输入两个数字，然后计算第一个数字的第二个数字次方。

2.科学计算程序-对数运算：输入一个数字和一个底数，然后计算它们的对数。

-三角函数：输入一个角度，然后计算它的正弦、余弦和正切值。

-阶乘计算：输入一个数字，然后计算它的阶乘。

-指数函数：输入一个数字，然后计算e的这个数字次方。

-随机数生成：生成一个随机数。

3.金融计算程序-终值计算：输入本金、利率和时间，然后计算将来其中一时刻的价值。

-现值计算：输入将来其中一时刻的价值、利率和时间，然后计算现在的价值。

-年金支付计算：输入每期支付的金额、利率和时间，然后计算总支付金额。

-贷款利率计算：输入贷款金额、每期支付金额和时间，然后计算贷款利率。

-折现计算：输入每期支付金额、利率和时间，然后计算折现值。

4.统计计算程序-平均值计算：输入一组数字，然后计算它们的平均值。

-中值计算：输入一组数字，然后计算它们的中值。

-方差计算：输入一组数字，然后计算它们的方差。

-标准差计算：输入一组数字，然后计算它们的标准差。

-相关系数计算：输入两组数字，然后计算它们的相关系数。

以上只是一部分5800卡西欧计算器程序的示例，卡西欧计算器还提供了更多的功能，例如单位转换、时间计算、日期计算等等，可以根据实际需求选择使用。

希望以上内容对您有所帮助。

5800通用程序计算主程序ZFS(命令程序)Lbl 0：Z[10] →S“1XY=>ZLH,2ZL=>XYZ,3=>GAOCHENG,4=>GOUZAOWU”? S：S→Z[10]:If S=1 :Then Prog“ZBFS”:Goto 0 :IfEnd : If S=2 :Then Prog “T-1”:Prog“SATA”: Prog“POLXY”:Goto 0: IfEnd : If S=3 :Then Prog “100”: Goto 0 :IfEnd :If S=4 :Then Prog“T-1”:Prog“SATA”: Prog“NREC”: Goto 0: IfEnd : If S＜0 :Then Stop:IfEnd ←┘子程序1:POLXY(曲线坐标主程序)Z[3]+K→Z[8] : Z[8]+L→Z[6] : Z[6]+ πR (A-180C÷(πR )) ÷180→Z[7]：Z[4]+H→Z[9]←┘If S≥Z[3] And S≤Z[8]：Then Prog“ZZ”: IfEnd: If S＞Z[8] And S≤Z[6]：Then Prog“HX1”: IfEnd: If S＞Z[6] And S≤Z[7]：Then Prog“YX”: IfEnd: If S＞Z[7] And S≤Z[4]：Then Prog“HX2”: IfEnd: If S＞Z[4] And S≤Z[9]：Then Prog“ZZH”: IfEnd :Return←┘子程序2:NREC(结构物计算子程序)X→Z[8] : Y→Z[9] : J→B:“NREC-R”? Z←┘Lbl 1:“ZHONG XIAN:SUN+,FAN-”?H:If H=1000:Stop: IfEnd: “HENGXIANG:R+,L-”?C:0→A: 0→L: Z[8] +H*Cos(B)+C*Cos(B+Z) 0→X:Z[9] +H*Sin(B)+C* Sin (B+Z) 0→Y: Prog“XS”: Goto 1←┘子程序3:T-1(曲线坐标要素)Z[5] →S :Z[2] →M: “ZHUANGHAO=”? S：S→Z[5] :“XIAN LU=”? M: M →Z[2]子程序4:SATA(曲线坐标要素)If M=1：The Goto 1: Ifend : If M=2：The Goto 2:IfendLbl 1：If S≤133962.256(第一缓和曲线最后一个里程桩号HZ或YZ)：Then 132205.295(前一段缓和曲线HZ或YZ点桩号)→Z[3]: 133962.256→Z[4]: 756.81→T(切线长): 2450→R(半径): 166°47′29.4″→B(方位角):1→W(转角方向，左转-1右+1)：28°01′37.7″→A(转角)：290→C(缓和曲线长)：7723.072→G(第一缓和曲线交点X坐标): 6759.57→V(第一缓和曲线交点Y坐标):268.504→K(第一段缓和曲线的前切点与前一段曲线终点(HZ或YZ)间直线段长度)：0→H(第一段缓和曲线的后切点与下一段曲线起点(ZH或ZY)间直线段长度)：Goto 3: IfEnd :If S≤135701.233:Then 133962.256→Z[3]: 135701.233→Z[4]:538.663→T: 1250→R: 194°49′07.2″→B:-1→W：39°52′03″→A：170→C：5794.739→G: 6249.411→V: 699.202→K ：0→H: Goto 3: IfEnd : If S≤136719.362: Then 135701.233→Z[3]: 136719.362→Z[4]:395.034→T: 1200→R: 154°57′04.2″→B:1→W：28°57′02.1″→A：170→C：4729.811→G: 6747.1→V: 241.789→K ：0→H: Goto 3: IfEnd : If S≤138500.304: Then 136719.362→Z[3]: 138500.304→Z[4]:537.629→T: 1200→R: 183°54′06.3″→B:-1→W：41°18′05.8″→A：170→C：3055.115→G: 6632.879→V: 745.923→K ：358.217→H: Goto 3: IfEnd : Lbl 2：If S≤133966.874：Then 132208.893→Z[3]: 133966.874→Z[4]: 665.863→T: 2000→R: 166°47′29.4″→B:1→W：30°30′55.2″→A：240→C：7597.066→G: 6789.145→V:452.794→K：0→H：Goto 3: IfEnd : If S≤135806.291 :Then 133966.874→Z[3]: 135806.291→Z[4]:641.553→T: 1250→R: 197°18′24.6″→B:-1→W：47°58′10.5″→A：170→C：5754.159→G: 6214.901→V: 622.884→K ：0→H: Goto 3: IfEnd : If S≤136742.011: Then 135806.291→Z[3]: 136742.011→Z[4]:478.898→T: 1250→R: 149°20′14.4″→B: 1→W：33°20′54.4″→A：208.169→C：4790.364→G: 6786.312→V: 0→K ：0→H: Goto 3: IfEnd : If S≤138614.023: Then 136742.011→Z[3]: 138614.023→Z[4]:564.626→T: 1300→R: 182°41′08.7″→B: -1→W：40°05′08.2″→A：180→C：2966.347→G: 6700.747→V: 782.498→K ：219.48→H: Goto 3: IfEndLbl 3：子程序5:ZZ(曲线坐标子程序)Z[8] - Z[5]+T→Z[11]：G + Z[11] cos(B +180)→X:V + Z[11] sin (B +180)→Y:B →J: Prog“XS”: Return子程序6:YX(曲线坐标子程序)S- Z[6]→S：180S÷(πR) +180C÷（2πR）→P:C÷2-L^3÷（240 R2）→ J: G+T cos(B +180) →X: V+T sin (B +180) →Y: X+(R sinA+J)cosB+W( R(1-cosA)+ C2÷（24R）) cos(B+90)→ X:Y+(R sin A+J) sin B+W( R(1-cosA)+ C2÷（24R）) sin(B+90)→ Y :B+WA→ J: Prog“XS”:Return子程序7:HX1(曲线坐标子程序)S- Z[8]→S：G+T cos (B+180) →X :V+T sin (B +180) →Y:X+(S-S^5÷(40 R2C2))cosB+W( S^3÷ (6RC)-S^7÷（336R^3C^3）) cos(B+90)→ X :Y+(S-S^5÷(40 R2 C2))sinB+W( S^3÷ (6RC)-S^7÷（336R^3C^3）) sin(B+90)→ Y: B+180W S2÷ (2πR C)→ J: Prog“XS”: Return子程序8:HX2(曲线坐标子程序)Z[4] -S→S：G+T cos (B +WA) →X :V+T sin (B +WA) →Y: X+(S-S^5÷(40 R2C2))cos(B+WA+180)-W(S^3÷ (6RC)-S^7÷（336R^3C^3）) cos(B+WA+270)→X :Y+(S-S^5÷(40 R2 C2))sin(B+WA+180)-W(S^3÷ (6RC)-S^7÷（336R^3C^3）) sin(B+WA+270)→ Y: B+WA-180W S2÷ (2πR C)→ J: Prog“XS”: Return子程序9:ZZH(曲线坐标子程序)Z[5]-Z[4] +T→S:G+Scos(B+WA) →X:V+Ssin(B+WA) →Y: B+WA→J: Prog“XS”: Return子程序10 :ZBFS(坐标反算)Prog“T-1” : Z[1] →A: Z[13] →B: Z[15] →E: Z[16] →O: “X0”? E:“Y0”? O:“H0” ?A: “HOU DU=” ? B: A→Z[1]:B→Z[13] :E→Z[15]: O→Z[16]←┘Lbl 1: Prog“SATA” : Z[3] +K→Z:S-Z→L：Prog“HQ”：（X-E）sin（Q+90）-（Y-O）cos（Q+90）→H:While Abs H≥0.0001: S-H→S: Goto 1:WhileEnd:“S=”:S◢“D=”: (X-E) sinQ-(Y-O) cos(Q)→D◢Lbl 2：D→Z[6]：S→Z[5]:Prog”GC”: Z[3]→B←┘子程序11:Prog “HQ”ARπ÷180+C →K:C2÷（24R）-C^4÷（2688R^3）→ P:(R+P)tan(A÷2)+C÷2-C^3÷(240R2 )→T: -1→N:If L >K-C: Then K-L →L:1→N : IfEnd←┘If L≤0: Then L→X: 0→Y: 0→Q: Goto 1: IfEnd←┘If L≤C :Then L-L^5÷(40R2C2)→X: L^3÷(6RC)-L^7÷(336R^3C^3)→ Y: 90L2÷(πRC )→Q: Goto 1: IfEnd←┘If L≤K-C :Then 180(L-C)÷(Rπ)+90C÷（Rπ)→Q: RsinQ+C÷2-C^3÷(240 R2)→X:R(1-cosQ)+P→Y:IfEnd←┘Lbl 1: If N=1 :Then A-Q→Q: X→I: =Y →J: T+(T-I)cosA-JsinA →X: (T-I)sinA+J cosA→Y:IfEnd←┘X →I: W Y→J: G+Tcos(180+B)+IcosB-JsinB→X:V+Tsin(180+B)+IsinB+JcosB →Y: B+WQ→Q:Return隧道超欠挖子程序12：Prog “SD”Z[2] →M: If M=1 :Then Z[6]-5.9→D： Goto 1：Else Z[6]+5.9→D：Goto 2: IfEnd ←┘Lbl 1: If S≤136300: Then Goto 3 : IfEnd:If S≤137525: Then Goto 4 : IfEnd:If S≤137635: Then D+(Z[4] -137525)*(0.066÷110) →D: H+(Z[4] -137525)*(0.195÷110) →H: Goto 4: IfEnd：If S >137635: Then D+0.066 →D: H+0.195 →H: Goto 4: IfEndLbl 2:If S≤133730: Then D-0.049→D:H+0.151→D:Goto 3 : IfEnd:If S≤133830: Then D+(Z[5] -133730)*(0.017÷100)-0.049 →D: H-(Z[5] -133730)*(0.053÷100) +0.151→H: Goto 3: IfEnd：If S≤133897.5: Then D+(Z[5] -133830)*(0.032÷67.5)-0.032 →D: H-(Z[5] -133830)*(0.098÷67.5) +0.098→H: Goto 3: IfEnd：If S ≤136000: Then Goto 3: IfEnd: If S ≤136535: Then D-0.064→D:H+0.196→H:Goto 4 : IfEnd : If S ≤136605: Then D+(Z[5] -136535)*(0.032÷70)-0.064→D:H-(Z[5]-136535)*(0.098÷70)+0.196→H:Goto 4 :IfEnd: If S ≤136672.5: Then D+(Z[5]-136605)*(0.032÷67.5)-0.032→D:H-(Z[5]-136605)*(0.098÷67.5)+0.098→H:Goto 4 : IfEnd: If S ＞136672.5: Then Goto 4 : IfEndLbl 3: POl(Z[1]-H-1.55, D):”CQW=“：I-（5.65+ Z[13]）◢ReturnLbl 4: POl(Z[1]-H-1.5, D):”CQW=“：I-（5.7+ Z[13]）◢Return←┘子程序13：Prog “GC”Z[14] →B : Z[5] →K : K→S: “CQW≠0 AND GAOCHENG=0”? B:B→Z[14]:If B ≠0 : Then Goto 1 :IfEnd : If B=0 : Then Goto 2: IfEnd←┘Lbl1: If M=1:Then Prog“S1”:Goto 5:IfEnd：If M=2 :Then Prog“S2”:Goto 5:IfEnd←┘Lbl2: Z[17] →G : “FEN L≠0 AND ZHENG T=0”?G: G→Z[17]: If G≠0: Then Goto 4:Else Goto 3:IfEnd←┘Lbl3:If M=1 AND D >=0: :Then Prog“S1”:Prog“SQX”:Prog“C1”:Goto 6:IfEnd: If M=1 AND D <=0: :Then Prog“S1”: Prog“SQX”:Prog“C2”:Goto 6:IfEnd←┘Lbl4: If M=1: Then Prog“S1”:Prog“SQX”:Prog“C1”: Goto 7:IfEnd： If M=2: Then Prog“S2”: Prog“SQX”:Prog“C2”: Goto 7:IfEnd←┘Lbl5: Prog“SQX”:Prog“SD” : Return←┘Lbl6: Prog“GC1”: H +E*(Abs(D)-1)→H : Prog“GC3”：Return ←┘Lbl7: Prog“GC1”: Prog““GC2””: Return ←┘子程序14：Prog “SQX”Abs(R*Tan(Tan-1(I-J) ÷2))→T:R(I-J) ÷ Abs(I-J) →R:Z-T→N:Z+T→W: Abs(Z-K) →U:If K≤N：Then A-JU→H: Goto 2:IfEnd: If K≤Z：Then A-JU+(K-N)2÷(2R) →H: Goto 2:IfEnd: If K≤W：Then A+IU+(W-K)2÷(2R) →H: Goto 2:IfEnd: If K＞W：Then A+IU →H: H→Z[12]:Goto 2:IfEnd: Lbl 2:“H=”:H◢右线高程数据库子程15：Prog “S1”Lbl 1: If Z≤133450 (终点桩号)：Then 20000→R（半径）： 0.028→I（前坡度）：0.013→J（后坡度）： 133300→Z（交点桩号）： 414.25→A（交点高程）：Goto 2: IfEnd：If Z≤134519：Then 16000→R： -0.005→I： 0.028→J：134255→Z： 440.99→A：Goto 2:IfEnd：If Z≤135107.15：Then 10000→R： 0.036431→I：-0.005→J： 134900→Z： 437.765→A：Goto 2:IfEnd：If Z≤135635.9：Then 23846.153→R： 0.02→I：0.036431→J： 135440→Z： 457.437→A：Goto 2:IfEnd：If Z≤136465：Then 280000→R： 0.0185→I：0.02→J： 136255→Z： 473.737→A：Goto 2:IfEnd：If Z≤137415：Then 180000→R： 0.015→I：0.0185→J： 137100→Z： 489.37→A：Goto 2:IfEnd：If Z≤138250：Then 40000→R： 0.03→I：0.015→J： 137950→Z： 502.12→A：Goto 2:IfEnd Lbl 2左线高程数据库子程序16：Prog “S2”Lbl 1: If Z≤133495 (终点桩号)：Then 60000→R（半径）： 0.0265→I（前坡度）：0.02→J（后坡度）： 133300→Z（交点桩号）：416.358→A（交点高程）：Goto 2: IfEnd：If Z≤134527：Then 17000→R： -0.0055→I： 0.0265→J： 134255→Z： 441.665→A：Goto 2:IfEnd：If Z≤135109.65：Then10000→R： 0.036431→I：-0.0055→J： 134900→Z： 438.118→A：Goto2:IfEnd：If Z≤135633.8：Then 23589.743→R： 0.02→I：0.036431→J：135440→Z： 457.79→A：Goto 2:IfEnd：If Z≤136455：Then 100000→R：0.024→I：0.02→J： 136255→Z： 474.09→A：Goto 2:IfEnd：If Z≤137403.75：Then 45000→R： 0.0105→I：0.024→J： 137100→Z： 494.37→A：Goto 2:IfEnd：If Z≤138159.5：Then 30000→R： 0.0278→I：0.0105→J： 137900→Z： 502.77→A：Goto 2:IfEnd：Lbl 2右线平曲线超高数据库子程17：Prog “C1”If S≤134665：Then -0.02→E：Goto 1: IfEnd：If S≤133830：Then-0.02+(0.06÷165)*(S-133665)→E：Goto 1:IfEnd：f S≤135485：Then0.04→E ：Goto 1:IfEnd：If S≤135650：Then 0.04-(0.06÷165)*(S-135485)→E：Goto 1:IfEnd： I f S≤135980：Then -0.02→E：Goto 1:IfEnd：If S≤136100：Then -0.02-(0.02÷120)*(S-135980)→E：Goto 1:IfEnd：I f S≤136555：Then -0.04→E：Goto 1:IfEnd：If S≤136675：Then -0.04+(0.02÷120)*(S-136555)→E：Goto 1:IfEnd：I f S≤137470：Then -0.02→E：Goto 1:IfEnd：If S≤137635：Then-0.02+(0.06÷165)*(S-137470)→E：Else 0.04→E：Goto 1:IfEnd←┘Lbl 1: Return←┘左线平曲线超高数据库子程18：Prog “C2”Lbl 1: If S≤133730：Then 0.03→E：Goto 1: IfEnd：If S≤133830：Then0.03-(0.01÷100)*(S-133730)→E：Goto 1:IfEnd：f S≤133965：Then0.02-(0.04÷135)*(S-133830)→E：Goto 1:IfEnd：：Goto 1:IfEnd： I fS≤134600：Then -0.02→E：Goto 1:IfEnd：If S≤134755：Then-0.02-(0.02÷155)*(S-134600)→E：Goto 1:IfEnd：I f S≤135640：Then-0.04→E：Goto 1:IfEnd：If S≤135735：Then -0.04+(0.02÷95)*(S-135640)→E：Goto 1:IfEnd：If S≤135875：Then -0.02+(0.04÷140)*(S-135735)→E：Goto 1:IfEnd：If S≤136010：Then 0.02+(0.02÷135)*(S-135875)→E：Goto 1:IfEnd：I f S≤136535：Then 0.04→E：Goto 1:IfEnd：If S≤136605：Then 0.04-(0.02÷70)*(S-136535)→E：Goto 1:IfEnd：If S≤136740：Then 0.02-(0.04÷135)*(S-136605)→E：Goto 1:IfEnd：I f S≤137530：Then - 0.02→E：Goto 1:IfEnd：If S≤137700：Then -0.02-(0.02÷170)*(S-137530)→E：Else -0.04→E：Goto1:IfEnd←┘Lbl 1: Return←┘边桩高程子程19：Prog “GC1”Z[12]→H:Z[1]→C:Z[6]→D::H+ Z[13]→H:边桩高程子程20：Prog “GC2”If M=1: Then H +E*(D-1)→H：Prog “GC3”:IfEnd：If M=2: Then H-E*(D+1)→H：Prog “GC3”:IfEnd←┘边桩高程显示子程21：Prog “GC3”“HB=”:Locate 7,4,H: “GC=”:Locate 7,4,C-H◢高程主程序程22：Prog “100”Prog“T-1”:“PIAN JU=”? D:“HONG DU=”?N:N→Z[13]:”H0=”?C:C→Z[1]: Prog“GC”平面坐标显示子序程23：Prog “XS”“X=”:Locate 6,4,X: “Y=”:Locate 6,4,Y◢程序说明：进入主程序界面：？S输入计算判断数值：1~坐标反算~”ZHUAN GHAO”?(输入所要反算大概桩号，只要是上一段曲线的HZ点到下一段曲线的ZH点范围内都可以，不过输入的桩号越是接近计算速度会越快)←┘”XIAN LU=”?(主线输入1、左线输入2)←┘X0?输入实测X值←┘Y0?输入实测Y值←┘“H0”?输入实测高程←┘“HOU DU=”?计算超欠挖的时候输入衬砌厚度值，计算高程时输入路面厚度值（路面以下为负值，路面以上为正值）←┘计算显示结果“S=”(桩号)，“D=”(偏距)，“CQW≠0 AND GAOCHENG=0”?当进行隧道超欠挖计算时输入不等于零的值，当只是计算边桩或中桩高程是输入零←┘“FNE L≠0 AND ZHENG T=0”?判断是整体是路基还是分离式路基，整体式路基等于零，分离式路基不等于零。

CASIO5800计算器测量计算程序
程序功能：温度单位转换和体积计算
--------------------------------------------------------------
1.温度单位转换：
a.华氏度转摄氏度：C=(F-32)*5/9
b.摄氏度转华氏度：F=C*9/5+32
2.体积计算：
a.圆柱体体积计算：V=π*r^2*h
b.球体体积计算：V=(4/3)*π*r^3
--------------------------------------------------------------
程序开始：
1.清零操作：
a.按下【AC】键，确保计算器归零。

2.温度单位转换：
a.输入待转换的温度值，例如华氏度的数值。

b.使用【-】键计算华氏度转摄氏度，或者使用【+】键计算摄氏度转华氏度。

c.输入转换得到的温度值。

3.体积计算：
a.选择需要计算的体形，例如圆柱体或球体。

b.输入相应的参数，例如半径和高度。

c.使用【×】键计算圆柱体体积，或者使用【÷】键计算球体体积。

d.输入计算得到的体积值。

--------------------------------------------------------------
程序结束。

这只是一个简单的示例程序，CASIO5800计算器具有更多的功能和测量计算程序。

用户可以根据需要自行设计和编写更复杂的程序。

卡西欧5800计算器如何编程步骤一：进入编程模式首先，在计算器的主界面上找到“MODE”按钮，按下该按钮，进入模式选择界面。

在模式选择界面中，选择“PROGRAM”模式，按下“=”确认进入编程模式。

步骤三：编写程序指令1.输入指令：通过使用”INPUT”指令，可以要求用户输入一个数值。

例如，输入指令“INPUTA”表示将用户输入的数值存储到变量A中。

2.输出指令：通过使用“PRINT”指令，可以打印变量的值。

例如，输出指令“PRINTA”表示打印变量A的值。

3.运算指令：卡西欧5800支持基本的数学运算，如加法、减法、乘法和除法。

例如，运算指令“A=B+C”表示将变量B和变量C的值相加，并将结果存储到变量A中。

4.条件指令：卡西欧5800支持简单的条件操作。

例如，条件指令“IFA>BTHENPRINTAELSEPRINTB”表示如果变量A的值大于变量B的值，则打印变量A的值，否则打印变量B的值。

除了上述基本指令外，卡西欧5800还支持其他一些高级指令，如循环和调用子程序等。

但是，由于篇幅限制，无法在本文中详细介绍这些指令。

你可以查阅卡西欧5800的用户手册，以了解更多详细的编程指令和语法规则。

步骤四：保存和执行程序在程序执行过程中，计算器将按照你编写的指令顺序执行，执行完毕后，将输出结果或者执行下一步的操作。

需要注意的是，卡西欧5800的编程功能较为简单，适合用于一些基本的数学计算。

如果你需要进行更复杂的编程任务，可能需要使用更高级的计算器或其他编程工具。

总结：以上就是关于如何使用卡西欧5800进行编程的详细介绍。

通过简单的编程，你可以利用卡西欧5800解决一些常见的数学计算问题。

虽然卡西欧5800的编程功能相对简单，但对于初学者来说，它是一个很好的入门工具，帮助你了解和掌握基本的编程概念和语法。

卡西欧5800计算器编程语言学习1.Norm 1 指数显示Norm 2 小数显示2.?→x 只显示？字符+?→x 显示字符+？？x 显示 x?“字符”？x 显示字符+？有→则不显示该变量当前3.（判断表达式）语句1 : 语句2。

如果判断表达式为真（或非零），则不跳过语句1.如果判断表达式为假（或是零），则会跳过语句1.4. If...then…else…ifend如果语句为真，则执行then（不执行else）,然后执行ifend.如果语句为假，则执行else（不执行then）,然后执行ifend.5. Break 中断语句中断For，Do，While循环，并从该循环的下个命令起继续运行6. Dsz使控制变量递减一，在变量的值为零时执行转移7. IszIsz<变量>:<语句1> <语句2>，变量应为A~Z以1 为增量逐次增加变量的值，当变量的值不等于0 时，执行语句1，否则执行语句28. ClsDsz<变量>:<语句1> <语句2>。

变量应为A~Z。

以1 为减量逐次减小变量的值，当变量的值不等于0 时，执行语句1，否则执行语句29. Locate 定位显示语句句法 1：Locate <列数>, <行数>,<数值>句法2：Locate <列数>, <行数>,<表达式>句法3：Locate <列数>, <行数>, "字符串"fx-5800P 的屏幕最多可以显示4 行、16 列字符，因此定位语句中的列数值应为大于等于1、小于等于16 的整数，行数值应为大于等于1、小于等于4 的整数。

10. Lbi n ~ Goto n Goto n~Lbl n无条件转移至 Lbi n 位置11. Getkey返回与上次按键相对应的代码,Getkey=12. DO ~ LpWhile循环语句Do <语句块> LpWhile<条件>先执行语句块，然后测试条件，条件为真时重复执行语句块，否则执行<条件>后的语句。

FX5800计算器公路测量常用程序集一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。

主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。

程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:L bI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ：(P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ：Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A：0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LW Ｓ))+Ncos(G+QEMW(C+MW Ｓ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LW Ｓ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C +(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ：Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ：Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"：T+QEW(C+W Ｓ) →Ｌ：(J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:Lb I I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。

CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。

1、主程序：程序名：ZCX输入：”K”?K←If K >540980.584 (直线起点里程) And K<= （小于等于符号）541358.301:（直缓点里程）Then 2890632.365→A: 526217.878→B:79°34′47.8″→F:540980.584→J:Prog”ZX”(A,B,F,J分别为起算点坐标，方位角，里程) Prog”PJ”(运行求偏距的程序)IfEndIf K>541358.301 （直缓点里程）And K<=541488.301：（缓圆点里程）Then 2890700.680→A:526589.366→B: 79°34′47.8″→F: 541358.301→J:1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为直缓点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541488.301（缓圆点里程）And K<=541694.275:（圆缓点里程）Then 2890723.4→A: 526717.363→B:80°38′38.4″→F:541488.301→J:1→G:3500→R:Prog”YQX”（A,B,F,J,G,L分别为缓圆点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541694.275 （圆缓点里程）And K<=541824.275：（缓直点里程）Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J:-1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为缓直点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541824.275 （缓直点里程）And K<=542167.602：（下一段直缓点里程）Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J: Prog”ZX”(A,B,F,J分别为缓直点坐标，方位角，里程)注：以上程序为一段标准曲线（包括直线，缓和曲线，圆曲线，缓和曲线，直线）的主程序，程序名为ZX，HHQX，YQX2、直线程序程序名：ZXA+(K – J )xcos(F) →X:”X0=”:X◢B+(K – J )xsin(F) →Y:”Y0=”:Y◢F→W:”F=”:W◢3、圆曲线程序程序名：YQXA+2xRxSin（90x(K- J)÷∏÷R）XCos(F+90xGx(K- J) ÷∏÷R) →X:”X0=”:X◢B+2xRxSin（90x(K- J)÷∏÷R）XSin (F+90xGx(K- J) ÷∏÷R) →Y:”Y0=”:Y◢F+180xGx(K- J) ÷∏÷R→W: F=”:W◢4、缓和曲线程序程序名：HHQXA+((K- J)-(K- J)5÷(90xR²xL²))xcos(F+30xGx(K- J) ²÷∏÷R÷L) →X: “X0=”:X◢B+((K- J)-(K- J)5÷(90xR²xL²))xsin(F+30xGx(K- J) ²÷∏÷R÷L) →Y: “Y0=”:Y◢F+90xGx(K- J) ²÷∏÷R÷L→W:”F=”:W◢5、偏距程序50→DimZ“Z=”?Z:(Z为偏离线路中线的距离)X+Zxcos(W-90) →U:”XL=”:U◢(左边X坐标)Y+Zxsin(W-90) →V:”YL=”:V◢(左边Y坐标)X+Zxcos(W+90) →D:”XR=”:D◢(右边X坐标)Y+Zxsin(W+90) →E:”YR=”:E◢(右边Y坐标)Return。

1、ZXKW（直线开挖）“D=”?D:“PD=”?F:“ZXJ=”?L:Lbl 0:“Y=”?Y:“Z=”?Z“T=”:Abs(Y)-((Z-D)*F+L)→T◢“ZL=”:Z-(D+0.3)◢GoTo 0本程序适用于直线段渠道开挖，坐标为工程坐标，D为坡脚处高程，PD为坡度，ZXJ为待放样边坡坡脚距中心线的水平距离，T表示棱镜所应水平移动距离，T为正值时向中心线方向移动，负值时向中心线外移动。

“ZL=”表示为垂直向下开挖深度。

Lbl 0前各数值为定量，后各数值为变量，Lbl 0后的0为01234的0.2、ZXDM(直线段面)“M=”?M:“N=”?N:“Q=”?Q:“O=”?O:L bl 0:“X=”?X:“Y=”?Y:“Z=”?Z“F=”(X-M)COS(Q)+(Y-N)SIN(Q)+O→F◢“G=”-(X-M)SIN(Q)+(Y-N)COS(Q) →G◢“T=”:Abs(G)-((Z-96)*2+8.88-0.67) ◢GoTo 0本程序适用于直线段渠道开挖，坐标为大地坐标，M、N为某段直线起点在大地坐标中的大地坐标值，O为直线起点处桩号值，F为桩号，G为中心距，T表示棱镜所应水平移动距离，T为正值时向中心线方向移动，负值时向中心线外移动。

3、ZJZB(直角坐标)“A=”?A:“B=”?B:Lbl 0:“C=”?C:“D=”?DPol(C-A,D-B)“L=”:I→L◢J≤0 ＝＞ J+360°→J“Q=”:J→Q◢GoTo 0本程序适用于坐标反算，A、B为起算点坐标值，C、D为待定点坐标值，L为起算点与待定点间水平距离，Q为起算点与待定点间的方位角。

4、JZB(极坐标)“A=”?A:“B=”?B:Lbl 0:“L=”?L: “Q=”?QRec(L,Q)“X=”:I+A→X◢“Y=”:J+B→Y◢GoTo 0本程序适用于坐标正算，A、B为起算点坐标值，L为起算点与待定点间水平距离，Q为起算点与待定点间的方位角，X、Y为待定点坐标。

1．单圆曲线(YQX1)（张队提供）“KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，线路左转输入+1，线路右转输入-1，R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）“L=”：GRπ÷90→L◢（计算圆曲线长）“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）LbI 1←┘?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘If U＜0:Then U+360→U:Else U→U:If End←┘“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=” Z[1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入1返回继续计算下一点，输入其他值退出程序）2.YQX-ZB(圆曲线中边桩放样)“R”?R:（圆曲线半径）“P”?P：(线路转角)“F”?F:（起始方位角）“G”?G:（线路转向信息，左转为-1，右转为+1）“ZY-X”?M:?N:(ZY点坐标)“L=”πRP÷180→A◢(曲线弧长)F+90G→F(ZY点的径向方位角)“O-X”:M+Rcos (F) →A◢（圆心X坐标）“O-Y”:N+Rsin (F)→B◢（圆心Y坐标）“ZY-ZH”:?Z(ZY点桩号)Lb1 0:“JM-ZH”:?K: (加密点桩号)K-Z→V: (加密点曲线弧长)180V÷(πR) →U: (加密点曲线弧长所对应的圆心角)F+180+GU→U: (圆心至加密点的方位角)“XP=”:A+Rcos(U) →S◢(加密点中桩X坐标)“YP=”:B+Rsin(U) →T◢(加密点中桩Y坐标)“BZ”:?W: (边桩宽度)“XL=”:S+GWcos(U)◢(左边桩X坐标)“YL=”:T+GWsin(U)◢(左边桩Y坐标)“XR=”:S-GWcos(U)◢(右边桩X坐标)“YR=”:T-GWsin(U)◢(右边桩Y坐标)Goto 0：3．(ZX-ZB) 直线段中边桩放样“QD-X,Y”:?A:?B: (起点坐标（A,B）)“QD-ZH”:?Z: (起算点桩号)“ZD-X,Y”:?C:?D: (终点坐标（C,D）)Pol(C-A,D-B):J<0=>J+360→J: (线路方位角) LbI 0：“ZD-ZH”:?K: (加密点桩号)K-Z→V: (加密点到起算点极径)“XP=”:A+Rec(K,F) →M◢(加密点中桩X坐标)“YP=”:B+J →N◢(加密点中桩Y坐标) “BZ”:?W: (边桩宽度)F-90→U(中桩到边桩向量的方位角)“XL=”:M+Rec(W,U)◢(左边桩X坐标)“YL=”:N+J◢(左边桩Y坐标)“XR=”:M-I◢(右边桩X坐标)“YR=”:N-J◢(右边桩Y坐标)Goto 0：。

卡西欧5800-9960系列计算器通用程序集作者：柠檬树QQ：249910569第一篇坐标正反算通用程序(终极篇)1.第1行：Lbl 0:”第2行：Prog “A”第3行：”X=”◢第4行：”Y=”第5行：”F=”第6行：GotoK——计算点的里程BIAN——计算点到中桩的距离（左负右正）α——取前右夹角为正A匝道数据2.第1行：”X1=”? C:第2行：Lbl第3行：第4行：第5行：第6行：第7行：Abs(S)>0.0001=>Goto 0第8行：”K1=”:K◢第9行：”BIAN=”:Isin(J-F)→Z◢X1——取样点的X坐标Y1——取样点的Y坐标K1ZA匝道数据List Ans列表中反算桩号反算偏距，为方便其他程序的调用，赋值到变量Z注：第4行和第53.第1行：K-A I第2行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N第3行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E第4行：F+S(2P+S I)×90÷π→F反向计算时需改为Abs(K-A)→S计算中桩的X坐标计算中桩的Y坐标计算中线切线方位角4. 数据库（命名为A）第1行：K≤第2行：175.191→→→K≤A+L第3行：245.607→→→Q:第4行：→→Q: 55.104 →L:第5行：373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L: K≤A+L=>Goto 1:Stop（第一缓和曲线，圆半径为180）卡西欧fx-5800P程序集作者：柠檬树QQ：249910569第6行：Lbl 1:Prog “XYF”ANE——曲线段起点的FP)Q)L说明：（1）在9860中，程序中所有公式和部分函数结果均存储在List Ans列表数组中，要想多次调用最好随公式取出结果，并赋给变量。

卡西欧5800道路坐标测量程序（通俗易懂版）主程序（自己给取个名吧）2→Dimz“1.SZ＝﹥XY2.XY＝﹥SZ”◢“N=”?NIf N=1:Then Goto 1:Else Goto 2:IfEndLbl 1“S=”?S“Z=”?Z“J=”?TIf S﹤0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉)1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E:Abs(Abs(S)-O)→W:Prog “SUB1”“QJ=”:Z[1]◣DMS◢“X=”:X◢“Y=”:Y◢Goto 1Lbl 2“S=”?SIf S<0:Then Prog “SYL”:Else Prog “SYR”:IfEnd(可拿掉) 90→T1÷P→C:(P-R) ÷(2HPR)→D:180÷∏→E“X=”?X“Y=”?YX→I:Y→JProg “SUB2”O+W→S（红色加粗加下画线为字母，常规为零）“S=”:S◢Z→Z“Z=”:Z◢Goto 2子程序（SUB1）0.1739274226→A：0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C +FWD))+Acos(G+QEMW(C+MWD)))→XV+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+F WD))+Asin(G+QEMW(C+MWD))) →YG+QEW(C+WD)→Z[1]Z[1]+T→FX+Zcos(F)→XY+Zsin(F)→YReturn子程序(SUB2)G-90→Z[2]:Abs((Y-V)cos(Z[2])-(X-U)sin(L)→W:0→ZLbl 0Prog “SUB1”Z[2]+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<10(-6):Then Goto 1:EIse W+Z→W:Goto 0:IfEndLb1 10→Z:Prog “SUB1”(J-Y)÷sin(F)→ZReturn数据库（SYR）If S>29599.031(本段线元计算范围起点里程) And S≤29759.031(本段线元计算范围终点里程):Then 3311072.206(本段线元起点X坐标)→U:502909.1014(本段线元起点Y坐标)→V: 29599.031(本段线元起点里程)→O:256-25-59.11(本段线元起点方位角)→G:160(本段线元长度)→H:1400(本段线元起点半径)→P:10(45)(本段线元终点半径)(直线段为10的45次方)→R:-1(线元转向标识)(左偏为-1,右偏为1,直线为0)→Q:IfEnd输入说明正算 1 输入 N:输入1进入计算坐标模式S:里程桩号Z:偏距J:与线路角度2 显示 QJ:切线方位角X:X坐标Y:Y坐标反算 1 输入 N:输入2进入坐标反算里程偏距模式S:输入相近里程X:输入X坐标Y:输入Y坐标2 显示 S:反算出的里程桩号Z:反算出的偏距。

CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算”X0=〃X:”Y0=〃Y:”I=〃I:”J=〃JX+ICos(J)→U:Y+ISin(J)→V”X=〃:U （待求点的X坐标）”Y=〃:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0”X1=〃X:”Y1=〃Y:”X2=〃U:”Y2=〃VPol(U-X,V-Y):J<0 J+360→J”I=〃:I”J=〃:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线”X0=〃X: ”Y0=〃Y:”FWJ=〃D:”QDHAO=〃G: ”ZDHAO=〃C: ”R=〃RLbl 1”DQHAO=〃LL<G Or L＞C GOTO 2”PY=〃K180(L-G)÷(πR) →E2RSin →FReC(Abs(F),D+：Cls”X=〃:X+I+KCos(D+E+90) →A”Y=〃:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o”FWJ=〃:o DMSGoto 1Lbl 2”END〃说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线”QZHAO =〃J: ”H+B〃=B:”I1=〃C:”I2=〃D:”R=〃R:”T=〃T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(D-C) ÷100)→S”T〃:SJ-T→XJ＋T→YLbl 0”DQ=〃LIf L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End”GC=〃:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HLbl 1”END〃说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

第十四篇坐标法面积、周长计算1. 坐标法面积、周长计算程序(命名为ZBMJ)第1行：FreqOn:ClrStat:ClrMemory第2行：“N=1”: 1→N: “X=”?→C: “Y=”?→D: C→A:D→B:A→List X[1] :B→List Y[1]第3行：Lbl 0:“N=”:N+1→N◢“X=”?→E: “Y=”?→F:E→List X[N] :F→List Y[N]第4行：Pol(E-C,F-D+10^(-45)): I→G:J→H:L+G→L第5行：Pol(E-A,F-B+10^(-45)): E→C:F→D:N=2=>J?DMS◢第6行：“PMT=”: N=2=>0→I: L+I◢第7行：“ARE=”:S+GIsin(J-H)÷2→S:Abs(S)→List Freq[N]◢第8行：Goto 0N——取样点的顺序号PMT——多边形的周长ARE——多边形的面积X——对应点号N的取样点X坐标Y——对应点号N的取样点Y坐标以上为5800程序，在9860中程序如下第1行：ClrList:0→L:0→S:0→List 3[1]:0→List 4[1]第2行：“N=1”: 1→N: “X=”?→C: “Y=”?→D: C→A:D→B:A→List 1[1] :B→List 2[1]第3行：Lbl 0:“N=”:N+1→N◢“X=”?→E: “Y=”?→F:E→List 1[N] :F→List 2[N]第4行：Pol(E-C,F-D+10^(-45)) : List Ans[1]→G:List Ans[2]→H:L+G→L第5行：Pol(E-A,F-B+10^(-45)) : List Ans[1]→I:List Ans[2]→J: E→C:F→D:N=2=>J?DMS◢第6行：“PMT=”: N=2=>0→I: L+I→List 3[N]◢第7行：“ARE=”:S+GIsin(J-H)÷2→S:Abs S→List 4[N]◢第8行：Goto 02．计算实例：N=1 X = 940.5392 Y = 898.4861N=2 X = 1114.8811 Y = 996.4907 PMT=200.000 ARE=0 (29°20′31.54″) N=3 X = 1065.8788 Y = 1083.6617 PMT=523.607 ARE=10000N=4 X = 1338.2253 Y = 1007.3243 PMT=995.153 ARE=20000N=5 X = 1261.8880 Y = 734.9778 PMT=1226.241 ARE=70000N=6 X = 1212.8857 Y = 822.1488 PMT=1248.528 ARE=60000N=7 X = 1038.5438 Y = 724.1442 PMT=1365.686 ARE=800003. 说明：（1）动态显示结果：按照一定顺序（逆时针或顺时针均可）依次取样输入到计算器，可动态显示周长和面积，并可以随时停止，最后一次显示结果为最终结果。

卡西欧5800P计算器TYQXJSI坐标正反算(经过修改)1.主程序(TYQXJSI)10→DimZ:"1.SZ → XY"："2.XY → SZ"：？N："XO"? U："YO"? V："SO"? O："FO"? G："LS"? H："RO"? P："RN"? R：? Q: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：If N=1: Then Goto 1: Else Goto 2: IfEndLbl 1："DK? +?"? S：?Z: Abs(S-O)→W：If W>H or S<O: Then Stop: IfEnd : Prog "SUB1": "XS=”:X◢"YS=”: Y◢"FS=”:(F-90) →F：F DMS◢Goto 1Lbl 2:? X:? Y: "H"?A:X→I:Y→J:Prog "SUB2"：If W>H or S<O: Then Stop: IfEnd :"DK?+?=”:O+W→S◢"Z”:Z◢Prog”NGDM”:Prog”OPRP1”:Goto 2IF N=2: Then If S<157188: Then Prog”OPRP1-100”:Else If S>157297: Then Prog”OPRP2-0”: ElseProg”OPRP1-50” IfEnd: IfEndElse If N=3: Then Prog”OPRP4”: IfEnd :IfEnd2. 正算子程序(SUB1)0.1739274226 →Z[3]：0.3260725774→B：0.0694318442→K：0.3300094782→L:(1-L) →F：(1-K)→M：(U+W(Z[3]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+ Z[3]cos(G+QEMW(C+MWD)))) →X：V+W(Z[3]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( C+FWD))+ Z[3]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：(X+Zcos(F))→X：(Y+Zsin(F))→Y注：Z[3]替代源程序A。

卡西欧5800计算器编程入门程序集编程入门程序集：1.输入输出控制：程序的第一步是实现输入输出控制，以便用户能够与程序进行交互。

以下是一个简单的输入输出程序示例：```PROGRAM HelloWorld;BEGINPRINTLN("Hello, World!");PAUSE;END.```这个程序会在计算器的屏幕上显示"Hello, World!"，并暂停等待用户的确认，直到用户按下任意键时继续执行。

2.简单的计算：接下来，我们来看一个简单的计算程序示例：```PROGRAM SimpleCalculator;VARnum1, num2, result: INTEGER;BEGINPRINTLN("Enter the first number: ");READLN(num1);PRINTLN("Enter the second number: ");READLN(num2);result := num1 + num2;PRINTLN("The sum is: ");PRINTLN(result);PAUSE;END.```这个程序会要求用户输入两个数字，然后计算它们的和，并在屏幕上显示结果。

3.条件语句：条件语句可以根据条件执行不同的操作。

以下是一个条件语句的示例程序：```PROGRAM EvenOrOdd;VARnum: INTEGER;BEGINPRINTLN("Enter a number: ");READLN(num);IF num MOD 2 = 0 THENPRINTLN("The number is even.");ELSEPRINTLN("The number is odd.");PAUSE;END.```这个程序会要求用户输入一个数字，并判断它是偶数还是奇数，并在屏幕上显示相应的信息。

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)一、直线计算程序0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J →A:If A<0:Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:D+Scos(A) →X:”X=”:X ◢E+Ssin(A) →Y:”Y=”:Y ◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值O? 输入边桩与中桩的距离( 左边桩为负值, 右边桩为正值), 如计算中桩坐标输入0S? 输入所求点到直线起点的距离二、圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A →A:IfEnd:sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢R-0.5√(4R2-H2) →Q:”Q=”:Q ◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值R? 输入圆曲线半径L:-1 R:1? 圆曲线向左转弯时输入-1, 向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号( 按下exe 键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90 要求左边边桩输入-90, 右边边桩输入90( 按下exe 键后显示边桩坐标)三、大地转施工“QK=”？Z:“QX=”？A:“QY=”?B:“ZX=”？O :“ZY=”？Q ↙Pol( O -A,Q-B) ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J→F:“JF=”：F ◆DMS ◢Lb1 0 ↙？X:?Y ↙Pol （X-A,Y-B):I→D ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J-F→T:T→G ↙T<0=>T+360→G ↙T>360=>T-360→G ↙Z+Dcos （G)→K:“K=”：K ◢Dsin （G)→C:“C=”：C ◢GoTo 0 ↙说明：QK-- 输入线路起始点里程QX-- 输入线路起始点中桩X 坐标QY-- 输入线路起始点中桩Y 坐标ZX-- 输入线路前进方向中桩X 坐标ZY-- 输入线路前进方向中桩Y 坐标JF=-- 显示线路测量坐标方位角X-- 输入线路附近任意点测量X 坐标Y-- 输入线路附近任意点测量Y 坐标K-- 显示计算结果：里程桩号，即工程X 坐标C-- 显示计算结果：左右偏距，即工程Y 坐标, 中桩=0 ，左偏= 负值，右偏= 正值。