Данa функция, аргументы которой - неотрицательные целые числа M и N
1, при М=0
f(M,N)=f(M-1,N-1)+f(M,N-1), при 0 < М < N
1, при M=N
Составить алгоритм, вычисляющий значение функции без помощи рекурсии и с помощью рекурсии.
Вот мои наработки. Должно быть две программки. Помогите хотя бы с одной, где с помощью рекурсии.
program N762;
Uses crt;
var X,Y,Rez:Integer;
function F(M,N:Integer):Integer;
var f:Integer;
Begin
//f1:=f(M-1,N-1);
//f2:=f(M,N-1);
//fun:=f1+f2;
{fun:=f(M-1,N-1)+f(M,N-1); }
//for i:= n downto 1 do
//for j:= m-1 downto 1 do
if M=0 then f:=1;
if (M>0) and (M<N)then f:=F(M-1,N-1)+F(M,N-1)
else if M=N then f:=1;
F:=f;
End;
Begin
WriteLn('Введите значения аргументов, неотрицательные числа');
ReadLn(X,Y);
Rez:=F(X,Y);
WriteLn('Rez=',Rez);
End.