%program Fakultaet nur rekursiv
%Pascal/MATLAB-Kurs Oktober 2000 und 2001, Gerhard Opfer
%Berechnung von n! auf rekursivem Wege

function m=a07_03(n);
if n>1 
  m=a07_03(n-1)*n;
  else
  m=1;
end; 
