Технический форум

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Pascal (http://www.tehnari.ru/f43/t253355/)

помогите решить это, пожалуйста:jazik:

А условия схождения ряда какие ? т.е. какая точность схождения ? Ну или грубо говоря какое максимальное n для данного ряда

Цитата:

Сообщение от MagentaTiger (Сообщение 2480441)

это всё, что дано..

ПолучИте:

Код:

Function S(x:real;n:byte):real;

var

 a,T:real;

 i:byte;

begin

 a:=1;

 T:=a;

 for i:=1 to n do

  begin

   a:=a/(2*(i-1)+1)*(2*i+1)/i*Sqr(x);

   T:=T+a;

  end;

 S:=T;

end;



Function F(x:real):real;

begin

 F:=(1.0+Sqr(x)*2)*Exp(Sqr(x));

end;



Begin

 Writeln('Result:');

 Writeln(S(0.5,15):0:20);

 Writeln('Function:');

 Writeln(F(0.5):0:20);

 Readln

End.

Цитата:

Сообщение от MagentaTiger (Сообщение 2480441)

Да зачем это? Сказано - просуммировать 15 членов, уж что получится, то получится. Кстати, сходимость очень высокая: учет 15-ти членов дает точный результат по крайней мере до 20-го знака (дальше не проверял).

Вы видимо что то обрезали :) я так понимаю x=0.5 a N=15 ...

Код:

program Project;

uses

  Math;

  function Factorial(n: word): LongInt;

  begin

  if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1);

  end;



  function myrow(x:Double;n:Integer): Double;

  begin

     myrow:= (2*n+1)/Factorial(n)* (Power(x,2*n));

  end;



  var s,x,f:Double;

  n:Integer;

begin





    x:=0.5;

   for n:=0 to 15 do

   begin

     s:=s+myrow(x,n);

   end;

   f:=(1+2*x*x)*exp(x*x);

   writeln('S=' ,s:4:10);

   writeln('f=',f:4:10);

   Writeln('Raznitca=',(s-f):4:10);

   readln;



end.

Вложение 345141

Цитата:

Сообщение от Vladimir_S (Сообщение 2480455)

Да зачем это? Сказано - просуммировать 15 членов,

Не дочитал вторую строчку :)