I need your help! Помогите пожалуйста!

[XXX_Black_XXX]

Нужно выполнить программу на паскале, объединив программы для задания 1 и задания 2 в одну. Подскажите, как это сделать? И как написать программу для второго задания?

Первое задание: Найти корень уравнения, расположенный на найденном отрезке, с абсолютной погрешностью eps. Использовать метод Ньютона. Уравнение: 0,25x3 + x - 1,2502 = 0.

Второе задание: Составить программу для вычисления суммы ряда с заданной точностью eps и значения функции на заданном диапазоне изменения аргумента (кол-во расчётных точек - не менее 10); сумма S = cos x + (cos(2x))/2 + ... _ cos(nx)/n; диапазон изменения аргумента: Пи/5<=x<=9 Пи/5; функция y: y = -ln |2sin x/2|.

Программу для первого задания я сделал:

Program RASSCHET;
  uses CRT;
  var eps, x, a, b:real;
  function f(x:real):real;
begin
  f := 0.25*exp(ln(x)*3)+x-1.2502 ;
end;
  function fp(x:real):real;
begin
  fp:=3-4/x ;
end;
begin
  clrscr;
  write('Vvedite pogreshnost eps = ');
  ReadLn(eps);
  If (eps>0) and (eps<1) then
    begin
      a := 0.1;
        repeat
        x:=a-f(a)/fp(a);
        b:=a;
        a:=x;
        WriteLn('x = ',b:5:7);
      until abs(x-b)<=eps;
        Write('Koren uravnenija 3*x - 4*ln(x) - 5 = 0  x = ',x:5:7);
    end
  else
    WriteLn('Nekorrektnie dannie');
  ReadLn;
End.

P.S.: на всякий случай выкладываю картинки с заданиями.

[ViktorR]

При записи кода сделайте так: выделить код, нажать кнопку с символом '#', которая есть на панели. Так проще читать код.

Так понимаю, что найден пример для вашего первого задания. Вы поленились поправить так, что-бы он соответствовал вашему заданию.
Т.е. функцию f(x) вы записали, а вот для чего fp(x) - не поняли.
Предлагаю, поскольку степень x целое число, использовать другой способ вычисления функции: f := (0.25 * sqr(x) +1) * x - 1.2502;
В этом случае x может быть и отрицательным, в отличии от вашей записи.
Функция fp(x) - первая производная вашей функции и там надо написать: fp := 0.75*sqr(x) + 1;

Для второго задания:
1. Записываете функцию для поиска суммы ряда, например, так:

function fcos(x, eps : real) : real;
var n : integer;
   s, an : real;
begin
   s := 0;
   n := 1;
   while abs(an) > eps do
   begin
      an := cos(n*x)/n;
      s := s + an;
      n := n +1;
      if n > 100 then break; {число циклов должно быть достаточным}
                             {для вычисления значения, но не бесконечным}
   end;
   fcos := s;
end;

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

xbeg := pi/5;
xend := 9*pi/5;
dx := (xend - xbeg)/n; {n - число заданных шагов, >= 10}
xn := xbeg;
while xn <= xend do
begin
   {вычисление первой функции - суммы ряда}
   {вычисление второй функции}
   {вывод значений на эран или в файл}
   xn := xn + dx;
end;

Как-то так, ...

[XXX_Black_XXX]

Спасибо тебе большое! Я спасён)))