Instruction Manual

Página 21-65
Ejemplo 2 – calcular la suma S usando una instrucción DO…UNTIL…END
El programa siguiente calcula la sumatoria:
∑
=
=
n
k
kS
0
2
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@@. Verifique los siguientes
ejercicios: J
3 @@@S3@@ Resulta: S:14 4 @@@S3@@ Resulta: S:30
5 @@@S3@@ Resulta: S:55 8 @@@S3@@ Resulta: S:204
10 @@@S3@@ Resulta: S:385 20 @@@S3@@ Resulta: S:2870
30 @@@S3@@ Resulta: S:9455 100 @@@S3@@ Resulta: S:338350
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 ` Escriba 1 1.5 0.5
[‘] @GLIS3 ` Nombre de programa en nivel 1
„°LL @)@RUN@ @@DBG@ Comenzar DBUG
Use @SST↓@ para recorred el programa y ver la operación detallada de cada
instrucción.