Форумы-->Форум для внеигровых тем-->
| Автор | задачи на VBA |
|---|
помогите решить задачу, подобную данной
Дана матрица a(n*m). Получить вектор b1, b2,...,bn, где bi равно среднему геометрическому элементов столбцов.
Sub pr2()
Dim i, j, m, n As Integer
Dim a(), b(), s As Single
n = InputBox("n="): m = InputBox("m="): s = 0
ReDim a(n, m): ReDim b(m)
Randomize
Worksheets(1).Select
Cells.Clear
For j = 1 To m
For i = 1 To n
a(i, j) = 10 * Rnd()
Cells(i, j) = a(i, j)
s = s + a(i, j)
Next i
b(j) = s / n
Cells(10, j) = b(j)
s = 0
Next j
End Sub
А нужно решить такую..
Дана матрица a(n*m). Получить вектор b1, b2,...,bn, где bi равно количеству отрицательных элементов в строке. | | люды чпокайтэсь. | | никто не знает? | кэповски...
крути счетчик, если при умножении на элемент знак произведения меняется... | Randomize
a(i, j) = 10 * Rnd()
у меня берёт только положительные числа, как сделать чтоб брал и отрицательные тоже? | для Убийца_матрёшек:
a(i, j) = 20 * Rnd() - 10
ну элементарщина же, блджад | для alex_kocharin:
спасибо, помогло
ну элементарщина же, блджад
ну я не спорю! но я этим никогда не занимался, ды и не собираюсь как то. просто надо сделать) | помогите дописать
Дана матрица A(n*m). Найти номер строк, где все элементы кратны 5 и не кратны3.
Dim i, j, K, n, m As Integer
Dim a() As Single
n = InputBox("n="): m = InputBox("m=")
ReDim a(n, m)
Randomize
Worksheets(1).Select
Cells.Clear
K = 0
For i = 1 To n
For j = 1 To m
хз что дальше
надо условие поставить, а как именно ума не приложу( | | помогить | | help me |
К списку тем
|
