| Вопрос: Народ хелп!!! | Добавлено: 26.10.07 18:42 |
Автор вопроса:  Coolik | ICQ: 476278006 |
|
Народ,короче задали индивидуальное и надо решить такие примеры в ВБА!
Пример:1. (1 - Tan(x)) ^ Cot(x) + Cos(x - y) Надо чтобы была форма и я нажал кнопку и было мне счастье!!! 2.Дано натуральное N и первый член бесконечного ряда: Y1=1. Вычислить сумму членов бесконечного ряда, образованного по следующему реккррентному соотношению: Yi=2*Yi-1 (то есть S=1+2+4+8+16+...). Вычисление суммы продолжать до тех пор, пока соблюдается условие |Yi-Yi-1|<N. Но вместо всего этого мона просто сделать презентацию по ВБА с примером!!! Народ,пожалуйста помогите мне задачами или презентацией!!! Заранее благодарен! |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 26.10.07 20:59 |
| Сколько платишь? | ||
|
Номер ответа: 2 Автор ответа: Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #2 | Добавлено: 26.10.07 22:48 |
|
Товарищи студенты-учащиеся-ученики-...
форум существует для помощи выхода из тупика, а не для решения Ваших учебных задач. Для того чтобы попасть в тупик надо немного поработать ногами (или мозгами 
|
||
|
Номер ответа: 3 Автор ответа: NytrogenВопросов: 18 Ответов: 186 |
Профиль | | #3 | Добавлено: 28.10.07 20:22 |
|
форум существует для помощи выхода из тупика
А чем не тупик? Человек может попасть в тупик, если никто не хочет ему помогать... |
||
|
Номер ответа: 4 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #4 | Добавлено: 29.10.07 01:15 |
| с удовольствием возьмусь за решение вашей проблемы всего лишь за $30 в час. | ||
|
Номер ответа: 5 Автор ответа: Кверт Вопросов: 2 Ответов: 14 |
Профиль | | #5 | Добавлено: 29.10.07 16:36 |
|
Вот пример вычисления суммы ряда 1/1+1/2+1/3+...+1/i+... с заданной точностью e:
Sub СуммаРяда()
Dim i As Integer, e As Double, k As Double, s As Double e = 0.001 ' Точность вычислений s = 0 ' Начальное значение суммы i = 1 ' Номер члена ряда = 1 k = 1 / i ' Значение 1-го члена ряда Do While k >= e ' Начало цикла – проверка точности s = s + k ' Подсуммирование очередного члена i = i + 1 ' Перейти к следующему члену ряда k = 1 / i ' Вычислить i-ый член Loop ' Конец цикла MsgBox "Сумма членов ряда равна " & s & vbNewLine & _ "Количество подсуммированных членов " & i - 1 & vbNewLine & _ i & "-ый член равен " & k & vbNewLine & _ "Это меньше " & e & ", поэтому он не подсуммирован." End Sub - немного поправишь - и будет тебе щастье! |
||
|
Номер ответа: 6 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #6 | Добавлено: 29.10.07 19:12 |
|
Msgbox ScriptControl.Eval( "
 1 - Tan(x)) ^ Cot(x) + Cos(x - y)" ):D |
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 30.10.07 03:26 |
|
суммы ряда 1/1+1/2+1/3+...+1/i+...
Для достаточно большого N эта сумма ряда бесконечно мало отличается от C + ln N, где C — постоянная Эйлера-Маскерони. |
||
Страница: 1 |