Табулирование функции и ее разложения в сумму ряда

[**star**]

Составить программу табулирования двух функций S и Y в заданном диапазоне изменения аргумента x. Здесь n - число слагаемых суммы S.
Результат табулирования вывести в форме следующей таблицы:
------------------------------------------------------------------
! X ! y = f(x) ! S !
------------------------------------------------------------------


Задание находится в прикрепленном файле

[ОДИНОЧЕСТВО В СЕТИ]

uses crt;
var
   n,i:Integer;
   y,s:Double;
   x:double;

function sum (var x:double):Double;
var i:Integer;
     s:Double;
     ch:Double;
begin
   s:=0;
   for i:=1 to 35 do begin
      ch:=Exp(Ln(x)*i)*cos(i*3.14/3)/i;
      s:=s+ch;
  end;
  result:=s;
end;

function f(var x:double):Double;
begin
    result:=-0.5*ln(1-2*x*cos(3.14/3)+sqr(x));
end;

begin
   Writeln('':4,'x','':5,'f','':5,'s','':5);
   for i:=1 to 8 do
     begin
        x:=i*0.1;
        y:=f(x);
        s:=sum(x);
        write (x:6:1,y:6:3,s:6:3);
        Writeln;
     end;
   Readln;
end.

[**star**]

спасибо)

[as.ut]

Всем привет , помогите пожалуйста с практикой =)
Составить программу табулирования функции y=|x-2|+|x+1| на отрезке [-4;4] с шагом 0.5

[Vanta11a]

Чукча не читатель, чукча писатель?

Выше есть замечательный код. Если влом разбираться самому - значит придется платить денежку кому-то еще.

[Hacker19_90]

ЩА придёт МОДЕР и ТЕМУ ТО закроет!!!