Цикл с предусловием или цикл с постусловием - Pascal ABC - Ответ 12466233

const xn=0.2;
      xk=0.6;
      dx=0.1;
      e=0.00001;
function f(x:real):real;
begin
f:=0.5*ln((1+x)/(1-x));
end;
var x,t,s:real;
    n:integer;
begin
//выводим шапку
writeln('Таблица значений функции y=arth(x)');
writeln('представленной разложением в ряд Тейлора');
writeln('на интервале [',xn:0:2,';',xk:0:2,'] с шагом ',dx:0:2,' с точностью ',e:0:5);
writeln('-------------------------------');
writeln('|  x  |  s(x)  |  n  |  f(x)  |');
writeln('-------------------------------');
//начнем с начала интервала
x:=xn;
while x<=xk do //пока не конец
 begin
  n:=0;//нулевой член ряда
  t:=x; //его значение
  s:=t; //первая сумма
  while abs(t)/(2*n+1)>e do//пока очередной член ряда больше точности
   begin
    n:=n+1;//увеличиваем n на 1
    t:=t*sqr(x); //умножаем предыдущий член на x^2
    s:=s+t/(2*n+1);//делим на очередное нечетное число и прибавляем к сумме
   end;
  writeln('|',x:5:2,'|',s:8:4,'|',n+1:3,'  |',f(x):8:4,'|'); //выводим аргумент значение суммы
                                                             //число слагаемых  и аналитическое значение
  x:=x+dx;//увеличиваем х на 1 шаг
 end;
writeln('-------------------------------');
end.