HP 39gII Benutzerhandbuch Seite 305

WHILE...DO...END
Programmieren
Syntax: WHILE Test DO Befehle END;
Auswerten von „Test". 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 ist. Diese Funktion gibt „wahr"
zurück, wenn ihr Argument eine perfekte Zahl ist.
Beispiel:
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;
Dieses 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;
295