|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.11.2009, 19:46 | #21 (permalink) |
Member
Регистрация: 02.11.2009
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Последний раз редактировалось ДенисКО; 08.11.2009 в 19:51 |
08.11.2009, 22:18 | #22 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
VAR N:LongInt; Epsilon:REAL; i:INTEGER; FUNCTION X2np(X:Extended; n:LongInt):Extended; Var i:LongInt; Y:Extended; BEGIN IF n=0 THEN X2np:=1 ELSE IF n=1 THEN X2np:=X ELSE BEGIN Y:=X; FOR i:=2 TO n DO Y:=Y*X; X2np:=Y; END; END; BEGIN Epsilon:=1; N:=1; FOR i:=1 TO 4 DO BEGIN Epsilon:=Epsilon/10; REPEAT INC(N); UNTIL ABS(ABS(X2np(-0.999,N-1))-ABS(X2np(-0.999,N)))<Epsilon; Writeln('Epsilon= ',Epsilon:10:8); Writeln('N= ',N); WriteLn('Value= ',ABS(X2np(-0.999,N))); WriteLn; END; Readln; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|