万年历问题的Qbasic解决方法(1) |
| 论文作者：佚名 论文来源：不详 论文发布时间：2006-6-9 2:06:38 论文发布人：chjchjchj |
 减小字体
 增大字体
10 DIM C(12), a$(6)
20 INPUT “YEAR”; Y
30 X = Y: V = 28
40 IF Y < 0 THEN 20
50 IF Y = 0 THEN END
60 S = X - 1 + INT((X - 1) / 4) - INT((X - 1) / 100) + INT((X - 1) / 400)
70 C(0) = X
80 S = S + 1
90 FOR I = 1 TO 12
100 READ K
110 IF I <> 3 THEN 190
120 IF X MOD 4 = 0 THEN 140
130 GOTO 190
140 IF X MOD 100 = 0 THEN 160
150 GOTO 180
160 IF X MOD 400 = 0 THEN 180
170 GOTO 190
180 K = K + 1: V = 29
190 S = S + K
200 M = S MOD 7
210 IF M = 0 THEN C(I) = 6 ELSE C(I) = M - 1
220 NEXT
230 FOR I = 0 TO 6
240 READ a$(I)
250 NEXT
260 L1
|
|
|
|
|
|
| ∷相关试题评论 |
（评论内容只代表网友观点，与本站立场无关！） [查看发表评论...] | |
|
|
|
|
 站内广告 |
 | |
|
| 站内搜索 |
| |
| 栏目导航 |
| |
|
|
 相关试题 |
|
|
| 本月热门 |
| |
|
|
| 本日热门 |
| |
|
|
|
设为首页
加入收藏
联系我们
