Информатика, вопрос задал yessssssss , 9 лет назад

ПОМОГИТЕ!!!!!
Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel

Ответы на вопрос

Ответил 65536
0
Sub Main()
Dim A(1 To 4,1 To 5) As Integer, B(1 To 4,1 To 5) As Integer, C(1 To 4,1 To 5) As Integer, i as Integer, j as Integer

'Здесь устанавливаются элементы матрицы A

For i=1 to 4
For j=1 to 5
    If A(i,j)>0 Then
        B(i,j)=A(i,j)
        C(i,j)=0 'Хотя это необязательно, все элементы изначально нулевые
    Else
        B(i,j)=0
        C(i,j)=A(i,j)
    End If
Next j
Next i

'Вывести матрицы B и C

End Sub




Ответил 65536
0
По-моему, здесь документ уже никак не приложить, время вышло
Ответил 65536
0
Хотя можно так: перейди по ссылке и скачай файл. Только учти, что вывод матриц я не делал, т.к. слабо представляю как это надо делать в VBA
Ответил 65536
0
https://www.dropbox.com/s/e17x6y0ircs4y4q/%D0%9C%D0%B0%D1%82%D1%80%D0%B8%D1%86%D1%8B.xls?dl=0
Ответил 65536
0
Блин, макрос не прикладывается никак... Все же посмотри, вдруг он сохранился, просто у меня не открывается
Ответил yessssssss
0
ничего нет
Новые вопросы