Publicidad
Ejemplo 2 – calcular la suma S usando una instrucción DO...UNTIL...END
El programa siguiente calcula la sumatoria:
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
5 @@@S3@@
Resulta: S:55
10 @@@S3@@
Resulta: S:385
30 @@@S3@@
Resulta: S:9455
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
«
«
'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.
n
∑
2
S
=
k
k
=
0
4 @@@S3@@ Resulta: S:30
8 @@@S3@@ Resulta: S:204
20 @@@S3@@ Resulta: S:2870
100 @@@S3@@
Escriba 1 1.5 0.5
Nombre de programa en nivel 1
Comenzar DBUG
Resulta: S:338350
«
xs DO
Página 21-65
Publicidad
