Составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд.

[McFrey]

Составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью е>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше е: abs(ак) <е.
При вычислении очередного члена целесообразно воспользоваться рекурентным выражением:
ак+1=ск ак; к= 0, 1, 3, ...,
где ак - некоторый к-ый член ряда; ак+1 - следующий к+1-ый член ряда; ск - коэффициент, определяемый номером к.
При составлении программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR.
Границы интервала вычислений функций a и b, величина шага изменения аргумента h и точность вычисления функции е задаются при вводе. На печать выводятся номер по порядку, значение аргумента, соответствующие ему, значение функции и номер члена ряда, на котором закончилось вычисление значение функции, в форме таблицы:
№ Х f (x) № чл.р.
1
2
3
...

Значение выражения,которое необходимо вычислить прикреплено в рисунке!

[McFrey]

Вот что получилось у меня, но программа работает не при любых исходных данных (к примеру, разница между нижней и верхней границей интервала может быть всего лишь в десятых долях, но мне кажется что это не верно).

uses
  crt;

var
  a, b, h, e, x, fx, ak: real;
  g, f, i, k: integer;

begin
  writeln('Ведите нижнюю границу интервала');
  read(a);
  write('Введите верхнюю границу интервала');
  read(b);
  while b < a do
  begin
    writeln('Значение верхней границы интервала должно быть больше нижней. Повторите ввод');
    readln(b);
  end;
  writeln('Введите шаг изменения переменной Х');
  read(h);
  while (h < 0) or (h > (b - a)) do
  begin
    writeln('Введено не корректное изменение шага Х, повторите ввод');
    read(h);
  end;
  writeln('Введите точность вычислений');
  read(e);
  while e <= 0 do
  begin
    writeln('Точность вычислений не может быть числом отрицательным, повторите ввод');
    read(e);
  end;
  writeln('---------------------------------------------------------------');
  writeln('I № I    X    I     F(x)     I  №чл.ряда');
  writeln('---------------------------------------------------------------');
  x := a;
  g := 1;
  while x <= b do
  begin
    fx := 0;
    k := 0;
    repeat
      if k = 0 then f := 1 else
      begin
        f := 1;
        for i := 1 to k do
          f := f * i;
      end;
      ak := exp(k * ln(2 * x)) / f;
      fx := fx + ak;
      k := k + 1
    until abs(ak) < e;
    writeln('I ', g, ' I  ', x, '  I  ', fx, '  I ', k, ' I');
    x := x + h;
    g := g + 1;
  end;
  writeln('---------------------------------------------------------------');
  readkey;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[McFrey]

Есть у кого-нибудь идеи?....

[Zer0]

  writeln('---------------------------------------------------------------');
  writeln('I ¹ I       X      I     F(x)     I  №чл.ряда');
  writeln('---------------------------------------------------------------');
  x := a;
  g := 1;
  while x <= b do
  begin
    fx := 0;
    k := 0;
    repeat
      if k = 0 then ak:=1 else
       ak:=ak*2*x/k;
      fx := fx + ak;
      k := k + 1
    until abs(ak) < e;
    writeln('I', g:3, 'I  ', x:11:6, ' I  ', fx:11:6, ' I', k:9, ' I');
    x := x + h;
    g := g + 1;
  end;
  writeln('---------------------------------------------------------------');

Догадаетесь, какой кусок исправить?)

[McFrey]

Исправил вот так....

  writeln('---------------------------------------------------------------');
  writeln('I   №   I   X    I   F(x)   I  №чл.ряда');
  writeln('---------------------------------------------------------------');
  x := a;
  g := 1;
  while x <= b do
  begin
    fx := 1;
    u:=2*x;
    k := 1;
    repeat
      f:=1;
      for i := 1 to k do
          f := f * i;
      ak := u / f;
      fx := fx + ak;
      u:=u*2*x;
      k := k + 1
    until abs(ak) < e;
    writeln('I   ', g, '   I  ', x:2:2, '  I  ', fx:2:2, '   I ', k, ' I');
     writeln('I   ', g, '  I  ', x:2:2, '  I  ', fx:2:2, '   I ', k, ' I');
     writeln('I   ', g, ' I  ', x:2:2, '  I  ', fx:2:2, '   I ', k, ' I');
    x := x + h;
    g := g + 1;
  end;
  writeln('---------------------------------------------------------------');

[McFrey]

теперь все работает(( но вот опять беда, точность вычислений "е"....можно брать только меньше 1.....а если программе предстоит с миллионами работать? то точность вычислений определенно должна быть больше чем 1.....как быть?

[Mad_Cat]

а если программе предстоит с миллионами работать

не предстоит
ты разберись что такое точность для начала

[McFrey]

точность вычисления.....ну почти тоже самое что допустимая погрешность, но а если в целом? то программа правильно составлена?

[Mad_Cat]

if Работает and Считает верно then  программа правильно составлена
else программа неправильно составлена

[McFrey]

Все я во всем разобрался)))....спасибо всем что откликнулись))