Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > .NET для новичков > Удалить столбцы двумерного массива

Автор: Manf1 15.2.2012, 20:07

Сформировать двумерный массив t(4,4) по правилу: t(i, j) = 5 * (i + j) - j
Удалить из него столбцы, содержащие элементы, меньшие 10.

n=4; m=4

Код


Sub FormMac(ByRef t(,) As Single, ByRef f(,) As Single)
        Dim i, j, m, n As Integer
        n = t.GetLength(0) - 1
        m = t.GetLength(1) - 1
        'Формирую условие по правилу и вывод элементов меньше 10'
        For i = 0 To n
            For j = 0 To m
                t(i, j) = 5 * (i + j) - j
                If t(i, j) > 10 Then
                    f(i, j) = t(i, j)
                End If
            Next
        Next
        'Удаление столбцов равные 0'
        For i = 1 To n
            For j = 1 To m - 1
                f(i, j) = f(i, j + 1)
                m = m - 1
            Next
        Next
    End Sub

Но не удаляет столбцы... подскажите пожалуйста где ошибка

Автор: diadiavova 16.2.2012, 11:08

Столбцы из массива удалить нельзя. Можно создать новый массив с меньшим количеством столбцов и скопировать в него данные.