Найти сумму бесконечного ряда в Delphi

[sandersonland]

Слабо понимаю что от меня требуется.
Использовать Goto зарещено

[type_Oleg]

Сообщение от sandersonland

.. Слабо понимаю что от меня требуется.
Использовать Goto зарещено

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

PS Хотя строго говоря, это не гарантия того, что погрешность вычисления ( остаточный член) будет меньше эпсилон, но чисто методически этого достаточно.

И то, что Go to запрещено, это само собой. Это считается дурным тоном.

[sandersonland]

Сообщение от type_Oleg

...пока очередной член не станет меньше этого самого эпсилон.

А эпсилон как я понимаю вводится с клавиатуры?
Не могли бы вы написать тело программы, если вам не сложно.

[Stilet]

Слабо понимаю что от меня требуется.

От тебя требуют примерно такое:http://www.programmersforum.ru/showp...1&postcount=35
Но только в числителе и знаменателе твоя формула.

[sandersonland]

Сообщение от Stilet

От тебя требуют примерно такое:http://www.programmersforum.ru/showp...1&postcount=35
Но только в числителе и знаменателе твоя формула.

Спасибо.
Я составил программу, но сумма выходит нулевая, не поможете разобраться?

Program ProjectHome_3;
{$APPTYPE CONSOLE}

var S,A,e,x,z:real; n:integer;
Begin
writeln('Vvedite Znacheniya');
write('e='); readln(e);
writeln('VVNIMANIYE! 0>=x<=2');
write('x='); readln(x);
S:=0;
n:=1;
  while abs(A)>=e do
    Begin
      n:= n +1;
      if (n mod 2 =0) then z:=1 else z:=-1;
      A:=z*(exp(n*ln(x-1))*sin(exp(n*ln(x-1))))/exp(2*ln(n));
      S:=S+A;
    End;
Write('S=',S:10:3);
End.

[type_Oleg]

Там непонятно, у синуса - что в степени n? Сам синус или его аргумент. Логичнее - что его аргуемнт, иначе все в кучу бы в степень n возвели.

Если уж в Дельфы, то там не надо городить со всякими логприфами-экспонентами, там есть куча всяких функций в Math.
И лучше repeat а не while. Ведь в самом начале - чему у вас равно A?

{$APPTYPE CONSOLE}

uses  Math;
var S,A,e,x,z,t:real;
            n:integer;
begin
  writeln('Vvedite Znacheniya');
  write('e='); readln(e);
  writeln('VVNIMANIYE! 0>=x<=2');
  write('x='); readln(x);
  S:=0;
  n:=0;
  repeat
    Inc(n);                    // то же, что и n:=n+1, только изящнее
    t:=IntPower(x-1,n);   // одна из волшебных функций из Math VCL Delphi
    A:=t*Sin(t)/(n*n);
    S:=S+A;
  until Abs(A)<e;
  Write('S=',S:10:3);
  ReadLn;                   // чтобы не сразу окошко закрывалось
end.

PS Это кстати не лучший вариант - каждый раз тупо возводить в степень. Лучше - вычислять очередной член через предыдущий.

[sandersonland]

Сообщение от type_Oleg

Там непонятно, у синуса - что в степени n? Сам синус или его аргумент. Логичнее - что его аргуемнт, иначе все в кучу бы в степень n возвели.

Если уж в Дельфы, то там не надо городить со всякими логприфами-экспонентами, там есть куча всяких функций в Math.
И лучше repeat а не while. Ведь в самом начале - чему у вас равно A?

{$APPTYPE CONSOLE}

uses  Math;
var S,A,e,x,z,t:real;
            n:integer;
begin
  writeln('Vvedite Znacheniya');
  write('e='); readln(e);
  writeln('VVNIMANIYE! 0>=x<=2');
  write('x='); readln(x);
  S:=0;
  n:=0;
  repeat
    Inc(n);                    // то же, что и n:=n+1, только изящнее
    t:=IntPower(x-1,n);   // одна из волшебных функций из Math VCL Delphi
    A:=t*Sin(t)/(n*n);
    S:=S+A;
  until Abs(A)<e;
  Write('S=',S:10:3);
  ReadLn;                   // чтобы не сразу окошко закрывалось
end.

PS Это кстати не лучший вариант - каждый раз тупо возводить в степень. Лучше - вычислять очередной член через предыдущий.

Спасибо! Будем учиться, учиться, и ещё раз учиться .