31 lines
490 B
Plaintext
31 lines
490 B
Plaintext
10 DIM A(100)
|
|
20 PRINT "FIRST 15 TERMS:"
|
|
30 FOR N=0 TO 14
|
|
40 GOSUB 170
|
|
50 PRINT A(N);" ";
|
|
60 NEXT N
|
|
70 PRINT
|
|
80 PRINT "FIRST REPEATED TERM:"
|
|
90 GOSUB 170
|
|
100 FOR M=0 TO N-1
|
|
110 IF A(M)=A(N) THEN 150
|
|
120 NEXT M
|
|
130 LET N=N+1
|
|
140 GOTO 90
|
|
150 PRINT "A(";N;") = ";A(N)
|
|
160 STOP
|
|
170 IF N=0 THEN 280
|
|
180 LET X = A(N-1)-N
|
|
190 IF X<0 THEN 250
|
|
200 FOR M=0 TO N-1
|
|
210 IF A(M)=X THEN 250
|
|
220 NEXT M
|
|
230 LET A(N)=X
|
|
240 RETURN
|
|
250 LET A(N)=A(N-1)+N
|
|
260 RETURN
|
|
270 STOP
|
|
280 LET A(0)=0
|
|
290 RETURN
|
|
300 END
|