卡西欧5800计算器简易编程实例

CASIO fx-5800P编程计算器不仅仅是一个运用于加减乘除的普通计算器，它的功能非常强大，拥有28500内存字节，类结构化BASIC语言，串列存储统计数据等，还可以在两台fx-5800P间进行数据通讯，便于用户互相交互程序及其他数据。

实例1

定义：编写一个圆的面积计算程序。

思考：编写圆的面积程序前需要想象圆的面积如何计算，涉及到什么计算步骤或者计算公式及参数等！

已知数据：圆的设计半径为5

理论

1、圆的面积A=π×R2

2、π=3.1415926535（取前十位，计算器按SHIFT→π）

3、结果：3.1415926535×5×5=78.5398m²

开始

程序名称：YUAN（按MODE→PROG→NEW→输入字母YUAN→COMP）

Lbl 1（按FUNCTION→PROG→Lbl→1；Lbl为无条件转移命令）

Fix 3（按SHIFT→MODE→Fix；Fin为小数保留显示位数）

“R”?A（按ALPHA+字母，引号内为显示字符，A为赋值）

π×R→B（计算公式核心，表示圆周率乘半径赋值到B，按

SHIFT→π→×→ALPHA→R→FUNCTION→PROG→“→”）

“M2=”:B◢（引号内M2=为显示字符，B为显示结果，◢为显示指令，按ALPHA→”→ALPHA→M→2→=→ALPHA→”→SHIFT→：→ALPHA→B→SHIFT→◢）

Goto 1（无条件调转至Lbl 1，按FUNCTION→PROG→Goto）

说明：程序编写完毕时按EXIT退出运行或者按MODE→1返回普通界面。

计算器源码

程序名称：YUAN

Lbl 1

Fix 3

“R”?A

π×R→B

“M2=”:B◢

Goto 1

实例2

定义：编写两坐标点之间距离和方位角计算程序。

思考：坐标点之间通常为直角坐标，距离与方位角计算为直角坐标转换为极坐标，在CASIO 5800计算器中有直接的计算内置公式即为Pol，这个内置公式直接在界面“+”上面。

已知数据：

1坐标点X=3368058.403

1坐标点Y=462435.035

2坐标点X=3368085.544

2坐标点Y=462417.008

理论

转换示意图

1、Pol（x，y）

x：直角坐标的X值

y：直角坐标的Y值（x，y为两坐标点之间相减得到的增量值）

2、1号点到2号点的方位角应为2号点X减1号点X，2号点Y减1号点Y

3、格式

Pol（3368085.544-3368058.403,462417.008-462435.035）

开始

说明：实例2不再写出输入步骤，其参照实例1方式输入

程序名称：FWJ

Lbl 1（无条件转移）

Deg:Fix 3（Deg定义角度格式，Fix保留小数显示位数）

“Z(X)”?A:”Z(Y)”?B:”Q(X)”?C:”Q(Y)”?D（显示并提示输入，其中Z(X)=1号点坐标X、Z(Y)=1号点坐标Y、Q(X)=2号点坐标X、Q(Y)=2号点坐标Y）

Pol(C-A,D-B):I→E:If J<0:Then J+360→F:Else J→F:IfEnd（Pol为计算核心，其中I变量为距离、J变量为方位角，这里I赋值到E、当J小于0则J自动加上360度再赋值到F）

Cls:”F=”:Locate 3,1,F°:”S=”:Locate 3,2,E◢（输出显示指令，Cls为清屏命令，”F=”:为显示字符，Locate 3,1,F°为第一行第三列显示F赋值）

Goto 1（无条件转移）

说明：程序编写完毕时按EXIT退出运行或者按MODE→1返回普通界面。

计算器源码

Lbl 1

Deg:Fix 3

“Z(X)”?A:”Z(Y)”?B:”Q(X)”?C:”Q(Y)”?D

Pol(C-A,D-B):I→E:If J<0:Then J+360→F:Else J→F:IfEnd

Cls:”F=”:Locate 3,1,F°:”S=”:Locate 3,2,E◢

Goto 1

核对数据

Z(X)?=3368058.403

Z(Y)?=462435.035

Q(X)?=3368085.544

Q(Y)?=462417.008

F=326°24ˊ28.67″

S=32.582

实例3

参照实例1和实例2和其他相关实例程序编写出更多的简易程序以锻炼编程水平，从而提高自己的技术水平。

CASIO fx-5800P命令、符号按键大全

命令 ： 按键次序
∫( ： FUNCTION、1、1
d/dX( ： FUNCTION、1、2
d²/dX²( ： FUNCTION、1、3
∑( ： FUNCTION、1、4
! ： FUNCTION、1、5
Ran# ： FUNCTION、1、6
P ： FUNCTION、1、7
C ： FUNCTION、1、8
Abs( ： FUNCTION、1、↓1
Int( ： FUNCTION、1、↓2
Frac( ： FUNCTION、1、↓3
Intg( ： FUNCTION、1、↓4
Pol( ： FUNCTION、1、↓5
Rec( ： FUNCTION、1、↓6
1og( ： FUNCTION、1、↓7
RanInt#( ： FUNCTION、1、↓8
sinh( ： FUNCTION、1、↓↓1
cosh( ： FUNCTION、1、↓↓2
tanh( ： FUNCTION、1、↓↓3
sinh-1( ： FUNCTION、1、↓↓4
cosh-1( ： FUNCTION、1、↓↓5
tanh-1( ： FUNCTION、1、↓↓6
To ： FUNCTION、3、↓↓↓2
Stop ： FUNCTION、3、↓↓↓3
Next ： FUNCTION、3、↓↓↓4
While ： FUNCTION、3、↓↓↓5
WhileEnd ： FUNCTION、3、↓↓↓6
Abs( ： FUNCTION、2、1
Arg( ： FUNCTION、2、2
Conjg( ： FUNCTION、2、3
Rep( ： FUNCTION、2、4
Imp( ： FUNCTION、2、5
▶r∠θ ： FUNCTION、2、6
▶a+bi ： FUNCTION、2、7
° ： FUNCTION、5、1
γ ： FUNCTION、5、2
▶DMS ： FUNCTION、5、4
ClrStat ： FUNCTION、6、1
ClrMemory ： FUNCTION、6、2
ClrMat ： FUNCTION、6、3
ClrVar ： FUNCTION、6、4
List ： FUNCTION、7、1、1
Freq ： FUNCTION、7、1、2
{ ： FUNCTION、7、1、3
} ： FUNCTION、7、1、4
Mat ： FUNCTION、8、2
dat( ： FUNCTION、8、3
Trn( ： FUNCTION、8、4
Do ： FUNCTION、3、↓↓↓7
LpWhile ： FUNCTION、3、↓↓↓8
Break ： FUNCTION、3、↓↓↓↓1
Return ： FUNCTION、3、↓↓↓↓2
Stop ： FUNCTION、3、↓↓↓↓3
Getkey ： FUNCTION、3、↓↓↓↓4
? ： FUNCTION、3、1
→ ： FUNCTION、3、2
If ： FUNCTION、3、3
Then ： FUNCTION、3、4
Else ： FUNCTION、3、5
IfEnd ： FUNCTION、3、6
Lb1 ： FUNCTION、3、7
Goto ： FUNCTION、3、8
＝ ： FUNCTION、3、↓1
≠ ： FUNCTION、3、↓2
＞ ： FUNCTION、3、↓3
＜ ： FUNCTION、3、↓4
≥ ： FUNCTION、3、↓5
≤ ： FUNCTION、3、↓6
Dsz ： FUNCTION、3、↓↓1
Isz ： FUNCTION、3、↓↓2
“＝＞ ： FUNCTION、3、↓↓3
Locate ： FUNCTION、3、↓↓4
Cls ： FUNCTION、3、↓↓5
And ： FUNCTION、3、↓↓6
Or ： FUNCTION、3、↓↓7
Not( ： FUNCTION、3、↓↓8
t ： FUNCTION、4、▼、▼、▼、6
γp ： FUNCTION、4、▼、5
Σ ： FUNCTION、1、、4
Σx ： FUNCTION、7、▼、2、
e ： FUNCTION、4、▼、▼、7
Fix ： SHIFT、SETUP、6
FreqOn ： SHIFT、SETUP、▼、5、1
Break ： FUNCTION、▼、▼、▼、▼、1
α ： FUNCTION、4、▼、2
n ： FUNCTION、7、2、1
m ： FUNCTION、1、▼、▼、▼、1
List ： FUNCTION、7、1、1
Freq ： FUNCTION、7、1、2
ReP（ ： FUNCTION、2、4
ImP（ ： FUNCTION、2、5
Abs（ ： FUNCTION、2、1
Arg（ ： FUNCTION、2、2
！ ： FUNCTION、1、5
γ ： FUNCTION、5、2
p ： FUNCTION、1、▼、▼、▼、4
Frac（ ： FUNCTION、1、▼、3
Norm ： S、S、8
∑y ： FUNCTION、7、2、▼、4
▶r＜θ ： FUNCTION、2.6
ClrStat ： FUNCTION、6、1
h ： FUNCTION、4、6
FreqOff ： S、S、▼、5、2
Mat ： FUNCTION、8、2
Trn ： FUNCTION、8、3
For ： FUNCTION、3、↓↓↓1