[SAMPLE5] SAMPLE
10 REM SAMPLE5
100 OPTION BASE 1
110 DIM KEISAN(9, 9)
120 FOR I=1 TO 9:FOR J=1 TO 9
130 KEISAN(I ,J)=I *J
140 NEXT J,I
150 FOR I=1 TO 9:FOR J=1 TO 9
160 PRINT USING "####";KEISAN(J, I);
170 NEXT J:PRINT
180 NEXT I
190 PRINT:PRINT
200 ERASE KEISAN
210 DIM KEISAN(9, 9)
220 FOR I=1 TO 9:FOR J=1 TO 9
230 KEISAN(I, J)= I+ J
240 NEXT J:NEXT I
250 FOR I=1 TO 9:FOR J=1 TO 9
260 PRINT USING "####";KEISAN(J, I);
270 NEXT J:PRINT
280 NEXT I
290 END
100 添字の最小値を1とする。
110 要素数9×9の2次元配列変数KEISAN()を宣言。
200 KEISAN()を消去。
210 KEISAN()を新たに宣言。
最初のKEISAN()にはKEISAN(I,J)=I*J
あとのKAISAN()にはKEISAN(I,J)=I+J が入ります。