|
|
计算器程序
| 程序名称: |
------------ |
| 平台: |
fx-5800系列 |
| 系统/软件要求: |
|
| 版本号: |
Beta |
| 类型: |
其他 |
| 作者: |
_14522 |
| 大小(K): |
0.4 |
| 更新日期: |
2013-08-02 |
| 描述: |
使用十二个减号作为名称确保无论何时位于程序列表开头速度快捷
早就写好了曾经脑残Reset All以至于原版算法丢了，重新写了一次不知道算法对不对，使用前请结合当月日历，如果发生不必要的损失本人不负责任 |
| 已知缺陷: |
算法 |
| 源代码: |
开源/部分开源 » WTFPL |
本帖最后由 _14522 于 2013-8-2 14:27 编辑
- Cls
- 12→DimZ
- 0→Z
- "YEAR"?L
- "MONTH"?V
- 31→Z[1]
- 28→Z[2]
- 31→Z[3]
- 30→Z[4]
- 31→Z[5]
- 30→Z[6]
- 31→Z[7]
- 31→Z[8]
- 30→Z[9]
- 31→Z[10]
- 30→Z[11]
- 31→Z[12]
- For 1→J To V-1
- Z+Z[J]→Z
- Next
- ((4Frac(L÷4)=0) And (100Frac(L÷100)≠0)) Or (400Frac(L÷400)=0)》Isz Z //》指的是程序页面第三页第三个字符
- Z+365(L-1900)+4Frac((L-1900)÷4→Z
- Int(Rnd(7Frac(Z÷7→Z
- Z[V]→R
- Cls
- Locate 1,1,"S M T W T F S"
- For 1→W To 7-Z
- Locate 2W+2Z-1,2,W
- Next
- For 8-Z→W To 14-Z
- Locate 2W+2Z-15,3,W
- Next
- For 15-Z→W To 21-Z
- Locate 2W+2Z-29,4,W
- Next
- Locate 15,1,V▲ //SHIFT + 平方符号输入
- Cls
- Locate 1,1,"S M T W T F S"
- For 22-Z→W To 28-Z
- Locate 2W+2Z-43,2,W
- Next
- If 35-Z<R
- Then 35-Z→R
- IfEnd
- For 29-Z→W To R
- Locate 2W+2Z-57,3,W
- Next
- If 35-Z<J
- Then For 36-Z→W To J
- Locate 2W+2Z-71,4,W
- Next
- IfEnd
- Locate 15,1,V
|
|
发表于 2013-8-2 14:12:16
沉默卡
变色卡
千斤顶
显身卡
楼主
