HP Calculatrice graphique HP Prime - Manuel (Page 609)

Programmation 607
FOR DOWN Syntaxe : FOR var FROM début DOWNTO fin DO
commandes END;
Définit la variable var sur la valeur début et, tant que la
valeur de cette variable est inférieure ou égale à la valeur
fin, exécute la séquence de commandes, puis soustrait 1
(diminution) de var.
FOR DOWN STEP Syntaxe : FOR var FROM début DOWNTO fin [STEP
augmentation] DO commandes END;
Définit la variable var sur la valeur début et, tant que la
valeur de cette variable est inférieure ou égale à la valeur
fin, exécute la séquence de commandes, puis soustrait
augmentation de var.
WHILE Syntaxe : WHILE test DO commandes END;
Evalue test : si le résultat est vrai (valeur différente de 0),
exécute commandes de manière itérative.
Exemple : un nombre parfait est un nombre qui est égal
à la somme de tous ses propres diviseurs. Par exemple, 6
est un nombre parfait car 6 = 1+2+3. L'exemple ci-
dessous renvoie vrai lorsque son argument est un nombre
parfait.
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;
Le programme suivant affiche tous les nombres parfaits
jusqu'à 1 000 :
EXPORT PERFECTNUMS()
BEGIN