Inhoudsopgave
Advertenties
REPEAT...UNTIL...
Programmeren
cur
max;
k
resultaat;
END;
END;
MSGBOX("Maximaal"+ max +" factoren voor
"+resultaat);
Voer in de beginweergave
MAXFACTORS(100) in.
Voorbeeld 2: met dit programma wordt een interessant
patroon op het scherm getekend.
EXPORT DRAWPATTERN()
BEGIN
LOCAL xincr,yincr,kleur;
STARTAPP("Functie");
RECT();
xincr := (Xmax - Xmin)/254;
yincr := (Ymax - Ymin)/110;
FOR X FROM Xmin TO Xmax STEP xincr DO
FOR Y FROM Ymin TO Ymax STEP yincr DO
kleur := FLOOR(X^2+Y^2) MOD 4;
PIXON(X,Y,kleur);
END;
END;
FREEZE;
END;
Syntaxis: REPEAT opdrachten UNTIL test;
Hiermee wordt de reeks van opdrachten herhaald totdat
test waar is (niet 0).
297
Advertenties
Inhoudsopgave
