HP Prime Handbuch Seite 636

Legt für die Variable Var den Wert Start fest und führt, solange der Wert dieser Variablen kleiner oder gleich
dem Wert von Ende ist, die Befehlsfolge aus. Dann wird Schritt von der Variablen Var subtrahiert.
WHILE
Syntax: WHILE Test DO Befehle END;
Wertet Test aus. Wenn das Ergebnis wahr ist (nicht 0), werden die Befehle ausgeführt, und der Vorgang wird
wiederholt.
Beispiel: Eine perfekte Zahl ist gleich der Summe aller ihrer eigenen Teiler. Beispielsweise ist 6 eine perfekte
Zahl, da 6 = 1 + 2 + 3. Das Beispiel unten gibt wahr zurück, wenn ihr Argument eine perfekte Zahl ist.
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;
Das folgende Programm zeigt alle perfekten Zahlen bis zur Zahl 1000 an:
EXPORT PERFECTNUMS()
BEGIN
LOCAL k;
FOR k FROM 2 TO 1000 DO
IF ISPERFECT(k) THEN
MSGBOX(k+" ist perfekt, drücken Sie OK");
END;
END;
END;
REPEAT
Syntax: REPEAT Befehle UNTIL Test;
Wiederholt die Sequenz der Befehle, bis Test "wahr" ist (nicht 0).
Das Beispiel unten fordert den Benutzer auf, einen positiven Wert für SIDES einzugeben und modifiziert damit
ein weiter oben in diesem Kapitel beschriebenes Programm:
588 Kapitel 28 Programmierung in HP PPL