# Rekursive Berechnung von
Fakultäten

## Problembeschreibung

*******************************************
Dokumentnummer: D1505
*******************************************
Ein Programm zur rekursiven Berechnung von Fakultäten
ist zu erstellen.

## Problemlösung

EINGABE

n:read("Gib eine natürliche Zahl ein");

REKURSION

x[0]:1;
f(k):=x[k]:k*x[k-1];

DURCHRECHNUNG

faktorielle:makelist(f(k),k,1,n);

AUSGABE

print("Ergebnis:")$
print("------------------------------------------------")$
print("Die Faktorielle von",n,"ist",faktorielle[n])$