|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2012, 14:05 | #1 |
Новичок
Джуниор
Регистрация: 27.12.2012
Сообщений: 2
|
Задача на итерационный цикл
Это VBA
Нужно найти сумму бесконечного ряда с точностью до E Sub variant4() Dim n As Double, A As Double, E As Double, S As Double E = InputBox("Введите E") n = 1 A = (2 * n - 1) / 2 ^ n Do While A >= E S = S + A n = n + 1 A = (2 * n - 1) / 2 ^ n Loop MsgBox ("S=" & S) End Sub Что не так? Последний раз редактировалось Ruslan_M; 27.12.2012 в 14:14. |
27.12.2012, 14:12 | #2 | |
Старожил
Регистрация: 25.10.2011
Сообщений: 3,178
|
Цитата:
^, насколько помню, в Паскале отнюдь не операция возведения в степень. Та же задача, C#. |
|
27.12.2012, 14:14 | #3 |
Новичок
Джуниор
Регистрация: 27.12.2012
Сообщений: 2
|
Извиняюсь, сразу не уточнил, это VBA
|
27.12.2012, 16:27 | #4 |
Старожил
Регистрация: 25.10.2011
Сообщений: 3,178
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Итерационный цикл Pascal | msh666 | Помощь студентам | 0 | 03.12.2012 13:11 |
Итерационный цикл | creck_hatsone | JavaScript, Ajax | 6 | 03.11.2012 10:37 |
Итерационный цикл | sanchoflat | Общие вопросы C/C++ | 7 | 18.09.2012 21:00 |
Итерационный цикл | Camelot_2012 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 22.12.2011 21:18 |
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) | Mr.User | Помощь студентам | 9 | 23.11.2007 01:34 |