Помогите решить задание

[Вилена]

Помогите решить задание

Задание на картинке
Огромная просьба не пользоваться подпрограммами
Нужно срочно, сегодня утром экзамен
а эту программу до экзамена сдавать...
Заранее спасибо!:tehnari_ru_837:

 

[Вилена]

Забыла снова...
И снова Pascal...

 

[Vladimir_S]

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

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

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.