打印本文   关闭窗口

万年历问题的Qbasic解决方法

作者：佚名  文章来源：不详  点击数  更新时间：2007/12/21 18:18:01  文章录入：杜斌  责任编辑：杜斌

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 = 2: l2 = 38: gosub 610        270 print tab(39); c(0);        280 l1 = 45: l2 = 79: gosub 610        290 gosub 640: gosub 650        300 for j = 0 to 3        310 gosub 640        320 for i = 0 to 2        330 print tab(15 + i * 25); “(”; j * 3 + i + 1; “)”;        340 next        350 gosub 650: gosub 640: gosub 650: gosub 640        360 gosub 660: gosub 650: gosub 640: gosub 650        370 gosub 400        380 next j        390 l1 = 2: l2 = 79: gosub 610: print : restore 700:

打印本文   关闭窗口