Lusopdrachten
FOR...FROM...TO...
DO...END
296
Voorbeeld:
CHOOSE
(N,"PickHero","Euler","Gauss","Newton");
IF N==1 THEN PRINT("U hebt Euler gekozen")
ELSE IF N==2 THEN PRINT("U hebt Gauss
gekozen")ELSE PRINT("U hebt Newton
gekozen")
END;
END;
Na uitvoering van CHOOSE wordt de waarde van n
bijgewerkt zodat deze 0, 1, 2 of 3 bevat. Met de
opdracht IF THEN ELSE wordt de naam van de
geselecteerde persoon afgedrukt op de terminal.
Syntaxis: FOR var FROM beginTO einde [STEP stap] DO
opdrachten
END;
Hiermee wordt de variabel 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) toegevoegd aan
var.
Voorbeeld 1: Dit programma bepaalt welk geheel getal
tussen 2 en N het grootste aantal factoren heeft.
EXPORT MAXFACTORS(N)
BEGIN
LOCAL cur, max,k,resultaat;
1 max;1 resultaat;
FOR k FROM 2 TO N DO
SIZE(idivis(k))
IF cur > max THEN
cur;
Programmeren