Сумма N слагаемых (Delphi)

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста найти ошибку в коде!

Мой препод говорит что в этой части ошибка

 //Вычисление суммы последовательности
 S:=0;
 a:=1;
 for i:=2 to N do
 begin
  S:=S+a;
  a:=a*(x*x)/((2*i)*(2*i-1));
 end;
 writeln('Сумма=',S:10:8);
 writeln;

Program summarida;
Var
 x,E,a,S,S_1,S_2:real;
 N,i,k_1,k_2:integer;

 //Условие задачи:
 //1. Вычислить сумму N слагаемых ряда 1+x*x/2!+x*x*x*x/4+...
 //2. Вычислить сумму и количество слагаемых, модуль которых больше E и E/10.
BEGIN
 writeln;
 //Ввод числа x
 writeln('Часть 1');
 repeat
  write('Введите x(-1<x<1):');
  readln(x);
  if (x<=-1) or (x>=1) then
   writeln('Ошибка ввода!');
 until (x>-1) and (x<1);

 //Ввод количества слагаемых
 repeat
  write('Введите количество слагаемых N(N>0):');
  readln(N);
  if N<1 then
   writeln('Ошибка ввода!');
 until N>=1;

 //Вычисление суммы последовательности
 S:=0;
 a:=1;
 for i:=2 to N do
 begin
  S:=S+a;
  a:=a*(x*x)/((2*i)*(2*i-1));
 end;
 writeln('Сумма=',S:10:8);
 writeln;

 writeln('Часть 2');

 //Ввод точности E
 write('Введите точность вычисления E:');
 readln(E);

 //Вычисление суммыи количества слагаемых, больше E
 S_1:=0;
 k_1:=0;
 a:=1;
 i:=1;
  while abs(a)>E do
  begin
   S_1:=S_1+a;
   a:=a*(x*x)/((2*i)*(2*i-1));
   K_1:=k_1+1;
   i:=i+1;
  end;

 //Вычисление суммы количества слагаемых, больше E/10
 S_2:=0;
 k_2:=0;
 a:=1;
 i:=1;
  while abs(a)>E/10 do
  begin
   S_2:=S_2+a;
   a:=a*(x*x)/((2*i)*(2*i-1));
   K_2:=k_2+1;
   i:=i+1;
  end;

 //Вывод результатов
 writeln('Точное значение функции=',((exp(x)+exp(-x))/2):10:8);
 writeln('Точность вычисления=',E);
 writeln('Приближенное значение для  E=',S_1:10:8);
 writeln('Количество слагаемых=',k_1);
 writeln;
 writeln('Точность вычисления=',E/10);
 writeln('Приближенное значение для E/10=',S_2:10:8);
 writeln('Количество слагаемых=',k_2);
 writeln;
END.

[VIK_aka_TOR]

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

а(n) = ( a(n-1) * x * x) / ( 2 * n ) * ((2 * n - 1 ))

где n -номер члена последовательности...

сбросьте само условие последовательности... что бы увидеть ошибку...

Исправление: напишите условие ряда для n - ого члена...

[evg_m]

Мой препод говорит что в этой части ошибка

Код правильный (синтаксически), но он прав. Вы ситаете другой ряд, а не

//Условие задачи:
//1. Вычислить сумму N слагаемых ряда 1+x*x/2!+x*x*x*x/4+...

[Начинающий програм]

Спасибо! Я попробую исправить

[Начинающий програм]

Иак тоже не верно?

 //Вычисление суммы последовательности
 S:=0;
 a:=1;
 for i:=1 to N do
 begin
  S:=S+a;
  a:=a*(x*x)/(2*i);
 end;
 writeln('Сумма=',S:10:8);
 writeln;

[VIK_aka_TOR]

Сообщение от Начинающий програм

Иак тоже не верно?

 //Вычисление суммы последовательности
 S:=0;
 a:=1;
 for i:=1 to N do
 begin
  S:=S+a;
  a:=a*(x*x)/(2*i);
 end;
 writeln('Сумма=',S:10:8);
 writeln;

напишите для n-го члена формулу... или же продолжите ряд... тогда отвечу точно... но

  a:=a*(x*x)/(2*i);

точно не верно...

[Leshii]

скорее всего так

a:=0;S:=0;
fact:=1;
low:=2;
while low <= high do begin
    ....
   for i:=2 to low do begin
     fact:=fact*i;
   end;
     a:=a+1+exp(low*ln(x))/fact;
     low:=low+2;
end;

Мне одному показалось, или там таки факториал возле двойки? Малость подправил, но точность в результате не гарантирую.

[VIK_aka_TOR]

Сообщение от Leshii

скорее всего так

a:=1;
fact:=1;
low:=2;
while low <= high do begin
    ....
     fact:=fact*low;
     a:=a*exp(low*ln(x))/fact;
     low:=low+2;
end;

Мне одному показалось, или там таки факториал возле двойки?

1. возле двойки факториал... а возле четверки... его нету... вероятнее всего забыли дописать...
2. факториал вы считаете неправильно

[Leshii]

2. факториал вы считаете неправильно

Заметил уже когда напечатал. Потом посмотрел что при 4! будет не 24, а 8 и уже тогда понял фейл. Добавил там же вложенный цикл.

[VIK_aka_TOR]

Сообщение от Начинающий програм

Всем доброго времени суток! Помогите пожалуйста найти ошибку в коде!

Мой препод говорит что в этой части ошибка

 //Вычисление суммы последовательности
 S:=0;
 a:=1;
 for i:=2 to N do
 begin
  S:=S+a;
  a:=a*(x*x)/((2*i)*(2*i-1));
 end;
 writeln('Сумма=',S:10:8);
 writeln;

что бы в ней все норм считалось... учитывая что после 2! будет 4! 6! 8! и т.д. то нужно всего лишь в цикле i начинать с 1 ... и все будет норм, с учетом того, что будет вычисляться і+1 член последовательности...