Рекурентное соотношение. Паскаль.

[Антон Лысенко]

s=n/n!x, у меня получилось что a(n+1)=a(n)*1/n.
условие выхода из цикла |s(n-1)|-|s(n)|<=E
Я написал но у меня цикл выполняется только два раза и один и тот же ответ. Посмотрите в чем ошибка. minus - для ого что бы слагаемые при непарном n были отрицательными( ну типа a-b+c-d+e.....)
Вот код

program Lab_3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const minus=-1;
var sn1,sn2,s,an,eps:real;
    n:word;
 begin
 writeln('vvedite eps');
 readln(eps);
 n:=1;
 s:=0;
 an:=n;
  repeat
   S:=S+an;
   sn1:=s;
   n:=n+1;
   an:=minus*an/n;
   sn2:=s+an;
  until(abs(sn2)-abs(s)<=eps);
    writeln('S=',s:-8:5,' n=',n);
    readln;readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Антон Лысенко]

почему у меня всегда такие темы, что никто не может решить?

[veniside]

Может потому, что понять же невозможно, что вам нужно.

> s=n/n!x

Это типа нужно догадаться, что нужно вычислять сумму последовательности, где n-тый член вычисляется по формуле S(n) = n / n!, так? И что за х там прилепился?

> a(n+1)=a(n)*1/n.

х уже куда-то загадочно пропал.

> но у меня цикл выполняется только два раза

Так это же зависит от того, какое значение для Eps вы вводите. Т.е. мы должны догадаться, что вы вводите число меньше 0.5?

> слагаемые при непарном n были отрицательными

Здрасте, а это откуда взялось? Это условие задачи? Или вам так захотелось?

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

Вам лень было по-человечески выписать условия задачи? Ну а нам лень вам помогать.

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

program
  Lab_3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s, sprev, E: double;
  n: word;
  m: integer;
begin
  write('E=');
  readln(E);
  //
  n := 1;
  s := 0;
  m := 1;
  repeat
    //
    sprev := s;
    //
    s := s + 1 / n * m;
    m := -m;
    //
    inc(n);
    //
  until (abs(abs(sprev) - abs(s)) <= E);
  //
  writeln('S=',s:-8:5,' n=',n);
  readln;
end.

Для eps=0.05 он крутится 22 раза.

E=0.05
S=0.71639 n=22

Понятия не имею, соответсвует ли это вашему реальному заданию хоть немного.

[Антон Лысенко]

Да про сумму я забыл написать. Но я думал что это как то общепринято, что S - сумма, P - произведении.А еще пример в скобка

( ну типа a-b+c-d+e.....)

слагаемые

я думаю по этом видно что сумма.
В заголовке написано рекуррентное соотношение. Ну и написал начальное задание

s=n/n!x

a(n+1)=a(n)*1/n

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

[Антон Лысенко]

ещё я написал вот такое условие выхода из цикла

|s(n-1)|-|s(n)|<=E

ну а вы сделали всё по модулю. Уберите модуль и посмотрите на результат.

[Антон Лысенко]

вот я продвигаюсь с этим заданием. затаскал уже этот минус в рекуррентное соотношение. Теперь ещё и "х" мне понадобился. Но программа не в рабочем состоянии. сумма получается равна нулю, а n=2. Ну это видимо проблема с условием выхода из цикла. Пересчитываю на листочке, вроди должно работать, ввожу данные в программу она выключается. Я не могу найти проблему. Может вы взгляните со свежей головой, и укажите мне путь истинный)

program Lab_3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var sk,s,a,eps,x:real;
    n:word;
 begin
 writeln('Input eps');
 readln(eps);
 writeln('Input x');
 readln(x);
if x=0 then
 writeln('you entered an incorrect value x')
else
 begin
 s:=0;
 n:=1;
 a:=1/x;
  repeat
   S:=S+a;
   n:=n+1;
   a:=(-1/(n-1))*a;
   sk:=s+a;
   until(abs(sk)-abs(s)<=eps);
   //until(abs(abs(sk)-abs(s))<=eps);
    writeln('S=',sk:-8:5,' n=',n);
 end;
    readln;
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.