Технический форум - Для заданного ε>0 и заданного x вычислить сумму ряда с точностью ε

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

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

Для заданного ε>0 и заданного x вычислить сумму ряда с точностью ε

помогите пожалуйста не могу сделать(
Вложение 133643

Вложение 133644

Цитата:

Сообщение от yuma (Сообщение 901097)

помогите пожалуйста не могу сделать(

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

Цитата:

Сообщение от Vladimir_S (Сообщение 901107)

:D паскаль абс

Цитата:

Сообщение от yuma (Сообщение 901115)

паскаль абс

Ну тогда-то что... У меня, правда, Free Pascal, но, думаю, не существенно:

Код:

VAR

 N:Integer;

 S,x,a,Eps:Real;



BEGIN

 Write('x= ');

 ReadLn(x);

 Write('Eps= ');

 ReadLn(Eps);

 a:=1;

 S:=a;

 N:=0;

 Repeat

  Inc(N);

  a:=a*2*x/N;

  S:=S+a;

 Until (Abs(a)<Eps) or (N=100);

 WriteLn('Result: ',S:0:(Round(1/Eps)+1),'  N= ',N,'  Accurate value: ',Exp(x*2):0:(Round(1/Eps)+1));

 Readln

END.

И да, у меня к Вам личная просьба: передайте, пожалуйста, составителю методички, что он (она) полный(-ая) безграмотный(-ая) необразованный(-ая) идиот(-ка). Ибо в разложении экспоненты в числителях должны стоять возрастающие степени одного и того же числа, в данном случае - 2х. А никакие не 3х, 4х и т.п.

Цитата:

Сообщение от Vladimir_S (Сообщение 901131)

Ну тогда-то что... У меня, правда, Free Pascal, но, думаю, не существенно:

Код:

VAR

 N:Integer;

 S,x,a,Eps:Real;



BEGIN

 Write('x= ');

 ReadLn(x);

 Write('Eps= ');

 ReadLn(Eps);

 a:=1;

 S:=a;

 N:=0;

 Repeat

  Inc(N);

  a:=a*2*x/N;

  S:=S+a;

 Until (Abs(a)<Eps) or (N=100);

 WriteLn('Result: ',S:0:(Round(1/Eps)+1),'  N= ',N,'  Accurate value: ',Exp(x*2):0:(Round(1/Eps)+1));

 Readln

END.

во во согласен с вами) я вообще не понял что там в задание написано. спасибо большое за помощь)

Цитата:

Сообщение от yuma (Сообщение 901097)

...

Цитата:

Сообщение от eicecall (Сообщение 901133)

...

Так, уже как модератор имею сообщить следующее: вопреки нашим Правилам (п. 3.6), Вы зарегистрировали два аккаунта. По этому случаю оба пользователя с никами yuma и eicecall отправляются в вечный бан, Вам же я предлагаю зарегистрироваться еще раз и уже в единственном числе и впредь держаться в рамках Правил.