Модераторы: Partizan, gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Удалить столбцы двумерного массива 
:(
    Опции темы
Manf1
Дата 15.2.2012, 20:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.2.2012

Репутация: нет
Всего: нет



Сформировать двумерный массив 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
  


Но не удаляет столбцы... подскажите пожалуйста где ошибка 
PM MAIL   Вверх
diadiavova
Дата 16.2.2012, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 18
Всего: 142



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


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Прежде чем создать тему, посмотрите сюда:
Partizan
PashaPash

Используйте теги [code=csharp][/code] для подсветки кода. Используйтe чекбокс "транслит" если у Вас нет русских шрифтов.
Что делать если Вам помогли, но отблагодарить помощника плюсом в репутацию Вы не можете(не хватает сообщений)? Пишите сюда, или отправляйте репорт. Поставим :)
Так же не забывайте отмечать свой вопрос решенным, если он таковым является :)


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, mr.DUDA, Partizan, PashaPash.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | .NET для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0496 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.