cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 4392|回复: 4

[fx-4800P/5800P系列] 5800日历

[复制链接]
发表于 2013-8-2 14:12:16 | 显示全部楼层 |阅读模式
计算器程序
程序名称: ------------
平台: fx-5800系列 
系统/软件要求:
版本号: Beta
类型: 其他 
作者: _14522
大小(K): 0.4
更新日期: 2013-08-02
描述: 使用十二个减号作为名称确保无论何时位于程序列表开头速度快捷
早就写好了曾经脑残Reset All以至于原版算法丢了,重新写了一次不知道算法对不对,使用前请结合当月日历,如果发生不必要的损失本人不负责任
已知缺陷: 算法
源代码: 开源/部分开源 » WTFPL
本帖最后由 _14522 于 2013-8-2 14:27 编辑
  1. Cls
  2. 12→DimZ
  3. 0→Z
  4. "YEAR"?L
  5. "MONTH"?V
  6. 31→Z[1]
  7. 28→Z[2]
  8. 31→Z[3]
  9. 30→Z[4]
  10. 31→Z[5]
  11. 30→Z[6]
  12. 31→Z[7]
  13. 31→Z[8]
  14. 30→Z[9]
  15. 31→Z[10]
  16. 30→Z[11]
  17. 31→Z[12]
  18. For 1→J To V-1
  19. Z+Z[J]→Z
  20. Next
  21. ((4Frac(L÷4)=0) And (100Frac(L÷100)≠0)) Or (400Frac(L÷400)=0)》Isz Z //》指的是程序页面第三页第三个字符
  22. Z+365(L-1900)+4Frac((L-1900)÷4→Z
  23. Int(Rnd(7Frac(Z÷7→Z
  24. Z[V]→R
  25. Cls
  26. Locate 1,1,"S M T W T F S"
  27. For 1→W To 7-Z
  28. Locate 2W+2Z-1,2,W
  29. Next
  30. For 8-Z→W To 14-Z
  31. Locate 2W+2Z-15,3,W
  32. Next
  33. For 15-Z→W To 21-Z
  34. Locate 2W+2Z-29,4,W
  35. Next
  36. Locate 15,1,V▲ //SHIFT + 平方符号输入
  37. Cls
  38. Locate 1,1,"S M T W T F S"
  39. For 22-Z→W To 28-Z
  40. Locate 2W+2Z-43,2,W
  41. Next
  42. If 35-Z<R
  43. Then 35-Z→R
  44. IfEnd
  45. For 29-Z→W To R
  46. Locate 2W+2Z-57,3,W
  47. Next
  48. If 35-Z<J
  49. Then For 36-Z→W To J
  50. Locate 2W+2Z-71,4,W
  51. Next
  52. IfEnd
  53. Locate 15,1,V
复制代码
打了一遍居然没有,再来一次14:30
 楼主| 发表于 2013-8-2 14:15:28 | 显示全部楼层
纳尼,什么都没有!
发表于 2013-8-3 01:02:26 来自手机 | 显示全部楼层
楼主是刚入5800吗......
这个系列的计算器已经过时了......
 楼主| 发表于 2013-8-3 09:08:31 | 显示全部楼层
中国好程序 发表于 2013-8-3 01:02
楼主是刚入5800吗......
这个系列的计算器已经过时了......

5800早在3年前入手的
发表于 2013-9-11 17:28:48 | 显示全部楼层
我觉得还好 各有各的用处
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 05:04 , Processed in 0.047241 second(s), 20 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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