Алгоритм вычисления функции y и суммы S - Pascal

[avatar54]

Разработать алгоритм вычисления
функции y и суммы S . Шаг
изменения значений аргумента x на заданном
отрезке h=0,1; количество членов ряда n=35.

Условие на картинке:
Безымянный1.png

[ViktorR]

С вычислением y проблем быть не должно, а вот с суммой ...
Предлагаю посмотреть вложение work.rar тут:
http://www.programmersforum.ru/showt...00599 work.rar

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

[newerow1989]

function yy(x:real):real;
begin
   Result:=(1-x*x/2)*Cos(x)-x/2*Sin(x);
end;

function ss(x:real):real;
const n=35;
var i,j:integer;
    s1:real;
    znak:-1..1;
begin
   i:=0;
   Result:=1;
   znak:=1;
   Repeat
      i:=i+1;
      znak:=-znak;
      s1:=(2*i*i+1)*Power(x,2*i);
      For j:=1 to 2*i do
         s1:=s1/j;
      Result:=Result+znak*s1;
   Until i>=n;
end;

const a=0;
      b=1;
      h=0.1;
var x,y,s:real;
begin
   x:=a-h;
   Repeat
      x:=x+h;
      y:=yy(x);
      s:=ss(x);
      Writeln('y = ',y:8:5,'  S = ',s:8:5);
   Until x>=b;
   Readln;
end.