Ãœberprüfung der Funktion "FACT"

[gravieren]

Hallo Hugo


Wie gesagt bin ich am austesten der OSCAT-S7.





Module FACT

Code: [Auswählen]

IF x >= 0 AND x < 8 THEN
fact := 1;
i := 2;
WHILE x < i DO
fact := fact * i;
END_WHILE;
ELSE fact := -1;
END_IF;
Es wird eine Endlosschleife erzeugt.
In der "While" sollte  die Anweisung   "i := i + 1;"  stehen.

[hugo]

ist in der 1.5 behoben
wenn du mir eine email sendest dann kann ich dir die 1.45 lib zusenden.