HP Prime Guia Del Usuario página 599

FOR DOWN
FOR DOWN STEP
WHILE
Programación
Sintaxis: FOR var FROM inicio DOWNTO fin DO comandos
END;
Define la variable var para inicio y, siempre que el valor
de esta variable sea inferior o igual a fin, ejecuta la
secuencia de comandos y, a continuación, resta 1
(decremento) a var.
Sintaxis: FOR var FROM inicio DOWNTO fin [STEP
incremento] DO comandos END;
Define la variable var para inicio y, siempre que el valor
de esta variable sea inferior o igual a fin, ejecuta la
secuencia de comandos y, a continuación, resta
incremento a var.
Sintaxis: WHILE prueba DO comandos END;
Evalúa prueba. Si el resultado es verdadero (no 0),
ejecuta comandos, y repite.
Ejemplo: un número perfecto es aquel que es igual a la
suma de todos sus divisores. Por ejemplo, 6 es un número
perfecto porque 6 = 1+2+3. Esta función devuelve
verdadero cuando su argumento es un número perfecto.
EXPORT ISPERFECT(n)
BEGIN
LOCAL d, sum;
2 d;

1 sum;

WHILE sum <= n AND d < n DO
IF irem(n,d)==0 THEN
sum+d

END;
d+1 d;

END;
RETURN sum==n;
END;
Este programa muestra todos los números perfectos hasta
1000:
EXPORT PERFECTNUMS()
BEGIN
LOCAL k;
sum;
597