HP Prime Manuel De L'utilisateur page 639

REPEAT
Programmation
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

END;
d+1 d;

END;
RETURN sum==n;
END;
Le programme suivant affiche tous les nombres parfaits
jusqu'à 1 000 :
EXPORT PERFECTNUMS()
BEGIN
LOCAL k;
FOR k FROM 2 TO 1000 DO
IF ISPERFECT(k) THEN
MSGBOX(k+" est parfait, appuyer sur
OK");
END;
END;
END;
Syntaxe : REPEAT commandes UNTIL test;
Répète la séquence de commandes jusqu'à ce que test
présente la valeur vrai (valeur différente de 0).
L'exemple ci-dessous requiert une valeur positive pour
SIDES, modifiant ainsi un programme antérieur dans ce
chapitre.
EXPORT SIDES;
sum;
637