主题：教一下
超大问号
[专家分：60] 发布于 2006-12-02 19:56:00
输入年、月、日，求这一天是星期几。
回复列表 （共4个回复）
沙发
moz [专家分：37620] 发布于 2006-12-02 20:22:00
搜索"星期几"
板凳
QQ号：NO [专家分：30] 发布于 2006-12-09 20:36:00
INPUT x, y, z
DIM a(11)
FOR i = 1 TO 11
READ a(i)
NEXT i
DATA 31,28,31,30,31,30,31,31,30,31,30
IF (x MOD 4 = 0 AND x MOD 100 = 0) OR (x MOD 400 = 0 AND x MOD 100 <> 0) THEN a(2) = a(2) + 1
FOR i = 1 TO y - 1
c = c + a(i)
NEXT i
c = c + z
s = x - 1 + (x - 1) / 4 - (x - 1) / 100 + (x - 1) / 400 + c
IF s MOD 7 = 0 THEN PRINT 7 ELSE PRINT s MOD 7
3 楼
雪光风剑 [专家分：27190] 发布于 2006-12-14 00:55:00
[quote]INPUT x, y, z
DIM a(11)
FOR i = 1 TO 11
READ a(i)
NEXT i
DATA 31,28,31,30,31,30,31,31,30,31,30
IF (x MOD 4 = 0 AND x MOD 100 = 0) OR (x MOD 400 = 0 AND x MOD 100 <> 0) THEN a(2) = a(2) + 1
FOR i = 1 TO y - 1
c = c + a(i)
NEXT i
c = c + z
s = x - 1 + (x - 1) / 4 - (x - 1) / 100 + (x - 1) / 400 + c
IF s MOD 7 = 0 THEN PRINT 7 ELSE PRINT s MOD 7
[/quote]
关于年份对日期的影响写的很精妙！
4 楼
moz [专家分：37620] 发布于 2006-12-14 12:18:00
[quote]IF (x MOD 4 = 0 AND x MOD 100 = 0) OR (x MOD 400 = 0 AND x MOD 100 <> 0) THEN a(2) = a(2) + 1[/quote]
IF x MOD 4 = 0 AND (x MOD 100 <> 0 OR x MOD 400 = 0) THEN a(2) = a(2) + 1
我来回复
您所在位置：