Найти сумму n первых членов?

Question

[IndusDev]

Дано выражение:
x - действительное число, n - количество элементов.
Найти значение выражения
x+

Comments

[sim3x]

В чем сложность?

[IndusDev]

sim3x,
я пытался начать решить, получилось пока следующее:
(x,n - ввел с клавиатуры).

y:=x;
a:=x;
  for i:=2 to n do
    begin
      a:=a*x*x/????(не знаю);
      y:=y+a;
    end;

Вот, не знаю что ставить на месте вопросов, да и сомневаюсь во всем коде

[Александр]

Да все нормальные преподы читают и тостер и стековерфлоу - ща дадут ему еще одну)))

Answer 1

[TerNik]

var
  i, N: integer;
  Sum, a, x, y: real;

begin
  write('x = ');
  readln(x);
  Sum := x; { <== Начальная сумма равна первому члену x }
  { Далее выполнять программу имеет смысл только при x ≠ 0 
  (в противном случае все слагаемые равны 0): }
  if x <> 0 then
  begin
    write('N = ');
    readln(N);
    a := x; { <== Первое слагаемое в данной сумме }
    y := sqr(x); { <== Запоминаем x в квадрате }
    for i := 1 to N do
    begin
      { Для вычисления i-го значения предыдущее значение 
      умножаем на x в квадрате (число y) и
      делим на произведение последовательных натуральных чисел: }
      a := a * y / (2 * i * (2 * i + 1));
      Sum := Sum + a { <== Находим сумму }
    end
  end;
  writeln;
  writeln('Значение суммы: ', Sum:0:5);
  readln
end.

Answer 2

[Александр]

не быть тебе програмистом - не смог ...+x^(2n+1)/(2n+1)! превратить в код
код для ...+x^((2n+1)/(2n+1)!) , для ...+(x^(2n+1))/(2n+1)! - догадайся сам

y:=x;
a:=x;
  for i:=2 to n do
    begin
      factorial := 1;
      el:= 2*n+1;
      for f:=2 to el do
           factorial := factorial * f;
      a:=power(x,el/factorial);
      y:=y+a;
    end;

Comments

[IndusDev]

Пользоваться стандартными функциями нельзя

[Александр]

запись туманна, поэтому можно и
a:=power(x,el)/factorial;
записать

[Александр]

sum:=x;
  for i:=1 to n do
    begin
      factorial := 1;
      pow:=1;
      for f:=2 to 2*i+1 do
        begin
           factorial := factorial * f;
           pow:=pow*x;
        end;
      sum:=sum+pow/factorial;
    end;

препод знает что ты не знаешь ни что такое возведение в степень, ни что такое факториал.
так то задача элементарная...