cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 148|回复: 2

[纯编程、古董] 有没同道玩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 .




您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2021-10-20 09:38 , Processed in 0.044101 second(s), 18 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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