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]

****

**

[blocks in formation]

640 PRINT "SECTION 57.3: ONE-DIMENSIONAL ARRAYS WITH 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][merged small][ocr errors][merged small][merged small][merged small][merged small][merged small][merged small]

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

[blocks in formation]

950 DIM N(20,2), P(2,20), R(20,20) 960 FOR I=0 TO 20

970 LET I1=I+1

980 LET N(I,1)=I1

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=O

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(1,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 »