Array.ArrayOperation

Копировать пример

Sub UserProc;
Var
    Matr, Matr2: Array Of Double;
    i, j: Integer;
Begin
    // Создадим двумерный массив
    Matr := New Double[3, 3];
    Matr[0, 0] := 4; Matr[0, 1] := 9; Matr[0, 2] := 3;
    Matr[1, 0] := 2; Matr[1, 1] := 15; Matr[1, 2] := 7;
    Matr[2, 0] := 8; Matr[2, 1] := 5; Matr[2, 2] := 13;
    Debug.WriteLine("Первый массив до выполнения операции:");
    // Выведем созданный массив в консоль
    For i := 0 To Matr.GetUpperBound(1) Do
        For j := 0 To Matr.GetUpperBound(2) Do
            Debug.Write(Matr[i, j].ToString + " ");
        End For;
        Debug.WriteLine("");
    End For;
    // Создадим двумерный массив, который будет использоваться во время операции
    Matr2 := New Double[3, 3];
    Matr2[0, 0] := 1; Matr2[0, 1] := 2; Matr2[0, 2] := 1;
    Matr2[1, 0] := 2; Matr2[1, 1] := 1; Matr2[1, 2] := 5;
    Matr2[2, 0] := 3; Matr2[2, 1] := 4; Matr2[2, 2] := 2;
    Debug.WriteLine("Второй массив для выполнения операции:");
    // Выведем созданный массив в консоль
    For i := 0 To Matr2.GetUpperBound(1) Do
        For j := 0 To Matr2.GetUpperBound(2) Do
            Debug.Write(Matr2[i, j].ToString + " ");
        End For;
        Debug.WriteLine("");
    End For;
    // Выполним арифметическую операцию над элементами массива
    Matr.ArrayOperation(ArrayOperationType.Minus, Matr2);
    // Выведем результат операции в консоль
    Debug.WriteLine("Первый массив после выполнения операции:");
    For i := 0 To Matr.GetUpperBound(1) Do
        For j := 0 To Matr.GetUpperBound(2) Do
            Debug.Write(Matr[i, j].ToString + " ");
        End For;
        Debug.WriteLine("");
    End For;
End Sub UserProc;