function [eredmeny]=fakt(n)
%FAKT(n) - n! szamitasa rekurziv modszerrel. Ha n
%nem egesz szam, akkor felfele kerekitjuk.
n=ceil(n); %kerekites
if n==0,
    eredmeny=1;
else
    eredmeny=n*fakt(n-1);
end;