Ãœberprüfung der Funktion "FACT"

Begonnen von gravieren, 04. März 2007, 17:11:37

Vorheriges Thema - Nächstes Thema

0 Mitglieder und 1 Gast betrachten dieses Thema.

gravieren

Hallo Hugo


Wie gesagt bin ich am austesten der OSCAT-S7.





Module FACT

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.