Page images
PDF
EPUB
[merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][ocr errors][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small]

SECTION 56.4: TWO-DIMENSIONAL ARRAYS WITH THE

DIM-STATEMENT.

BEGIN TEST.

*** TEST PASSED ***

END TEST.

END PROGRAM 56

**

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

30 PRINT

50 OPTION BASE O

90 PRINT "SECTION 57.1: ONE-DIMENSIONAL ARRAYS WITHOUT THE"

[merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][ocr errors][merged small][merged small][merged small][merged small][merged small]

320 PRINT "SECTION 57.2: TWO-DIMENSIONAL ARRAYS WITHOUT THE"

[blocks in formation]

****

**

[merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][merged small][ocr errors][merged small][merged small][merged small][merged small]

640 PRINT "SECTION 57.3: ONE-DIMENSIONAL ARRAYS WITH THE"

[blocks in formation]

910 PRINT "SECTION 57.4: TWO-DIMENSIONAL ARRAYS WITH THE"

915 PRINT "

920 PRINT

930 PRINT "

940 PRINT

DIM-STATEMENT."

BEGIN TEST."

[merged small][merged small][ocr errors]

990 LET N(1,2)=-I

1000 LET N(I,0)=1

1010 FOR J=2 TO 0 STEP −1

1020 LET J1=I*J

1030 LET P(J,I)=J1

1040 NEXT J

1050 NEXT I

1060 FOR K=0 TO 20 1070 FOR L=0 TO 20 1080 LET K1=K+L 1090 LET R(K, L) =K1

1100 NEXT L

1110 NEXT K

1120 LET N1=0

1130 LET P1=0

1140 LET R1=0

1150 LET C=0

1160 LET T=0

1170 FOR I=0 TO 20

1180 LET I1=I+1

1190 LET T7=N(I,1)

1200 LET T8=N(1,2)

1210 LET T9=N(I,0)

1220 IF T7 <> I1 THEN 1490

1230 IF T8 <>-I THEN 1490

[blocks in formation]
[blocks in formation]

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

[blocks in formation]
« PreviousContinue »