Ав+вд+де+еф=12 - кратчайший путь
Элементы массива считываются из области ячеек A1:E5. Они могут быть как целочисленными, так и вещественными. Для контрольного решения можно заполнить эти ячейки при помощи макроса InitCells, который выполняет инициализацию случайными числами из интервала [-10;10]
Sub InitCells()
Dim a(1 To 5, 1 To 5)
Randomize Timer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(21 * Rnd - 10)
Next j
Next i
Range("A1:E5") = a
End Sub
Ниже представлен текст программы, вычисляющей значение t по формуле
Sub Main()
a = Range("A1:E5")
s = 0
For i = 1 To 5
p = 1
For j = 1 To 5
p = p * a(i, j)
Next j
s = s + p
Next i
MsgBox "t=" + CStr(s)
End Sub
Во вложении - рабочая книга Excel-2003 с тестовым примером и блок-схемой. Макросы находятся на листе 1 рабочей книги.
Я так понимаю, задача на вывод формулы?
!! Если V - стоимость конфет за килограмм, то
- стоимость за грамм.
Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле:
Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".