HP 39gII Guia Del Usuario página 287

REPEAT...UNTIL...
WHILE...DO...END
276
Sintaxis: REPEAT comandos UNTIL prueba;
Repite la secuencia de comandos hasta que el valor de
prueba es verdadero (no 0).
Este código solicita un valor positivo para SIDES y
modifica un programa anterior de este capítulo.
Ejemplo:
EXPORT SIDES;
EXPORT GETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Caras del dado","N = ","
Introduzca el número de caras",2);
UNTIL SIDES>0;
END;
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.
Ejemplo:
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;
sum;
Programación