Составить приложение на языке паскаль.МОЙ ВАРИАНТ 1

подробнее во вложении

1

Ответы и объяснения

Лучший Ответ!
2012-05-15T20:24:32+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var x,e,xn,xk:real;
i,n,k,fac:integer;
Begin
  read(x);
  fac:=1;
  e:= 0.01;
  for i:= 3 to 6 do begin
    e:=e/10;
    for n:= 1 to 10 do begin
      fac:=fac*n;
      xn:=-1*exp(n*ln(x/2))/fac;
      k:=0;
      repeat
        k:=k+1;
        xk:=xn;
        xn:=xn*exp(2*ln(x/2))/(k+1)/(k+n+1)
      until abs(xk-xn)<e;
      writeln(e:6,'      ',xn:20,'      ',n:2);
    end;
  end;
End.