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