Musterlösung zu "Fakultät"

MODULE Fak;

IMPORT Display;

PROCEDURE ProgMain*;
VAR n,zaehler, fak: LONGINT;
         ch: CHAR;

BEGIN
         Display. WriteStr (" Von welcher Zahl soll die Fakultät berechnet werden?");
         Display.ReadInt (n, 3, ch);
         fak := 1; 
         FOR zaehler:=1 TO n DO
                  fak := zaehler*fak;
         END;
         Display. WriteLn;
         Display. WriteStr ("Dabei ergibt sich der Wert ");
         Display. WriteInt (fak, 9);
         REPEAT UNTIL Display.KeyPressed();
END ProgMain;

END Fak.

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