HP Calculadora gráfica HP Prime - Manual (Página 594)

592 Programación
En Inicio, introduzca
MAXFACTORS
(100).
FOR STEP Sintaxis: FOR var FROM inicio TO fin [STEP incremento]
DO
comandos END;
Define la variable var para comenzar y, siempre que el
valor de esta variable sea inferior o igual a fin, ejecuta la
secuencia de comandos y, a continuación, añade
incremento a var.
Ejemplo 2: este
programa dibuja un
patrón interesante en la
pantalla.
EXPORT
DRAWPATTERN()
BEGIN
LOCAL
xincr,yincr,color;
STARTAPP("Función");
RECT();
xincr := (Xmax - Xmin)/320;
yincr := (Ymax - Ymin)/240;
FOR X FROM Xmin TO Xmax STEP xincr DO
FOR Y FROM Ymin TO Ymax STEP yincr DO
color := FLOOR(X^2+Y^2) MOD 32768;
PIXON(X,Y,color);
END;
END;
FREEZE;
END;