ПолучИте:
Код:
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
А условия схождения ряда какие ? т.е. какая точность схождения ? Ну или грубо говоря какое максимальное n для данного ряда
|
Да зачем это? Сказано - просуммировать 15 членов, уж что получится, то получится. Кстати, сходимость очень высокая: учет 15-ти членов дает точный результат по крайней мере до 20-го знака (дальше не проверял).