|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
29.09.2010, 22:19 | #1 (permalink) |
Новичок
Регистрация: 29.09.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста решить задачу по ряду Тейлора
|
29.09.2010, 22:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ранее участники нашего форума создавали похожие темы Помогите, пожалуйста, решить задачу Помогите решить задачу по C++, пожалуйста Помогите, пожалуйста, решить задачу. Паскаль Помогите решить задачу по Паскалю. Срочно, пожалуйста. Помогите пожалуйста срочно решить задачу, подробно |
30.09.2010, 20:51 | #2 (permalink) |
Member
Регистрация: 07.06.2010
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Чего же Вы по примеру уже сами то решить не можете
Код:
CONST Eps=0.0001; VAR Xbeg,Xfin,DX,SUM,X:REAL; N:WORD; Nx,i:INTEGER; PROCEDURE SUMS(Xs:REAL; Var S:REAL; Var Ns:WORD); VAR a:REAL; Begin a:=Xs; S:=Xs; Ns:=1; Repeat Inc(Ns);Inc(Ns); a:=a*Xs*Xs; S:=S+a/Ns; Until Abs(a/Ns)<Eps; S:=2*S; End; BEGIN Write('Xbeg= '); ReadLn(Xbeg); Write('Xfin= '); ReadLn(Xfin); Write('DX= '); ReadLn(DX); WriteLn; WriteLn(' Results of calculation:'); WriteLn(' X SUM N ln((1+x)/(1-x))'); WriteLn; Nx:=ROUND((Xfin-Xbeg)/DX); X:=Xbeg; For i:=0 to Nx do begin X:=Xbeg+DX*i; SUMS(X,SUM,N); WriteLn(X:8:5,' ',SUM:8:5,' ',N:3,' ',ln((1+x)/(1-x)):8:5); end; ReadLn; END. |
13.10.2010, 09:12 | #3 (permalink) |
Новичок
Регистрация: 29.09.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Удалось проверить задачу только вчера. Запускаю программу ввожу xbeg и xfin
Потом просят ввести DX Ввожу такие числовые значения: xbeg - 0 xfin - 1 dx - 0.1 Сворачивается окно и пишет ошибку #200: Divizion by zero а бывает если другие значения взять пишит ошибку #205 floating point overflow что можно предпринять? Программу сегодня надо сдавать в институте Последний раз редактировалось Akardion; 13.10.2010 в 09:17 |
13.10.2010, 09:25 | #4 (permalink) |
Новичок
Регистрация: 29.09.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Забыл добавить что после всего этого, снова запускаю RUN выдает вычисление.
И задача вроде работает и решает.Ссылка удалена Последний раз редактировалось Fenix; 11.06.2013 в 11:38 Причина: Ссылка мертва |
13.10.2010, 09:43 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
-0.9 ≤ x ≤ 0.9 И еще небольшая "косметика": формат вывода изменен с 7:5 на 8:5, иначе отрицательные числа "ломают" колонку. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
13.10.2010, 11:35 | #6 (permalink) |
Новичок
Регистрация: 29.09.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Vladimir_S спасибо что помогаете мне, но скажите мне, что надо ввести в xbeg xfin и dx(имею ввиду какие значения)
чтобы задачу засчитали мне. Просто я не понимаю программирование. |
13.10.2010, 21:42 | #8 (permalink) |
Новичок
Регистрация: 29.09.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
о! Спасибо Большое Владимир
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|