REPEAT
606
sum+d
END;
d+1
d;
END;
RETURN sum==n;
END;
Das folgende Programm zeigt alle perfekten Zahlen bis
zur Zahl 1000 an:
EXPORT PERFECTNUMS()
BEGIN
LOCAL k;
FOR k FROM 2 TO 1000 DO
IF ISPERFECT(k) THEN
MSGBOX(k+" ist perfekt, drücken Sie
OK");
END;
END;
END;
Syntax: REPEAT Befehle UNTIL Test;
Wiederholt die Sequenz der Befehle, bis Test "wahr" ist
(nicht 0).
Das Beispiel unten fordert den Benutzer auf, einen
positiven Wert für SIDES einzugeben, und modifiziert
damit ein weiter oben in diesem Kapitel beschriebenes
Programm:
EXPORT SIDES;
EXPORT GETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Würfelseiten","N =
","Eingabe Anz. Seiten",2);
UNTIL SIDES>0;
END;
sum;
Programmieren