推算大小星期

Author: 浙江吴建新陆建平 Date: 1994-01-07

        10 CLS:DIM A(12),B＄(7),C＄(3)
        20 FOR I=1 TO 12:READ A(I):NEXT I
        30 FOR I=1 TO 7:READ B＄(I):NEXT I
        40 FOR I=1 TO 3:READ C＄(I):NEXT I
        50 INPUT "****年,**月,**日";N,Y,R
        60 M=N-INT(N/100)*100:Z=A(Y)+(20-INT(N/100))
        70 IF M=4*INT(M/4) AND Y=1 THEN X=Z-1:GOTO 100
        80 IF M=4*INT(M/4) AND Y=2 THEN X=Z-1:GOTO 100
        90 X=Z
        100 W=M+INT(M/4)+X+R:s=W-INT(W/14)*14
        110 IF S<7 THEN 140
        120 S=S-7:Q=2:IF S=0 THEN S=7:Q=3
        130 GOTO 150
        140 Q=3:IF S=0 THEN S=7:Q=2
        150 P=N+Y/100:IF P<199403 THEN Q=1
        160 PRINT N;"年";Y;"月";R;"日是星期";B＄(S);"该周是";C＄(Q);"星期"
        170 GOTO 50
        180 DATA 13,2,2,5,7,10,12,1,4,6,9,11
        190 DATA 一,二,三,四,五,六,日
        200 DATA 在1994年3月以前不分大小，大，小
        (浙江  吴建新陆建平)