Регистрация
Dmytro19
12.09.2020 01:53
Информатика
Есть ответ 👍

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

179
320
Посмотреть ответы 2

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

kgrintsewi4
kgrintsewi4
4,4(56 оценок)

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.

 

margaritamaurses
margaritamaurses
4,6(70 оценок)
Япросто напишу то что должно быть в пропусках с лево на право 1) 3072 ,   3 2) 16 384,   2 3) 12288.   1536 4)2 в 10,   1 (или 2 в 0) 5) 2 в 14,   2 в 1 = 2 6)не     там умножить или степень в буту считать что умножить,,   тогда 2 в 17, 2 в 14 а если степень в степнь то 2 в 21, 2  в 18 

Популярно: Информатика