REPEAT
BREAK
CONTINUE
598
Met het volgende programma worden alle perfecte
getallen tot 1000 weergegeven:
EXPORT PERFECTNUMS()
BEGIN
LOCAL k;
FOR k FROM 2 TO 1000 DO
IF ISPERFECT(k) THEN
MSGBOX(k+" is perfect, druk op OK");
END;
END;
END;
Syntaxis: REPEAT opdrachten UNTIL test;
Hiermee wordt de reeks van opdrachten herhaald totdat
test waar is (niet 0).
In het onderstaande voorbeeld wordt gevraagd om een
positieve waarde voor ZIJDEN, als aanpassing op een
eerder programma in dit hoofdstuk.
EXPORT ZIJDEN;
EXPORT GETSIDES()
BEGIN
REPEAT
INPUT(ZIJDEN,"Zijden van een
dobbelsteen","N = ","Voer aantal
zijden in",2);
UNTIL ZIJDEN>0;
END;
Syntaxis: BREAK(n)
Hiermee worden lussen beëindigd door het verlaten van
n lusniveaus. De uitvoering wordt hervat met de eerste
instructie na de lus. Beëindig een enkele lus als er geen
argument is.
Syntaxis: CONTINUE
Hiermee brengt u de uitvoering over naar het begin van
de volgende herhaling van een lus.
Programmeren