I
I
IndusDev2018-05-07 16:23:57
Pascal
IndusDev, 2018-05-07 16:23:57

Find the sum of the first n terms?

An expression is given:
x is a real number, n is the number of elements.
Find the value of the expression
x+

Answer the question

In order to leave comments, you need to log in

2 answer(s)
T
TerNik, 2018-05-07
@IndusDev

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.

A
Alexander, 2018-05-07
@NeiroNx

you couldn't be a programmer...+x^(2n+1)/(2n+1)! turn the
code for ...+x^((2n+1)/(2n+1)!) into code, for ...+(x^(2n+1))/(2n+1)! - guess yourself

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;

Didn't find what you were looking for?

Ask your question

Ask a Question

731 491 924 answers to any question