Паскаль(функции)

[Roll1n]

Нужно оформить в виде функции
f=n!/k!*(n-k)!
Я смог оформить только n!/k!.

program factorial;
uses crt;
var n,k: integer;
f:real;


function f2( n:integer):real;

var i:integer;
f:real;
begin
     if n=1 then f2:=1
     else f2:=f2(n-1)*n;
end;

begin
        writeln(' введите n');
        read(n);
        writeln(' введите k');
        read(k);
        
f:=f2(n)/f2(k);
writeln('nxz=',f2(n));
writeln('kxz=',f2(k));

writeln('n!/k!=',f);
end.

Помогите доделать

[danekne]

Хих... f:=f2(n)/f2(k)*f2(n-k)

[Roll1n]

Я уже это пробовал
Паскаль на это жалуется:"слишком много вложенных вызовов подпрограмм"

[Sweta]

f=n!/k! = (1*2*3*...*n)/(1*2*3*...*k);   (n-k)!=(1*2*3*...*(n-k))

Вычисления должны быть в цикле, что-то не видно.

[Roll1n]

Сообщение от Sweta

Неа!

Вычисление должно быть в цикле, что-то не видно.

Зачем цикл,если нужно использовать функцию?

[danekne]

Ну а разделить? черзез вспомогательную переменную?

[Sweta]

Аа! Поняла
Я бы в f2 не вызывала f2, а нахождение факториала сделала с помощью цикла.
т.е если i изменяется от 1 до n? то fact=fac*i;
тогда не будет

:"слишком много вложенных вызовов подпрограмм"

[Roll1n]

Все,я доделал.Теперь работает правильно.