HP Prime Graph Bedienungsanleitung Seite 607

FOR NACH UNTEN
FOR NACH UNTEN
SCHRITT
WHILE
Programmieren
xincr := (Xmax - Xmin)/320;
yincr := (Ymax - Ymin)/240;
FOR X FROM Xmin TO Xmax STEP xincr DO
FOR Y FROM Ymin TO Ymax STEP yincr DO
Farbe := FLOOR(X^2+Y^2) MOD 32768;
PIXON(X,Y,Farbe);
END;
END;
FREEZE;
END;
Syntax: FOR Var FROM Start DOWNTO Ende DO Befehle
END;
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
die Variable Var um 1 erniedrigt (Substraktion).
Syntax: FOR Var FROM Start DOWNTO Ende [STEP Schritt]
DO Befehle END;
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.
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. Das Beispiel unten liefert "wahr"
zurück, wenn das 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
605