В матрице все отрицательные элементы, расположенные ниже побочной диагонали, заменить нулями

@Фома_Аквинский · Регистрация: 09.12.2009

Студворк — интернет-сервис помощи студентам

Помогите пож с задачей - решить двумерным массивом с использованием

Visual Basic

I = 1 ' Индекс
While1 Cells(N_Row, N_Col + I - 1) <> "" ' Пока не пусто
I = I + 1 ' Переходим к следующей ячейке
Wend ' Выходим из цикла, когда встретили «пустую» ячейку
N = I - 1 ' Т.е. заполненных — на 1 меньше

Условия:
В вещественной матрице A все отрицательные элементы, расположенные ниже побочной диагонали заменить нулями.

Прошу о срочной помощи! Сам в этом практически не разбираюсь =( - поэтому и обращаюсь к вам.

@Владимир_Сар · 25.05.2010, 11:45

Может так, я сам редко использую While

Visual Basic

Sub Вайл()
 
Row = 4
Col = 4
 
N_Row = 1
N_Col = 1
 
N_Row = N_Row + 1
    While Cells(N_Row, N_Col) <> ""
    
        N_Col = Col + 2 - N_Row
        
        While Cells(N_Row, N_Col) <> ""
            If Cells(N_Row, N_Col) < 0 Then Cells(N_Row, N_Col) = 0
            N_Col = N_Col + 1
        Wend
        
        N_Row = N_Row + 1
        N_Col = 1
    Wend
    
End Sub

Опции темы

В матрице все отрицательные элементы, расположенные ниже побочной диагонали, заменить нулями

Решение