Задача на итерационный цикл

[Ruslan_M]

Нужно найти сумму бесконечного ряда с точностью до 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

Что не так?

1.jpg (22.66 Кб) Просмотров: 4625

[Хакер] :: В следующий раз оформляй код тегом [code]!

[Хакер]

Вообще-то всё так, за исключением отвратительнейшего невыносимого (но по крайней мере работающего) кода.
К сведению: Ода лени.

[Ruslan_M]

Я не ленивый. У меня профессия инженер, а не программист, все что нам в университете дают, это задания. Говорят разберетесь сами. В VBA работаю первый раз, поэтому и коды такие глупые. Изучаю все сам.

[Хакер]

У меня профессия инженер, а не программист,

Программист — это частный случай инженера.
Здесь нужно думать с инженерным подходом.

У тебя задача решается в лоб и без задних мыслей.

И, если всё-таки подумать, решается неправильно, потому что при вводе единицы она даёт ответ 0.

[Qwertiy]

И, если всё-таки подумать, решается неправильно, потому что при вводе единицы она даёт ответ 0.

Потому что 1/2<1. Этот алгоритм приводится во всех методичках с заданиями, которые я видел. Это скорее их составителям надо по башке надавать за такое отношение к математике. Ну неужели нельзя придумать нормальное задание на цикл while?

Что не так?

А что собственно не так? Выглядит абсолютно стандартно.

К сведению: Ода лени.

Неужели 2^n никак не оптимизируется?
Хотя, член действительно можно пересчитывать из предыдущего. Вполне возможно, что в примере так и сделано.

UPDATE: N надо делать целым.

[Хакер]

Потому что 1/2<1

Я знаю, почему. Считает-то оно неправильно.

[Qwertiy]

Считает-то оно неправильно.

Оно так и должно считать по задумке составителей.
К тому же, иначе ты вообще не сможешь посчитать в задачах, где ряд расходится, а таких там полно.

[Хакер]

Оно так и должно считать по задумке составителей.

Как? При введённой точности «1» выдавая ноль, при том, что реально сумма этого бесконечно ряда = 3?

[Qwertiy]

Как? При введённой точности «1» выдавая ноль, при том, что реально сумма этого бесконечно ряда = 3?

Это надо говорить составителям методичек с заданиями:

[Shurrik]

Не понимаю, о чем спор? Скопировал код в VBA. Запустил. Все работает! Подумал, что неправильно считает. Проверил. Все правильно! Автор вопроса, что тебе не устраивает?

[Хакер]

Не понимаю, о чем спор? Скопировал код в VBA. Запустил. Все работает! Подумал, что неправильно считает. Проверил. Все правильно! Автор вопроса, что тебе не устраивает?

Неправильно оно считает.
Правильный, абсолютно точный ответ = 3. При введённой точности «1», должно выдаваться число от 2 до 3, а выводится 0.

[Qwertiy]

Правильный, абсолютно точный ответ = 3. При введённой точности «1», должно выдаваться число от 2 до 3, а выводится 0.

Ну, во-первых, от 2 до 4
А во-вторых, я уже сказал, что оно так и должно считать по задумке составителей задания.

Автор вопроса, что тебе не устраивает?

Вот мне тоже интересно. Что не устраивает Хакера, понятно. А вот почему вообще тут вопрос возник - нет...

[Хакер]

А во-вторых, я уже сказал, что оно так и должно считать по задумке составителей задания.

А я написал, но почему-то не отправил сообщение, что у составителей совершенно другая задача с совершенно другой последовательностью (убывающей не всём протяжении, в то время как наша последовательность сначала возрастает, потом убывает).

[Qwertiy]

С точки зрения матанализа это всё равно не верно. Например, sum {i in 1 to INF} of (1/i) = INF, но этот ряд вполне подходит под приведённые рассуждения.