Технический форум - Итерационные формулы

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Итерационные формулы (http://www.tehnari.ru/f41/t43866/)

Итерационные формулы

Вложение 26989

Помогите составить программу для паскаля,плиииз!

Цитата:

Сообщение от Mel_lissa (Сообщение 434781)

Вложение 26989

Помогите составить программу для паскаля,плиииз!

Запросто:

Код:

VAR

 x,eps,S,A_old,A_new,p:Real;

 n:word;

BEGIN

 Write('x= ');

 ReadLn(x);

 Write('eps= ');

 ReadLn(eps);

 A_new:=1.0/(x+0.1);

 S:=A_new;

 p:=x;

 n:=1;

 Repeat

  A_old:=A_new;

  n:=n+1;

  p:=p*x;

  A_new:=1.0*n/(p+0.1*n);

  S:=S+A_new;

 Until ABS(A_old-A_new)<eps;

 WriteLn('Sum= ',S);

 WriteLn('n= ',n);

 ReadLn;

END.