Задача по рядам Тейлора

[Dukem]

Условие задачи: Вычислить с точностью =10–4 сумму ряда


Примерно решил так:

uses crt;
Var I: Integer;
X, S, A: real;
Begin
write('Введите число X:');readln(x);
a:=1;
i:=1;
s:=0;
repeat
a:=a*x;
s:=s+a/(i*(i+1));
I:=i+1 ;
until abs (a)<=0.0001;
write('Сумма ряда составляет: ',s) ;
End.

Пожалуйста проверте правильно ли решил.

[alex_fcsm]

1. Идите в отладчик
2. Или калькулятор в руки и вперед

[rubius2008]

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

Условие задачи: Вычислить с точностью =10–4 сумму ряда


Примерно решил так:

uses crt;
Var I: Integer;
X, S, A: real;
Begin
write('Введите число X:');readln(x);
a:=1;
i:=1;
s:=0;
repeat
a:=a*x;
s:=s+a/(i*(i+1));
I:=i+1 ;
until abs (a)<=0.0001;
write('Сумма ряда составляет: ',s) ;
End.

Пожалуйста проверте правильно ли решил.

элементы ряда считаются не правильно, получается что 1 равен x/(1*2)
2 = x^2/(2*3)
условие окончания вычислений тож не верно

[Dukem]

Не поможете с решением (времени просто нет разбираться) завтра сдать нужно.

Паскаль только начал изучать (и вот заковыка в одной задачи из шести)

[Hacker19_90]

Я точно не знаю, но проверь такой способ!

uses crt;
Var 
    n: Integer;
    f, f1, x, x1: real;
Begin
write('Введите число X:');readln(x);
x1 := x;
f := (0.5 + x/6);
n := 3;
repeat
x := x*x1
f1 := (x/(n*(n+1)));
f := f+f1;
Inc(n);
until abs (f1)<=0.0001;
write('Сумма ряда составляет: ',f) ;
End.

[rubius2008]

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

Не поможете с решением (времени просто нет разбираться) завтра сдать нужно.

Паскаль только начал изучать (и вот заковыка в одной задачи из шести)

repeat
s:=s+a/(i*(i+1));
a:=a*x;
I:=i+1 ;
until abs (a/(i*(i-1)*x))>=0.0001;