|
Rekursive Definitionen können ebenso für Folgen oder
für Funktionen verwendet werden.
| |||||||
Die Fakultät F(n) = n! ist für n > 0 definiert als
| |||||||
In Oberon können Prozeduren sich selbst
aufrufen. Damit ist es relativ leicht möglich, eine rekursive
Definition mehr oder weniger direkt zu übernehmen:
|
PROCEDURE Factorial(n: INTEGER) : INTEGER; BEGIN IF n > 0 THEN RETURN n * Factorial(n - 1) ELSE RETURN 1 END; END Factorial; |
Copyright © 1999, 2004 Andreas F. Borchert, in HTML konvertiert am 28.01.2005 |