Задача по Delphi!!!

[Gegamus]

Вот задача:


Формула:


Я очень прошу помощи! Отблагодарю!

[D@rkD@iver]

а чем отблагодаришь?

[Stilet]

Примерно так:

program Project1;

{$APPTYPE CONSOLE}

uses math,
  SysUtils;
var s,y,y0,x,e:double;k:integer;
begin
 x:=0.3;
 e:=0.003;
 y0:=0;s:=0; k:=0;
 y:=Power(-1,k)*(power(x,2*k+1)/(2*k+1));
 while abs(y-y0)>e do begin
  y0:=y;inc(k);
  y:=Power(-1,k)*(power(x,2*k+1)/(2*k+1));
  s:=s+y;
 end;
 write(s:5:2);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Gegamus]

D@rkD@iver, материально!

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

Примерно так:

program Project1;

{$APPTYPE CONSOLE}

uses math,
  SysUtils;
var s,y,y0,x,e:double;k:integer;
begin
 x:=0.3;
 e:=0.003;
 y0:=0;s:=0; k:=0;
 y:=Power(-1,k)*(power(x,2*k+1)/(2*k+1));
 while abs(y-y0)>e do begin
  y0:=y;inc(k);
  y:=Power(-1,k)*(power(x,2*k+1)/(2*k+1));
  s:=s+y;
 end;
 write(s:5:2);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

А можно точно сказать? Это курсовая как-никак... И напишите мне в ЛС ваш кошелек WM