Необходимо очень безотлагательно решить задание по информатике, программирование в VBA(visual basic)

Sub ex7()
    m = CInt(InputBox("m="))
    n = CInt(InputBox("n="))
    y = 0
    For k = 1 To 25
        y = y + k ^ 2 / m + k ^ 3 / 2
    Next k
    z = y * (y - 4) + 0.02 * n
    MsgBox "z=" + CStr(z)
End Sub

Лариса Курзинер 2019-04-12 10:41:19

Sub Zadanie() m = CInt(InputBox("m=")) n = CInt(InputBox("n=")) y = 0.0 For k = 1 To 25 y = y + k ^ 2 + m * k ^ 3 / 2 Next z = y * (y - 4) + 0.02 * n MsgBox "z=" zEnd Sub

Едниченко Анна 2019-04-12 10:46:49

занимательно. срок вопроса еще не закончился, но 2-ой ответ добавить нельзя. почему?

Анжелика Реховская 2019-04-12 10:56:26

Да, когда списывал, упустил m перед суммой

Голоднов Геннадий 2019-04-12 11:01:14

Потому что время вышло на ответ. Есть таймаут максимальный меж ответами. По другому, если 2-ой не дадут, не получится наилучший отмечать

Лидия 2019-04-12 11:09:46

ну когда отметили лучший тогда бы и покрывали, а заблаговременно то зачем?

Полина Корнилина 2019-04-12 11:14:36

Необходимо вставить y:-m*y перед вычислением z

Mussuri Nadezhda 2019-04-12 11:19:21

Нельзя ответить лучший, пока нет второго

Jemilija Kushpeleva 2019-04-12 11:24:11

Или, пока не совершенно точно установлено, что второго не будет.

Варвара Костлан 2019-04-12 11:32:05

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

Максимка Яксанов 2019-04-12 11:33:39

вообще на этом проекте как всегда логика хромает

О проекте

Необходимо очень безотлагательно решить задание по информатике, программирование в VBA(visual basic)

Добро пожаловать!