21 Декабрь 2009

Заполнить двумерную квадратную матрицу

Задачи |  Таги: , ,

Заполнить двумерную квадратную матрицу

Private Sub Form_Load()
Dim A() As Integer

N = 7 'РАЗМЕР МАТРИЦЫ

ReDim A(N, N)

For Y = 1 To N
  For X = 1 To N
    A(X, Y) = X + (Y - 1) * N 'ВОТ И ВСЯ ФОРМУЛА
    Print A(X, Y),
  Next X
  Print
Next Y
End Sub

Запись опубликована on 21.12.2009 at 9:00 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.