Function Delphi Help

[Loqwer78rus]

Решить пример через функции.


Здесь одна функции для факториала, другая для суммы.

function fak(N: Integer):
begin
if((N=0) or (N=1)) then Result:=1
else Result:=N*fak(N-1)

-Вот вроде для факториала.
А как сделать для суммы и факториала (n+1)! ??? Помогите пожалуйста.

[Loqwer78rus]

Вот проверьте на правильность

function f1(a:integer):real;
var i:integer; sum:real;
begin
sum:=0;
for i:=1 to a do
sum:=sum*i
end;

function f2(a,b:integer):real;
var i:integer; sum:real;
begin
sum:=0;
for i:=a to b do
sum:=1/(sum+i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var n,x:integer; f3:real;
begin
n:=StrToInt(Edit2.Text);
x:=StrToInt(Edit1.Text);

if (n<=7) then
f3:=(f1(n)*f2(2,7)*(1/x))/((f1(n)+1)*f2(1,5)*(1/x));
label3.Caption:=FloatToStr(f3);

if (n>7) then
label3.Caption:='Error';

end;

[BDA]

Эта дробь равна 6/(5 * (n + 1)). Код, имхо, неверный:
1) f1 всегда равна 0
2) f2 не суммирует 1/i, где i лежит в некотором интервале
3) i в выражениях вообще нет, поэтому верхняя сумма равна 6/x, а нижняя - 5/x
4) если n! равна fak(n), то (n+1)! равна fak(n+1)