Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


Заполнить двумерную квадратную матрицу
2009-12-21 07:00 Александр
Заполнить двумерную квадратную матрицу 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 [...]


В избранное