|
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, 2005 Andreas Borchert, in HTML konvertiert am 14.09.2005 |