[Dark]

дело вот в чем не знаю как в вычислении сума ряда чередовать знак (-) и (+) и как записать плз помогите!

сам пример; arctan(x)=x-x^3/3+x^5/5-.......
^-степень

Код:

uses
  SysUtils,Math;
var
  x,s,Eps,yn:extended;
  n,i:integer;
  FOK:boolean;
  Key:char;
begin
repeat
{$I-}
 repeat
   WriteLn (' x= ');
   ReadLn (x);
   FOK:=(ioresult=0)and (x>=-1)and(x<1);
    if not(FOK) then
     WriteLn('error');
   until FOK ;
   repeat
     WriteLn ('n=');
     ReadLn (n);
     FOK:=(ioresult=0)and(n>0);
       if not(FOK) then
       WriteLn('error');
   until FOK;
   {$I+}
   yn:=x;
   s:=x;
   for i := 2 to n  do
    begin
     yn:=((Power(x,(2*i-1)))/(2*i-1));
     yn:= yn*(-1) ;
     s:=s+yn;
  end;
    Writeln (s:10:5);
    Readln;
  WriteLn (' для продолжения нажмите Y ');
  ReadLn (key);
  until UpCase(key)<>'Y' ;
  WriteLn (x);
end.

Админ: Пользуемся тегами!

буду благодарен ! а то до экзамена не допустят(