|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.06.2010, 14:44 | #1 (permalink) |
Новичок
Регистрация: 12.06.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Найти сумму знакопеременного ряда
помогите с программой... в delphi |
12.06.2010, 14:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение проблемы можно поискать по этим ссылкам Ряды: найти сумму, исследовать на сходимость Сумма числового ряда Сумма числового ряда. Найдите ошибку Вычислить сумму Собрать компьютер на сумму 20 - 25 т. руб. Произведение ряда |
13.06.2010, 10:44 | #2 (permalink) |
Новичок
Регистрация: 12.06.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ой я и не заметила что забыла написать сам ряд....вот- Y = 1+ X2/2-X4/3!+X6/4!-...
цифры 2, 4 и 6 возле X - это x в квадрате, в четвёртой и в шестой степенях... |
13.06.2010, 20:33 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
К сожалению, на Delphi я не пишу, поэтому выдать полное решение не могу. Что касается самогО алгоритма, то у нас проходило множество подобных задач, но на Паскале. Их можно взять за основу, ну и добавить уже дельфийские окошки, кнопки и т.п.
|
13.06.2010, 20:41 | #4 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
А у меня обратная проблема - не помню математического решения такого рода задач (да по-хорошему сказать, вообще слаб в математике)..
|
13.06.2010, 20:46 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
14.06.2010, 10:39 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вот, как обещал:
Код:
VAR x,e,Y,a:Real; n:WORD; BEGIN Write('Enter x (-1<x<1) '); ReadLn(x); Write('Enter e (e>0; e<Abs(x)) '); ReadLn(e); a:=SQR(x)/2; Y:=1+a; n:=3; Repeat a:=-a*SQR(x)/n; Y:=Y+a; INC(n); Until ABS(a)<e; WriteLn('Y= ',Y); ReadLn; END. |
14.06.2010, 12:27 | #8 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
И я выполню свое обещание - перегнал задачу под делфи. Имеется небольшая защита от ввода букв, спец.символов и нулевых значений (процедура Edit1KeyPress). Проверяйте, говорите результат
Последний раз редактировалось MrSTEP; 14.06.2010 в 12:30 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|