Musterlösung zu "Primzahlen"

MODULE Prima;

IMPORT Display;

PROCEDURE ProgMain*;

VAR i, j: INTEGER;
       isprim: BOOLEAN;
BEGIN
       Display. WriteStr ("Die Primzahlen bis 200 sind: ");
       FOR i:=2 TO 200 DO
              isprim:=TRUE;
              j:=2;
              WHILE (isprim) & (j<i) DO
                     IF i MOD j=0
                            THEN isprim:=FALSE;
                     END;
                     j:=j+1;
              END;
              IF isprim THEN
                     Display. WriteInt (i, 5);
              END;
       END;

       REPEAT UNTIL Display.KeyPressed();
END ProgMain;

END Prima.

Zurück zur Wiederholung bei bekannter Anzahl der Durchläufe