Pascal

[Anika69]

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

 

[MagentaTiger]

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

 

[Anika69]

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

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

 

[Vladimir_S]

ПолучИте:

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.

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

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

 

[MagentaTiger]

Вы видимо что то обрезали я так понимаю 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.

 

[MagentaTiger]

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

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