28 lines
506 B
Plaintext
28 lines
506 B
Plaintext
PROGRAM "Van Eck sequence"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
l = 1000
|
|
DIM a[l]
|
|
FOR n = 0 TO l-1
|
|
FOR m = n-1 TO 0 STEP -1
|
|
IF a[m] = a[n] THEN
|
|
a[n+1] = n-m
|
|
EXIT FOR
|
|
END IF
|
|
NEXT m
|
|
NEXT n
|
|
PRINT "Secuencia de Van Eck:"; CHR$(10)
|
|
PRINT "Primeros 10 terminos: ";
|
|
FOR i = 0 TO 9
|
|
PRINT a[i]; " ";
|
|
NEXT i
|
|
PRINT CHR$(10); "Terminos 991 al 1000: ";
|
|
FOR i = 990 TO 999
|
|
PRINT a[i]; " ";
|
|
NEXT i
|
|
END FUNCTION
|
|
END PROGRAM
|