Открытые Массивы

TMT Паскаль позволяет использовать многомерный открытый массив как параметр в процедурах и функциях. Параметр открытого массива имеет следующий формат описания:

array [dim] of Тип,

Где dim - положительная целочисленная константа, определяющая число измерений (размерность массива), а Тип - тип элементов массива. Чтобы определить верхние границы массива, используйте функцию High. Она возвращает вектор типа Longints (array [0..dim-1] of Longint) содержащий верхние границы. Нижние границы всегда устанавливаются на 0. Вектор нижних границ может быть получен с помощью функции Low.

Пример:

procedure print_vector (v: array(1) of double);

var i: integer;
begin
  for i := 0 to high(v)[0] do Write(v[i]:10:6, ' ');
  Writeln;
end;

procedure print_matrix(m: array(2) of double);

var i: integer;
begin
  for i := 0 to high (m) [0] do print_vector(m [i]);
  Writeln;
end;

const a: array[1..3, 1..3] of double = ((1,0,2),(2,1,0),(1,2,1));


begin
  print_matrix(a);
end.

Вы можете в каталоге EXAMPLES\LIN_EQ найти пример программы, которая решает систему линейных уравнений.