26.04.2013, 15:01
|
#5 (permalink)
|
Banned
Регистрация: 26.04.2013
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от Vladimir_S
Ну тогда-то что... У меня, правда, 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х и т.п.
|
во во согласен с вами) я вообще не понял что там в задание написано. спасибо большое за помощь)
|
|
|