Паскаль. Что не так?

[Кириллович]

Задача "Дано действительное число x и натуральное число n.
Вычислить

x-x^3/3!+x^5/5!+〖(-1)〗^(n+1) x^(2n-1))/(2n-1)!

При нахождении суммы использовать отношение последующего слагаемого к предыдущему."
Вот что я напридумал:

program Zadacha_3;
        label 1;
        var S, x, z: real;
            n: integer;
begin
     writeln ('Введите значение x и количество элементов ряда n');
     read (x, n);
     if (n=1) then
       S:=x;
       goto 1;
     if (n>1) then
       z:=(-1)*sqr(x)*(2*n)*(2*n+1);
       S:=x+1/z;
       goto 1;
     1:writeln ('Сумма ряда ',S);
end.

но для n>1 выдает сумму равную 0

[Sweta]

z:=(-1)*sqr(x)*(2*n)*(2*n+1);

А зачем Вам корень, Вам необходимо возведение в степень - pow/

[Кириллович]

А где здесь корень? Если про

sqr(x)

- так это квадрат. А всё выражение

z:=(-1)*sqr(x)*(2*n)*(2*n+1);

это то самое

отношение последующего слагаемого к предыдущему

[Sweta]

Простите недосмотрела, а х при этом ?

Как Вы получмли вот это

z:=(-1)*sqr(x)*(2*n)*(2*n+1);

[Stilet]

Если я правильно поняв задание то автору нужно что-то типа такого:

  function aga(x,n:integer):Double;
  var i:integer;q,w:double;
  begin
   q:=exp(3*ln(x));        w:=1;
   for i:=1 to n do w:=w*i;
   aga:=q/w;
  end;
var k:integer; sum:double;
begin
 k:=5;while (k<10) do begin
  sum:=aga(2,k)/aga(2,k-2);
  k:=k+2 ;
  writeln(sum:5:6);
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Вам необходимо возведение в степень - pow/

Не помню чтоб в классическом Паскале такая функа была...

[Sweta]

Посмотрмте. Это Ваш алгоритм? Если да, то реализуйте.

[Anatole]

обратите внимание, что каждый последующий член ряда получается из предыдущего умножением на величину -1*x^2/((2n-2)*(2n-1)) где n - номер члена ряда. Поэтому наиболее просто вычислять сумму ряда вот так:

program Zadacha_3;
             var S, x, z: real;
            n,i: integer;
begin
     writeln ('Введите значение x и количество элементов ряда n');
     read (x, n);
        S:=x;
        z:=x;
       i:=2;
        While i<= n do 
        begin
         z:=-z*x*x/(2*i-2)/(2*i-1);
         S:=S+z;
          inc(i);
        end;
     writeln ('Сумма ряда ',S);
end.

[Кириллович]

Спасибо, Анатоль! Просто и работает! Эх-хе!