18 lines
455 B
Plaintext
18 lines
455 B
Plaintext
#include <basico.h>
|
|
|
|
algoritmo
|
|
|
|
decimales '0'
|
|
dimensionar(2) matriz de ceros (vaneck)
|
|
|
|
iterar para (i=2, #(i<=1000), ++i )
|
|
matriz.buscar en reversa(#(vaneck[i]),#(vaneck[1:i-1]))
|
|
---retener--- no es cero?, entonces{ menos'i' por'-1' }
|
|
meter en 'vaneck'
|
|
siguiente
|
|
|
|
imprimir ( "Van Eck: first 10 terms : ",#(vaneck[1:10]), NL,\
|
|
"Van Eck: terms 991 - 1000: ", #(vaneck[991:1000]), NL)
|
|
|
|
terminar
|