Ряд Тейлора функции имеет вид

@Михаил Пин · Регистрация: 24.02.2014

Author24 — интернет-сервис помощи студентам

Программа работает, но я не уверен, что выдаётся правильный ответ.
Подскажите, верно ли выполнено решение?

Delphi

var
Form1: TForm1;
n:LongInt;
i:integer;
Sold, Snew,OTV,F,y:Extended;
implementation
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Sold:=1;
n:=0;
Snew:=3;
OTV:=1;
while Sold<>Snew do
begin
n:=n+1;
F:=1;
for i:=1 to n do
F:=F*i;
 
Sold:=power(-1,n)*power(3,2*n-1)/(F*(2*n+1));
Snew:=Sold+Snew;
OTV:=2/sqrt(pi)*Sold;
Memo1.Lines.Add(IntToStr(n)+' '+FloatToStr(Sold)+' '+FloatToStr(Snew)+' '+FloatToStr(OTV));
end;
end;
 
end.

@Puporev · 17.09.2016, 20:50

Вот я накидал в консоли для варианта 2, сравните результат со своим

Pascal

var n:integer;
    x,e,t,s:real;
begin
write('x=');
readln(x);
e:=0.00001;
n:=0;
t:=x;
while abs(t)/(2*n+1)>e do
 begin
  inc(n);
  t:=-t*x*x/n;
  s:=s+t/(2*n+1);
 end;
s:=s*2/sqrt(pi);
write('S=',s:0:5);
end.

x	y
0	0
1	-0.2857
2	-1.2614
3	-2.3852
4	-3.5135

	17.09.2016, 20:50

Опции темы