Показать сообщение отдельно
Старый 26.04.2013, 14:53   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от yuma Посмотреть сообщение
паскаль абс
Ну тогда-то что... У меня, правда, 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 вне форума   Ответить с цитированием
Ads

Яндекс

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