有没同道玩CASIO FX 3800P的么

lslem

整理东西时发现20多年前大量的卡西欧 FX 3800P 作业。
按键编程还没有忘记，应该说是易上手。顺手写了一个从1到N的自然数求和1+2+3+……+N。
Kin 1 X↔Y Kin+1  X↔Y －1= X↔K 1 X↔Y Kout 1 x>0 X↔Y注解：例如100 存入K1，再把累加的结果从Y存储器换到X存储器（显示）再与K1中的100求和，100再减1，再把K1中求和的数换到Y中，再判断（100-1）99是否大于0。

K1	X	Y	操作	备注
	100	0	100  I	输入
100	100	0	Kin1
100	0	100	X↔Y
100	0	100	Kin+1
100	100	0	X↔Y
100	100	1	-1
100	99	0	=
99	100	0	X↔K1
99	0	100	X↔Y
99	99	100	Kout1
99	99	100	x>0	99>0条件为真，回到开始
99	99	100	Kin1
99	100	99	X↔Y
199	100	99	Kin+1
199	99	100	X↔Y
199	99	1	-1
199	98	0	=
98	199	0	X↔K1
98	0	199	X↔Y
98	98	199	Kout1
98	98	199	x>0	98>0条件为真，回到开始
……	……	……	……
0	0	5050	x>0	98>0条件为假，到下一步
0	5050	0	X↔Y

在RUN模式输入 100 再按 I ，得到5050。
可以在卡西欧 180P、3600P、3900PV上通用。

lslem

年代久远，同道少，只好自娱自乐。
组合nCr

MODE EXE

  Ⅰ

1 Kin 6 n ENT Kin1 Min r ENT Kin2×2=X≤M Kout1 X↔K2 Kin－2

  Ⅱ

Kout1÷ Kou2= Kin×6 1Kin－1 Kin－2 Kout2 x>0 Kout 6 MODE.

例  Ⅰ  80 RUN  20 RUN   Ⅱ  3.535316141×10¹⁸

lslem

国庆黄金周最后一天，再自娱自乐一下。坐标点（Xᵢ，Yᵢ）面积，要求顺时针或逆时针。
使用公式S=1/2∑(Xᵢ－Xᵢ₊₁)((Yᵢ＋Yᵢ₊₁)
X₀→K1， Y₀→K2， N→K3
MODE EXP Ⅰ
Kout1-ENT  Kin1 = × [(…  Kout 2 + ENT  Kin2 M+  1Kin-3 Kout 3 SHIFT  X>0 MR  X²  √（根号） ÷2 = MODE .

xiaoganglu

厉害啊，这程序都能编，我买了一个fx5800，还没编过程呢。

lslem

无聊，再发一个。
三角形面积（海伦公式求面积）
MODE EXE
Ⅰ
ENT Kin 1 Kin4 ENT Kin 2 Kin+4 ENT Kin3 Kin+4 2 Kin÷4 Kout4×（Kout4-Kout1）×（Kout4-Kout2）×（Kout4-Kout3）=√（根号）
MODE EXE .
精简一下（少1个存储器，也少用程序步）：

MODE EXE

Ⅰ

ENT Kin 1 Kin4 ENTKin 2 Kin+4 ENT － Kin+4 2 Kin÷4 Kout4 Kin－1 Kin－2=Kin×4 Kout1 Kin×4 Kout2 Kin×4 Kout±√（根号）

MODE EXE .

例子：
Ⅰ 4RUN 5RUN 6RUN 9.921567416
Ⅰ 3RUN 4RUN 5RUN 6

lslem

xiaoganglu 发表于 2021-10-22 18:35
厉害啊，这程序都能编，我买了一个fx5800，还没编过程呢。

fx5800 编程比3800强太多了，是类BASIC语言，fx5800网上程序很多，跟着看看，入门应该没有问题。
计算器编程主要是为了完成重复的计算。
计算器太高级，学习成本也很高，前几天一同事拿fx5800说不会加减计算，这个计算器没有“=”号

lslem

把统计变量存入计算器，n、∑x 、∑x²，fx3800P可以用Kin1、Kin2、Kin3就可以，如果遇到SHARP506P等。
∑x²-∑x=÷2×1↕ DATA -∑x=×1±↕DATA-n=×0↕CD