22 lines
447 B
Plaintext
22 lines
447 B
Plaintext
100 CLS
|
|
110 L = 1000
|
|
120 DIM A(L)
|
|
130 FOR N = 0 TO L
|
|
140 LET A(N) = 0
|
|
150 NEXT N
|
|
160 FOR N = 0 TO L-1
|
|
170 FOR M = N-1 TO 0 STEP -1
|
|
180 IF A(M) = A(N) THEN A(N+1) = N - M : GOTO 200
|
|
190 NEXT M
|
|
200 NEXT N
|
|
210 PRINT "Secuencia de Van Eck:"; CHR$(10)
|
|
220 PRINT "Primeros 10 terminos: ";
|
|
230 FOR I = 0 TO 9
|
|
240 PRINT A(I);
|
|
250 NEXT I
|
|
260 PRINT CHR$(10); "Terminos 991 al 1000: ";
|
|
270 FOR I = 990 TO 999
|
|
280 PRINT A(I);
|
|
290 NEXT I
|
|
300 END
|