有没同道玩CASIO FX 3800P的么
本帖最后由 lslem 于 2021-9-22 15:43 编辑整理东西时发现20多年前大量的卡西欧 FX 3800P 作业。
按键编程还没有忘记，应该说是易上手。顺手写了一个从1到N的自然数求和1+2+3+……+N。
Kin 1 X↔Y Kin+1X↔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。
K1XY操作备注
1000100I输入
1001000Kin1
1000100X↔Y
1000100Kin+1
1001000X↔Y
1001001-1
100990=
991000X↔K1
990100X↔Y
9999100Kout1
9999100x>099>0条件为真，回到开始
9999100Kin1
9910099X↔Y
19910099Kin+1
19999100X↔Y
199991-1
199980=
981990X↔K1
980199X↔Y
9898199Kout1
9898199x>098>0条件为真，回到开始
…… …… …… ……
005050x>098>0条件为假，到下一步
050500X↔Y
在RUN模式输入 100 再按 I ，得到5050。
可以在卡西欧 180P、3600P、3900PV上通用。
本帖最后由 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 RUN20 RUN Ⅱ3.535316141×10¹⁸
本帖最后由 lslem 于 2021-10-7 19:47 编辑
国庆黄金周最后一天，再自娱自乐一下。坐标点（Xᵢ，Yᵢ）面积，要求顺时针或逆时针。
使用公式S=1/2∑(Xᵢ－Xᵢ₊₁)((Yᵢ＋Yᵢ₊₁)
X₀→K1， Y₀→K2， N→K3
MODE EXP Ⅰ
Kout1-ENTKin1 = × [(…Kout 2 + ENTKin2 M+1Kin-3 Kout 3 SHIFTX>0 MRX²√（根号） ÷2 = MODE .
厉害啊，这程序都能编，我买了一个fx5800，还没编过程呢。 无聊，再发一个。
三角形面积（海伦公式求面积）
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
xiaoganglu 发表于 2021-10-22 18:35
厉害啊，这程序都能编，我买了一个fx5800，还没编过程呢。
fx5800 编程比3800强太多了，是类BASIC语言，fx5800网上程序很多，跟着看看，入门应该没有问题。
计算器编程主要是为了完成重复的计算。
计算器太高级，学习成本也很高，前几天一同事拿fx5800说不会加减计算，这个计算器没有“=”号{:13_340:} 把统计变量存入计算器，n、∑x 、∑x²，fx3800P可以用Kin1、Kin2、Kin3就可以，如果遇到SHARP506P等。
∑x²-∑x=÷2×1↕ DATA -∑x=×1±↕DATA-n=×0↕CD
页:
[1]