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

borntank · 26.04.2013, 22:11

Помогите,совсем не понимаю задание(

Vladimir_S · 26.04.2013, 23:16

Цитата:

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

Помогите,совсем не понимаю задание(

А чего тут понимать, если только что было аналогичное задание, причем на тех же розовых огрызках: Для заданного ε>0 и заданного x вычислить сумму ряда с точностью ε ? А вот интересно, вы всем курсом или только группой решили на мне поездить? Ну ладно, это еще выложу, а дальше - хватит! Беритесь-ка, господа оболтусы, за ум, пока не поздно. Причем желательно за собственный.

Код:

VAR
 N:Integer;
 S,x,a,Eps:Real;

BEGIN
 Repeat
  Write('x= ');
  ReadLn(x);
  If (x<=0) or (x>2) then writeln('Incorrect value!!!');
 Until (x>0) and (x<=2);
 Write('Eps= ');
 ReadLn(Eps);
 a:=-1;
 S:=0;
 N:=0;
 Repeat
  Inc(N);
  a:=-a*(x-1);
  S:=S+a/N;
 Until (Abs(a/N)<Eps) or (N=1000);
 WriteLn('Result: ',S:0:12,'  N= ',N,'  Accurate value: ',Ln(x):0:12);
 Readln
END.

26.04.2013, 22:11	#1 (permalink)
borntank Member Регистрация: 26.04.2013 Сообщений: 15 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Для заданного ε>0 и заданного Х вычислить сумму ряда Помогите,совсем не понимаю задание(

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070