國立暨南國際大學 98 學年度第一學期小考試卷

(考試時間: 08:30-09:00)

1. (40%) What result will you get after running the following code display?
   

   
    10 PRINT CHR$(ASC("0")+1)
    20 PRINT 1/SIN(ATN(1)*4/6)
    30 PRINT INSTR(2, "NCNU", "N")
    40 PRINT LEN("NCNU")
    50 PRINT 625^(1/4)
    60 D$=DATE$
    70 PRINT LEFT$(D$,2) + MID$(D$, 4, 2) + RIGHT$(D$,4)
    80 PRINT VAL(LEFT$(D$,2)) + VAL(MID$(D$, 4, 2)) + VAL(RIGHT$(D$,4))
    90 END
    
   
    
   
   
   
   

2. (60%) What result will you get after running the following code display?

   
   10 DATA 2009, 10, 9
   20 DATA "January", "February", "March", "April", "May", "June"
   30 DATA "July", "August", "September", "October", "November", "December"
   40 DATA 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
   50 DIM MONTH$(12), A(12)
   60 RESTORE 10
   70 READ Y, M, D
   80 FOR I = 1 TO 12
   90   READ MONTH$(I)
   100 NEXT I
   110 FOR I = 1 TO 12
   120   READ A(I)
   130 NEXT I
   140 REM --- Is this a leap year?
   150 IF Y MOD 4 = 0 THEN LEAP = 1 ELSE LEAP = 0
   160 IF Y MOD 100 = 0 THEN LEAP = 0
   170 IF Y MOD 400 = 0 THEN LEAP = 1 
   180 A(2) = A(2) + LEAP
   190 REM --- What day is January 1st?
   200 LET N = Y - 1
   210 DAY = (1 + N + INT(N/4) - INT(N/100) + INT(N/400) ) MOD 7
   220 WEEKDAYS$ = " Sun Mon Tue Wed Thu Fri Sat"
   230 PRINT MID$(WEEKDAYS$, 4*DAY+1, 4)
   240 REM --- What day is today?
   250 LET I = 1
   260 DO WHILE I < M
   270   DAY = DAY + A(I)
   280   I = I + 1
   290 LOOP
   300 DAY = DAY MOD 7
   310 TODAY = (DAY + D - 1) MOD 7
   320 PRINT MID$(WEEKDAYS$, 4*TODAY+1, 4)
   330 REM --- Prepare to print calendar for this month
   340 PRINT TAB(10); MONTH$(M); Y
   350 PRINT
   360 PRINT WEEKDAYS$
   370 FOR I=1 TO 7 
   380   PRINT " ==="; 
   390 NEXT I
   400 PRINT 
   410 BEGIN = DAY
   420 GOSUB 440
   430 END
   440 REM --- Subprogram to print a month
   450 REM --- Input: BEGIN
   460 I = 0
   470 DO WHILE I < BEGIN
   480   PRINT SPC(4);
   490   I = I + 1
   500 LOOP
   510 FOR I = 1 TO A(M)
   520   PRINT USING " ##&"; I; SPACE$(1);
   530   BEGIN = BEGIN + 1
   540   IF BEGIN = 7 THEN BEGIN = 0 : PRINT
   550 NEXT I
   560 PRINT
   570 RETURN