Сумма ряда

[eKStaSy]

Программа по вычислению суммы ряда до члена ряда с точность Eps.
Производить печать текущих значений суммы количества членов ряда.
Как реализовать, сумму ряда, т.е sum 3 членов=N1+N2+N3, не N1+N3

program Sum;


{$APPTYPE CONSOLE}

var
  N: Integer;        { Переменная, по которой вычисляются члены ряда }
  Step: Integer;     { Шаг                                           }
  S: Real;           { Текущая сумма ряда до N                       }
  NP,                { Текущий член ряда                             }
  X: Real;           { Переменная                                    }
  M: Integer;        { Максимальное кол-во циклов                    }
  Eps: Real;
  I: Integer;

begin

    // Ввод данных
  Write( 'Введите шаг и максимальное кол-во циклов ' );
  ReadLn(Step, M);
  Write( 'Введите значение X ');
  ReadLn(X);
  Write('Введите точность расчета ');
  ReadLn(Eps);
  WriteLn('':100);
  WriteLn('':5, '┌─────┬───────────┬───────────┐');
  WriteLn('':5, '│', '  N  ', '│', ' Значение  '
          , '│', ' Сумма     ' , '│');
  WriteLn('':5, '│', '':5, '│', ' элемента  '
          , '│', '   ряда    ' , '│');

  WriteLn('':5, '├─────┼───────────┼───────────┤');
  I := 0;
  S := 0;
  N := 1;

    // Вычисление и вывод в таблице

  repeat
    Inc(I);
    NP := (2*N-1)/Exp(Ln(2)*N/2);
    S := S + NP;

      // расчет места для ячейки
    if N <= 9 then
      WriteLn('':5, '│', ' ', N, '   ', '│', ' ', NP:8:7, '':1, '│', ' ', S:6:7,' ', '│')
    else

      if (N > 9) and (N < 101) then
        WriteLn('':5, '│', ' ', N, '  ', '│', ' ', NP:8:7, '':1, '│', ' ', S:6:7, ' ', '│');
      if (N > 100) and (N < 1001) then
        WriteLn('':5, '│', ' ', N, ' ', '│', '   ', NP:8:7, '':1, '│', ' ', S:6:7, ' ', '│');
      if (N > 1000) and (N < 10001) then
        WriteLn('':5, '│', ' ', N, '', '│', '  ', NP:8:7, '':1, '│', ' ', S:6:7, ' ', '│');
      WriteLn('':5, '├─────┼───────────┼───────────┤');
      N := N + Step;
    if I >= M then
    begin

  if M mod 1 = 0 then
    begin
      WriteLn(' ':100);
      WriteLn('Этот ряд не сходится на ', M, ' цикле');
      Break;
    end
  else
    begin
      WriteLn(' ':100);
      WriteLn('Этот ряд не сходится на ', M, ' циклах');
      Break;
    end
  end;
  until NP < Eps;
  WriteLn;
  WriteLn('Сумма ряда: ', S:12:7);
  WriteLn('Количество членов ряда ', N-1);
  ReadLn;
end.

[Sweta]

С помощью цикла. for или while или do while

[eKStaSy]

в том и суть, что надо repeat использовать

[Sweta]

Вот Вам пример
Пусть требуется сложить произвольные вводимые пользователем числа до тех пор, пока их сумма не превысит 1000. Мы запрограммируем эту задачу с помощью циклов repeat и while. Сумму будем накапливать в переменной sum, а очередное число помещать в переменную a. Эти переменные могут быть как целыми, так и вещественными. С помощью цикла repeat этот алгоритм записывается так:

sum := 0;
repeat
write(' Введите число ');
read(a);
sum := sum + a
until sum > 1000;
writeln(' Сумма равна ',sum)

[eKStaSy]

program SumRijda;
{  Программа, вычисляющая сумму ряда }

{$APPTYPE CONSOLE}

var
  N, N1: Integer;    { Переменная, по которой вычисляются члены ряда }
  Step: Integer;     { Шаг                                           }
  S,S1: Real;           { Текущая сумма ряда до N                       }
  NP, Temp,                { Текущий член ряда                             }
  X: Real;       { Переменная                                    }
  M: Integer;        { Максимальное кол-во циклов                    }
  Eps: Real;         { Точность                                      }
  I: Integer;        { Параметр цикла                                }
  label L1;
begin

    // Ввод данных
  Write( 'Введите шаг и максимальное кол-во циклов ' );
  ReadLn(Step, M);
  Write( 'Введите значение X ');
  ReadLn(X);
  Write('Введите точность расчета ');
  ReadLn(Eps);
  WriteLn('':100);
  WriteLn('':5, '┌─────┬───────────┬───────────┐');
  WriteLn('':5, '│', '  N  ', '│', ' Значение  '
          , '│', ' Сумма     ' , '│');
  WriteLn('':5, '│', '':5, '│', ' элемента  '
          , '│', '   ряда    ' , '│');

  WriteLn('':5, '├─────┼───────────┼───────────┤');
  Step:=2;
 { X := 2;
  M := 100;
  Eps := 1e-5; }
  I := 0;
  S := 0;
  N := 1; S1:=0;
  N1 := 1;
    // Вычисление и вывод в таблице

  repeat
    Inc(I);
    NP := (Exp(N*Ln(X-1)))/(N*Exp(N*Ln(X)));
  L1:

  if S1 <= S then
  begin
  repeat
    Temp := (Exp(N1*Ln(X-1)))/(N1*Exp(N1*Ln(X)));
    S1 := S1 + Temp;
    N1 := N1+1;
  until N1>N;
    goto L1;
  end;
    if (N >= NP) then
      S:=S1;
      // расчет места для ячейки
    if N <= 9 then
      WriteLn('':5, '│', ' ', N, '   ', '│', ' ', NP:8:7, '':1, '│', ' ', S:6:7,' ', '│')
    else

      if (N > 9) and (N < 101) then
        WriteLn('':5, '│', ' ', N, '  ', '│', ' ', NP:8:7, '':1, '│', ' ', S:6:7, ' ', '│');
      if (N > 100) and (N < 1001) then
        WriteLn('':5, '│', ' ', N, ' ', '│', '   ', NP:8:7, '':1, '│', ' ', S:6:7, ' ', '│');
      if (N > 1000) and (N < 10001) then
        WriteLn('':5, '│', ' ', N, '', '│', '  ', NP:8:7, '':1, '│', ' ', S:6:7, ' ', '│');
      WriteLn('':5, '├─────┼───────────┼───────────┤');
      N := N + Step;
    if I >= M then
    begin

  if M mod 1 = 0 then
    begin
      WriteLn(' ':100);
      WriteLn('Этот ряд не сходится на ', M, ' цикле');
      Break;
    end
  else
    begin
      WriteLn(' ':100);
      WriteLn('Этот ряд не сходится на ', M, ' циклах');
      Break;
    end
  end;
  until NP < Eps;

  WriteLn;
  WriteLn('Сумма ряда: ', S:12:7);
  WriteLn('Количество членов ряда ', N-1);
  ReadLn;
end. // программы SumRijda

тема исчерпана