Составить в Turbo Pascal программу, используя пользовательские функции. Сама программа должна быть как можно меньше, соответственно, раздел описания функций больше.
F=n!/(a-b) + (n-1)!/(a^2 - b^2) + ... + 1/(a^n - b^n)
[tex]F = \frac{n!}{a-b} + \frac{(n-1)!}{a^{2} -b^{2} } + ... + \frac{1}{a^{n} - b^{n}}[/tex]
Answers & Comments
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 2 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := a * rez;
Pow := rez;
end;
var
a, b, n, i:integer;
F:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('n = '); readln(n);
F := 0;
for i := 1 to n do
F := F + Fact(n - i + 1)/(Pow(a,i) - Pow(b, i));
writeln('F = ', F);
end.