HP Prime Handbuch Seite 634

Beispiel 1: Dieses Programm legt fest, welche Ganzzahl von 2 bis N die größte Zahl an Faktoren besitzt.
EXPORT MAXFACTORS(N)
BEGIN
LOCAL cur, max,k,Ergebnis;
1 ▶ max;1 ▶ Ergebnis;
FOR k FROM 2 TO N DO
SIZE(CAS.idivis(k))▶cur;
IF cur(1) > max THEN
cur(1)▶ max;
k ▶ Ergebnis;
END;
END;
MSGBOX("Maximum von "+ Maximum +" Faktoren für "+Ergebnis);
END;
Geben Sie in der Startanzeige MAXFACTORS(100) ein.
FOR STEP
Syntax: FOR Var FROM Start TO 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 Schrittweite zu var addiert.
Beispiel 2: Dieses Programm zeichnet ein interessantes Muster auf den Bildschirm.
586 Kapitel 28 Programmierung in HP PPL