Технический форум - Помогите решить задание

Цитата:

Сообщение от Вилена (Сообщение 1094925)

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

Вот думаю - не предложить ли Госдуме законопроект "О порядке применения телесных наказаний в учебных заведениях РФ в случае хронической лености и нерадивости обучаемых"...
Ну а пока - получите:

Код:

Const

 Eps=0.0001;



Var

 i:Integer;

 S,x,a,AV,AE,RE:Real;



Begin

 Write('x= ');

 Readln(x);

 AV:=Ln(x+Sqrt(1+x*x));

 a:=x;

 S:=a;

 i:=0;

 Repeat

  Inc(i);

  a:=-a*x*x*(2*i-1)/(2*i)*(2*i-1)/(2*i+1);

  S:=S+a;

 Until Abs(a)<Eps;

 If x=0 then

  begin

   AE:=0;

   RE:=0;

  end

 else

  begin

   AE:=Abs(S-AV);

   RE:=Abs((S-AV)/AV)*100;

  end;

 WriteLn('Result: ',S:0:6,'  Acc.value: ',AV:0:6,'  Abs.err: ',AE:0:6,'  Rel.err: ',RE:0:6,'%');

 Readln

End.

При тестировании программы величину х следует брать где-то в окрестности нуля, во всяком случае |х|<1.