Usando una instrucción DO...UNTIL...END:
« 0. → n S « DO n SQ S + 'S' STO n 1 – 'n' STO UNTIL 'n<0'
END S "S" →TAG » »
Almacene este programa en una variable @@S3@@.
ejercicios: J
3 @@@S3@@
5 @@@S3@@
10 @@@S3@@
30 @@@S3@@
Ejemplo 3 - generar una lista usando una instrucción DO...UNTIL...END
Escriba el siguiente programa
« → xs xe dx « xe xs – dx / ABS 1. + xs → n x « xs DO
'x+dx' EVAL DUP 'x' STO UNTIL 'x≥xe' END n →LIST » » »
y almacenarlo en la variable @GLIS3.
•
Verifique que 0.5 ` 2.5 ` 0.5 ` @GLIS3 produce la lista {0.5 1.
1.5 2. 2.5}.
•
Para ver, paso a paso, la operación del programa, use DBUG para una
lista corta, por ejemplo:
J1 # 1.5 # 0.5 `
['] @GLIS3 `
„°LL @) @ RUN@ @@DBG@
Use @SST↓@ para recorred el programa y ver la operación detallada de cada
instrucción.
Resulta: S:14
Resulta: S:55
Resulta: S:385
Resulta: S:9455
4 @@@S3@@
8 @@@S3@@
20 @@@S3@@
100 @@@S3@@
Escriba 1 1.5 0.5
Nombre de programa en nivel 1
Comenzar DBUG
Verifique los siguientes
Resulta: S:30
Resulta: S:204
Resulta: S:2870
Resulta: S:338350
Página 21-69