cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 2120|回复: 6

[纯编程、古董] 有没同道玩CASIO FX 3800P的么

[复制链接]
发表于 2021-9-21 12:19:33 | 显示全部楼层 |阅读模式
本帖最后由 lslem 于 2021-9-22 15:43 编辑

整理东西时发现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上通用。
 楼主| 发表于 2021-10-1 17:39:40 | 显示全部楼层
本帖最后由 lslem 于 2021-10-7 19:46 编辑

年代久远,同道少,只好自娱自乐。
组合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¹⁸

 楼主| 发表于 2021-10-7 19:41:16 | 显示全部楼层
本帖最后由 lslem 于 2021-10-7 19:47 编辑

国庆黄金周最后一天,再自娱自乐一下。坐标点(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 .




发表于 2021-10-22 18:35:18 | 显示全部楼层
厉害啊,这程序都能编,我买了一个fx5800,还没编过程呢。
 楼主| 发表于 2021-10-22 22:03:29 | 显示全部楼层
无聊,再发一个。
三角形面积(海伦公式求面积)
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




 楼主| 发表于 2021-10-23 08:32:23 | 显示全部楼层
xiaoganglu 发表于 2021-10-22 18:35
厉害啊,这程序都能编,我买了一个fx5800,还没编过程呢。

fx5800 编程比3800强太多了,是类BASIC语言,fx5800网上程序很多,跟着看看,入门应该没有问题。
计算器编程主要是为了完成重复的计算。
计算器太高级,学习成本也很高,前几天一同事拿fx5800说不会加减计算,这个计算器没有“=”号
 楼主| 发表于 2021-11-18 19:57:43 | 显示全部楼层
把统计变量存入计算器,n、∑x 、∑x²,fx3800P可以用Kin1、Kin2、Kin3就可以,如果遇到SHARP506P等。
∑x²-∑x=÷2×1↕ DATA -∑x=×1±↕DATA-n=×0↕CD
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-4-19 05:09 , Processed in 0.061368 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表