Como ejercicios de programación adicionales, e para practicar las
secuencias de teclas listadas arriba, presentamos, adjuntos, tres programas
para crear o manipular listas. Los nombres y los listados del programa son
como sigue:
LISC:
«
«
→
n x
1 n FOR j x NEXT n
CRLST:
«
«
→
st en df
st en FOR
» »
→
LIST
CLIST:
«
REVLIST DUP DUP SIZE 'n' STO ΣLIST SWAP TAIL DUP SIZE 1 - 1
SWAP FOR j DUP ΣLIST SWAP TAIL NEXT 1 GET n
»
PURGE
La operación de estos programas es como sigue:
(1) LISC: crea una lista de n elementos todos iguales a una constante c.
Operación: escriba n, escriba c, presione @LISC
Ejemplo: 5 ` 6.5 ` @LISC crea la lista: {6.5 6.5 6.5 6.5 6.5}
(2) CRLST: crea una lista de números de n
{n
, n
+∆n, n1+2⋅∆n, ... n
1
1
Operación: escriba n
Ejemplo:.5 `3.5 `.5 ` @CRLST produce: {0.5 1 1.5 2 2.5 3 3.5}
(3) CLIST: crea una lista con las sumas acumulativas de los elementos, i.e., si
la lista original es {x
{
x
1
Operación: poner la lista original en el nivel 1, presionar @CLIST.
Ejemplo: {1 2 3 4 5} `@CLIST produces {1 3 6 10 15}.
» »
LIST
j j df STEP en st - df / FLOOR 1 +
a n
1
2
+N⋅∆n }, donde N=floor((n
1
, escriba ∆n, presione @CRLST
, escriba n
1
2
x
x
... x
}, entonces CLIST crea la lista:
1
2
3
N
,
x
+
x
,
x
+
x
+
x
,...,
1
2
1
2
3
LIST REVLIST 'n'
con el incremento ∆n, i.e.,
-n
)/∆n)+1.
2
1
N
∑
x
}
i
i
=
1
Página 21-15