xincr := (Xmax - Xmin)/318;
yincr := (Ymax - Ymin)/218;
FOR X FROM Xmin TO Xmax STEP xincr DO
FOR Y FROM Ymin TO Ymax STEP yincr DO
color := RGB(X^3 MOD 255,Y^3 MOD 255, TAN(0.1*(X^3+Y^3)) MOD 255);
PIXON(X,Y,color);
END;
END;
WAIT;
END;
FOR DOWN
Syntaxis: FOR var FROM begin DOWNTO einde DO opdrachten END;
Hiermee wordt de variabele var ingesteld op begin. Zolang de waarde van deze variabele kleiner is dan of
gelijk is aan einde, wordt de reeks van opdrachten uitgevoerd en wordt vervolgens 1 (stap) afgetrokken van
var.
FOR STEP DOWN
Syntaxis: FOR var FROM begin DOWNTO einde [STEP stap] DO opdrachten END;
Hiermee wordt de variabele var ingesteld op begin. Zolang de waarde van deze variabele groter is dan of gelijk
is aan einde, wordt de reeks van opdrachten uitgevoerd en wordt vervolgens stap afgetrokken van var.
WHILE
Syntaxis: WHILE test DO opdrachten END;
Hiermee wordt test geëvalueerd. Als het resultaat waar is (niet 0), worden de opdrachten uitgevoerd en
herhaald.
Voorbeeld: een perfect getal is een getal dat gelijk is aan de som van zijn delers. 6 is bijvoorbeeld een perfect
getal omdat 6 = 1+2+3. Het onderstaande voorbeeld retourneert 'waar' als het argument een perfect getal is.
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;
Programmaopdrachten 627