Определите бесконечную сумму с заданной точностью E

[pendalf2]

Определите бесконечную сумму с заданной точностью E (E> 0). Считать, что требуемая точность достигнута, если последнее слагаемое по модулю меньше E (все последующие слагаемые можно не учитывать).

S:=1+3*x^2+5/2*x^4+7/3!*x^6+...+(2*n+1)/n! * x^2*n

[Mad_Cat]

язык хоть какой?

[pendalf2]

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

язык хоть какой?

Delphi......

[Mad_Cat]

Delphi......

program Project2;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils;
var s,st,e,f,x:double;
   i:integer;
begin
{S:=1+3*x^2+5/2*x^4+7/3!*x^6+...+(2*n+1)/n! * x^2*n}
write('x=');readln(x);
write('e=');readln(e);
s:=1;
f:=1;
i:=1;
st:=x*x;
while (2*i+1)/f*st>=e do
begin
s:=s+(2*i+1)/f*st;
st:=st*sqr(x);
i:=i+1;
f:=f*i;
end;
writeln('сумма =',s:6:3);
readln;
end.

[pendalf2]

Спасибо!!!
Мне под приложение нужно

procedure TForm1.Button1Click(Sender: TObject);
var s,st,e,f,x:real;
i:integer;
begin
x:=strtofloat(Edit1.text);
e:=strtofloat(Edit2.Text);
s:=1;
f:=1;
i:=1;
st:=x*x;
while (2*i+1)/f*st>=e do
begin
s:=s+(2*i+1)/f*st;
st:=st*sqr(x);
i:=i+1;
f:=f*i;
end;
label1.Caption:=strtofloat('Ñóììà = '+ s);
end;

ошибка в строке

label1.Caption:=strtofloat('Ñóììà = '+ s);

пишет:

[Error] Unit1.pas(46): Incompatible types: 'String' and 'Real'

[Mad_Cat]

Мне под приложение нужно

а у меня извините под что???

label1.Caption:='сумма = '+ floattostr(s);

[pendalf2]

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

а у меня извините под что???

label1.Caption:='сумма = '+ floattostr(s);

под консольное приложение, я сам виноват-не указал в начале.
извините,недоглядел.

Огромное спасибо!!!