Не знаю как правильно сделать вызов функции

[Homutova_Julia]

var k:integer;
Begin
N:=k-1;
if N=0 then factor1:=1 else factor1:=N*factor1(N-1);
end;

Function factor2(M:integer):integer;//Факториал в знаменателе
var k:integer;
Begin
M:=k-2;
if M=0 then factor2:=1 else factor2:=M*factor2(M-1);
end;

Function F(k:integer):real;//Сама функкция F(k)
var factor1:integer; factor2:integer;
Begin
If k= 0 then
Result:= 0
Else
Begin
If k=1 then result:=2;
If k>1 then
begin
Result:=F(factor1)/F(factor2);
end;
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
k, N,M:integer;
Result:Real;
begin

k := StrToInt(Edit1.Text);
N:=k-1;
M:=k-2;
factor1(N);
factor2(M);
Result;//ОШИБКА ([Error] Unit1.pas(74): Statement expected, but expression of type 'Real' found)

//Вывод результата
label3.caption:='Çíà÷åíèå ôóíêöèè ïðè k '+Edit1.Text
+ ' ðàâåíî '+IntToFloat(Result);

end;
end.

[Alex11223]

Result;//ОШИБКА

А как это связано с вызовом функции F? Зачем вам переменная Result типа real в этой процедуре?

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[Homutova_Julia]

Я не знаю сама. Знала бы не просила бы помочь

[Alex11223]

Так а что вы сделать-то хотите?)

[Homutova_Julia]

У меня есть функция Ф(к)=(к-1)!/(к-2)!, где к>1, но при этом Ф(0)=0, Ф(1)=2
Вот мне надо вывести результат. И я не знаю как.

[Homutova_Julia]

Все вызов функции я сделала. Если ввожу 0 или 1, значение получается верное, но если ввожу, например, 2 возникает ошибка

[alexan0308]

Не надо делать две функции для факториала. Оставь одну.

Function factor(N:integer):integer;
Begin
  if N=0 then factor:=1 else factor:=N*factor(N-1);
end;


Function F(k:integer):real;//Сама функкция F(k)
Begin
  If k=0 then result:=0;
  If k=1 then result:=2;
  If k>1 then result:=factor(k-1)/factor(k-2);
end;

[Homutova_Julia]

Function F(k:integer):real;//Сама функкция F(k)

Теперь в этом месте ошибка [Error] Unit1.pas(48): Declaration of 'F' differs from previous declaration

[alexan0308]

Свои функции удалила? Приведи заново код того что получилось

[Homutova_Julia]

Да, конечно)