Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2015, 15:58   #1
rogge
Пользователь
 
Регистрация: 02.12.2015
Сообщений: 15
По умолчанию Помогите с матрицей

Даны целые положительные числа M, N, число D и набор из M чи-
сел. Сформировать матрицу размера M × N, у которой первый столбец
совпадает с исходным набором чисел, а элементы каждого следующего
столбца равны сумме соответствующего элемента предыдущего столбца
и числа D (в результате каждая строка матрицы будет содержать элементы
арифметической прогрессии

на vba

Последний раз редактировалось rogge; 02.12.2015 в 15:59. Причина: забыл указать
rogge вне форума Ответить с цитированием
Старый 02.12.2015, 16:24   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Sub smth()
    Dim m As Integer, n As Integer, d As Integer
    Dim r As Integer, c As Integer
    n = InputBox("N=?", , 5)
    m = InputBox("M=?", , 7)
    d = InputBox("D=?", , 1)
    For r = 1 To n
     Cells(r, 1) = Int(21 * Rnd)
     For c = 2 To m
      Cells(r, c).Value = Cells(r, c - 1).Value + CInt(d)
     Next
    Next
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 02.12.2015, 16:52   #3
rogge
Пользователь
 
Регистрация: 02.12.2015
Сообщений: 15
По умолчанию

в Вашем коде, не выполняется условие: первый столбец
совпадает с исходным набором чисел, а элементы каждого следующего
столбца равны сумме соответствующего элемента предыдущего столбца
и числа D
rogge вне форума Ответить с цитированием
Старый 02.12.2015, 17:28   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Тогда потрудись вложить xlsx файла с входными данными и результатом который должен получиться.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 02.12.2015, 17:41   #5
rogge
Пользователь
 
Регистрация: 02.12.2015
Сообщений: 15
По умолчанию

Код:
Sub zadacha_muchacha()
Const D = 5     'шаг прогрессии
Const N = 10    'столбцов
Static b()      'массив элементов 1-й строки
b = Array(5, 5, 5, 5, 5, 5, 5, 5, 5, 5) 'M элементов (высота матрицы)
Dim M As Integer    'строк (столько, сколько элементов зададите выше, в b)
M = UBound(b)       'объяснение - в предыдущем комменте
ReDim A(1 To M, 1 To N) As Integer
Dim i, j 'индексы (если надо Integer, то так: i As Integer, j As Integer)
Dim Ashow As String 'строка для показа полученной матрицы
 
'ввод матрицы
    For i = 1 To M
            A(i, 1) = b(i) 'это вместо проверки If j = 1
            Ashow = Ashow & b(i)
        For j = 2 To N
            A(i, j) = b(i) + (j - 1) * D 'вместо A(i, j) = A(i, j - 1) + D
            Ashow = Ashow & vbTab & A(i, j)
        Next j
            Ashow = Ashow & vbCr & vbCr 'перевод строки (дважды)
    Next i
    
'вывод матрицы
    MsgBox Ashow 
   
End Sub

типо такого, но чтобы с клавиатуры считывалось, не могу додуматься,помогите
rogge вне форума Ответить с цитированием
Старый 02.12.2015, 19:40   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

так ты ж в соседней теме писал
Код:
For i = 1 To m
a(i) = InputBox("A(" & i & ")")
разве это не ввод с клавиатуры?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с матрицей mannn Паскаль, Turbo Pascal, PascalABC.NET 0 29.11.2015 18:18
помогите с матрицей Santina Паскаль, Turbo Pascal, PascalABC.NET 1 11.02.2014 19:02
помогите с матрицей DarthaBaudh Общие вопросы C/C++ 7 25.05.2009 16:52
помогите с матрицей Panda Помощь студентам 1 01.07.2008 11:31
Помогите с матрицей Zolotce Помощь студентам 4 21.04.2008 14:15