Задача с рядами

[AlieN1310]

Помогите пожалуйста завтро сдавать а мучаюсь с этой задачей уже 2 дня(((

Функция Y от X задана 2-мя способами формулой ее размножением бесконечного ряда S. Разработать программу вычисления точного Y приближенного к T. Значение функций Y от X при изменение ее аргумента X от А до В шагом дельта Х. Приблеженное значение вычеслить путем суммирования членов ряда, до достижения требуемой точности. Предоставить завершение процесса суммирования членов ряда по заданному max номеру членов ряда n для предотвращения зацикливания итерационного числа, результат расчета вывести ввиде таблицы:
1) Аргумент
2)Точное значение
3)Преближенное значение
4)Количество слогаемых
5)Ошибка

Вот условие: S=-cos(x)+...+((-1)в степени n) * cos(n*x)/(n в квадрате) +...
y=-1/4*( (x в квадрате) - (Pi в квадрате)/3)
xe[0,5;1]; дельта х=0,01; e которая в константе = 0,05.

Вот что у меня получилось но что-то не правельно(((

Program pr4;
uses crt;
const e=0.05;
var S,x,y,p,c:real;
n:integer;
function k(n:integer;s,x:real):real;
var k:real;
begin
if (n div 2)=0 then
p:=cos(n*x)/exp(2*ln(n)) else
p:=-(cos(n*x)/exp(2*lnn)));
s:=s+p;
end;

begin
clrscr;
x:=0.5;
c:=0.1;
while x<=1.1 do begin
y:=-0.25*((sqr(x)-(sqr(Pi)/3)));
S:=-cos(x);
Repeat
n:=n+1;
k(n,s,x);
until ((abs(y-S))<=e) or (n>=1);
write (' n=', n);
write (' k=', k(n,x,s)3);
write (' x=' , x:6:3);
write (' y=' ,y:6:3);
write (' S=', S:6:3);
write (' y-S=' ,(abs(y-S)):6:3);
x:=x+0.1;
writeln;
end;
readln;
end.

[Alex21]

Если это оригинальный код, то в нем 2 ошибки:

Program pr4;
uses crt;
const
   e=0.05;
var
   S,x,y,p,c:real;
   n:integer;
function k(n:integer;s,x:real):real;
var
   k:real;
begin
  if (n div 2)=0 then
   p:=cos(n*x)/exp(2*ln(n))
    else
      p:=-(cos(n*x)/exp(2*ln(n));   {пропушена скобка перед n}
   s:=s+p;
end;
begin
   x:=0.5;
   c:=0.1;
 while x<=1.1 do
   begin
     y:=-0.25*((sqr(x)-(sqr(Pi)/3)));
     S:=-cos(x);
       Repeat
        n:=n+1;
        k(n,s,x);
       until ((abs(y-S))<=e) or (n>=1);
     write (' n=', n);
     write (' k=', k(n,x,s):3);   {пропушено : перед 3}
     write (' x=' , x:6:3);
     write (' y=' ,y:6:3);
     write (' S=', S:6:3);
     write (' y-S=' ,(abs(y-S)):6:3);
     x:=x+0.1;
     writeln;
   end;
readln;
end.

[Трофимов Александр]

Изначально n=0 (при инициализации) соответственно цикл
Repeat
n:=n+1;
k(n,s,x);
until ((abs(y-S))<=e) or (n>=1);
выполняется один раз

[Трофимов Александр]

Не совсем понятно задание xe-это х в диапазоне или умноженный на е,
что за: e которая в константе = 0,05 и для чего она,
S -надо подобрать с точностью е?

[AlieN1310]

Трофимов Александ, спасибо что решили помочь.
Я до сих пор ломаю голову над задачей.
Правельно это оригинальный код и е это точность.

[Tayfun]

Во первых члены ряда находяться на отрезке [0.5;1] значит цикл нужно открывать на этом отрезке с шагом 0.01, но с другой стороны дано еще приближеное значение находящееся через, отношение суммы эллементов на их количество, где их количество это мах n(индекс эллемента)
НУ примерный алгоритм исходя из моей логики можно представить так:
x:=0.5;
repeat
t:=t+1;
z:=0.5;
s:=0;
while z<=x do begin
if t mod 2=0 then s:=s+cos(x*t)/sqr(t) else s:=s-cos(x*t)/sqr(t)
z:=z+0.01;
end;
y=-1/4*( (sqr(x)) - (sqr(Pi))/3)
writeln('ARGUMENT=',x);
writeln('TOCH ZNACHENIYE=',y);
if s>e then writeln('PRIB ZNACHENIYE=',s-e) else writeln('PRIB ZNACHENIYE=',0);
writeln('KOLICHESTVO ELLEMENTOV=',t);
writeln('OSHIBKA=',e-s);
x:=x+0.01;
until x>1;
Остаеться граматно оформить и надеяться, что я правильно понял задачу!!!
П.С:На компе непроверял, но должно работать.