Составить в Turbo Pascal программу, используя пользовательские функции. Сама программа должна быть как можно меньше, соответственно, раздел описания функций больше. F=n!/(a-b) + (n-1)!/(a^2 - b^2) + ... + 1/(a^n - b^n) [latex]F...

Question

Составить в Turbo Pascal программу, используя пользовательские функции. Сама программа должна быть как можно меньше, соответственно, раздел описания функций больше. F=n!/(a-b) + (n-1)!/(a^2 - b^2) + ... + 1/(a^n - b^n) [latex]F...

Составить в Turbo Pascal программу, используя пользовательские функции. Сама программа должна быть как можно меньше, соответственно, раздел описания функций больше. F=n!/(a-b) + (n-1)!/(a^2 - b^2) + ... + 1/(a^n - b^n) [latex]F = \frac{n!}{a-b} + \frac{(n-1)!}{a^{2} -b^{2} } + ... + \frac{1}{a^{n} - b^{n}}[/latex]

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.