Помогите с программой

Помогите с программой
Гость
Ответ(ы) на вопрос:
Гость
const  eps = 2e-2;  h = 5e-2;  a = 4;  b = 5; function f(x:real):real; var s : real; begin  s := sqrt(x);  f := (x+1-s)*exp(s) - (x+1+s)*exp(-s) end; function g(x:real):real; var  r,d: real;  s,t: real;  k: integer; begin  r := f(x);  t := sqrt(x) * 8;  s := 0;  k := 0;  repeat    k := k + 1;    t := t * x / (2*k) / (2*k + 1);    s := s + t * sqr(k);    d := abs(r - s);  until d <= eps;  g := s end; var  x,m,n,d:real; begin  writeln('    x    g(x)    f(x)    d');  x := a;  while x <= b do    begin    m := f(x);    n := g(x);    d := abs(m - n);    writeln(x:5:2, n:8:2, m:8:2, d:8:2);    x := x + h    end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы