dentro del lazo cada vez que el lazo se ejecuta. Una aplicación práctica
posible en el cálculo de S es el programa:
« 0. DUP → n S k « 0. n START k SQ S + 1. 'k' STO+ 'S' STO
NEXT S "S" →TAG » »
Escriba el programa, y almacénelo en una variable llamada @@@S1@@@.
He aquí una breve explicación de cómo el programa trabaja:
1. Este programa necesita un número entero como entrada. Así, antes de
la ejecución del programa, ese número (n) está en el nivel 1 de la
pantalla. El programa entonces se ejecuta.
2. Se introduce un cero, n se cambia al nivel 2 de la pantalla
3. La instrucción DUP, la cuál se puede escribir como
~~dup~, copia el contenido del nivel 1 de la pantalla,
mueve todos los niveles de la pantalla hacia arriba, y coloca la copia
en el nivel 1 de la pantalla. Así, después de ejecutar DUP, n está en el
nivel 3 y aparecen ceros en los otros niveles.
4. La parte del código → n S k almacena los valores de n, 0, y 0,
respectivamente en las variables locales n, S, k. Decimos que se han
inicializado las variables n, S, y k (S y k a cero, n a cualquier valor que
el usuario elige).
5. La parte del código 0. n START identifica un lazo START cuyo índice
tomará valores 0, 1, 2, ..., n
6. La suma S se incrementa en k
7.
El índice k se incrementa en 1 en la parte del código: 1. k +
8. 8. A este punto, los valores actualizados de S y k están disponibles en
los niveles 2 y 1 de la pantalla, respectivamente. La parte del código
'k' STO almacena el valor del nivel 1 de la pantalla en la variable
local k. El valor actualizado de S ahora ocupa el nivel 1 de la
pantalla.
9. La parte del código 'S' STO almacena el valor del nivel 1 de la
pantalla en la variable local k. El pantalla del la es vacío ahora.
2
en la parte del código: k SQ S +
Página 21-61