HP Calculadora gráfica HP Prime Manual del usuario

Página 595

Advertising
background image

Programación

593

FOR DOWN

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.

FOR DOWN STEP

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.

WHILE

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

sum;

END;
d+1 d;
END;

RETURN sum==n;

END;

Este programa muestra todos los números perfectos hasta
1000:

EXPORT PERFECTNUMS()

BEGIN

LOCAL k;

Advertising