END PROGRAM 57

**

黃國

10 PRINT "PROGRAM FILE 58: ARRAY ASSIGNMENT WITH OPTION BASE 1." ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4"

20 PRINT "

30 PRINT

45 GOTO 60

50 OPTION BASE 1

60 PRINT

100 PRINT "SECTION 58.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE"

330 PRINT "SECTION 58.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE "

****

650 PRINT "SECTION 58.3: ONE-DIMENSIONAL ARRAYS WITH THE"

950 PRINT

960 PRINT "SECTION 58.4: TWO-DIMENSIONAL ARRAYS WITH THE"

1550 PRINT "

1560 PRINT

1570 PRINT

1580 PRINT "END PROGRAM 58" 1590 END

END TEST."

PROGRAM FILE 58: ARRAY ASSIGNMENT WITH OPTION BASE 1. ANSI STANDARD 6.2, 6.4, 9.2, 9.4, 15.2, 15.4

*** ***

10 PRINT "PROGRAM FILE 59: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'." 20 PRINT 11 ANSI STANDARD 6.2, 6.4"

30 PRINT

40 PRINT "SECTION 59.1: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'." 50 PRINT

60 PRINT "

70 PRINT

80 FOR J=0 TO 10

90 LET A(J)=11-J

100 NEXT J

110 LET E9=0

120 LET A$="OK"

130 FOR I=10 TO 0 STEP -1

140

150

160

IF A(I)=11-I THEN 170

LET E9=1

BEGIN TEST"

PRINT "LOST CORRECT VALUE IN ARRAY ELEMENT #";I

PROGRAM FILE 59: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'.
ANSI STANDARD 6.2, 6.4

SECTION 59.1: ARRAY NAMED 'A' IS DISTINCT FROM 'A$'.