FOR STEP
604
EXPORT MAXFACTORS(N)
BEGIN
LOCAL cur, max,k,Ergebnis;
1
max;1
FOR k FROM 2 TO N DO
u
IF cur > max THEN
cur
max;
k
Ergebnis;
END;
END;
MSGBOX("Maximum von "+ Maximum +"
Faktoren für "+Ergebnis);
END;
Geben Sie in der
Startanzeige
MAXFACTORS(100) ein.
Syntax: FOR Var FROM Start TO Ende [SCHRITT Erhöhung]
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 erhöht.
Beispiel 2: Dieses
Programm zeichnet ein
interessantes Muster auf
den Bildschirm.
EXPORT
DRAWPATTERN()
BEGIN
LOCAL
xincr,yincr,Farbe;
STARTAPP("Funktionen");
RECT();
Ergebnis;
cur;
Programmieren