Напишите двумерный массив с поддержкою функции и процедуры!

 Творение двумерного массива с помощью функции

Функция состоит из последующих блоков:

1. Ключевое слово Function, lt;имя функцииgt;, lt;перечень характеристикgt; в круглых скобках, тип возвращаемого значения;
2. Константы;
3. Пользовательские типы данных;
4. Локальные переменные;
5. Процедуры и функции;
6. Тело функции.

Неотклонимыми блоками являются 1-ый (заголовок) и тело функции, содержащее деяния выполняемые функцией.

Тело функции начинается со слова begin, и заканчивается словом end; В теле функции обязан выполняться оператор присваивания, присваивающий переменной result значение, отдаваемое функцией. Кандидатурой является внедрение заместо переменной result имени функции. Например:

Function Return1():integer;

begin

  Return1:=1;

end;

Для того чтобы сделать функцию с отдаваемым типом массива необходимо обрисовать пользовательский тип массива:

const n=5;

m=5;

type ArrType = array[1..n,1..m]of integer;

Размерность массива задана константами m и n. Функция творения массива представлена ниже:

function FCreateArray:ArrType;

var locmas:ArrType;

i,j:integer;

begin

  for i:=1 to n do

       for j:=1 to m do

           locmas[i,j]:=random(10);

  result:=locmas;

end;        

Здесь пропущен список характеристик в заголовке функции, так как характеристики не требуются.

Для создания массива используем два вложенных цикла for. Переменные-счетчики для циклов объявлены локально, также объявлен локальный массив locmas, который заполняется случайными числами в диапазоне от 0 до 9. Для возвращения результата используем присваивание переменной result значения localmas.

Вызов функции будет иметь последующий вид:

mas:=FCreateArray;

Тип переменной mas обязан совпадать с типом отдаваемым функцией.

Творенье двумерного массива с подмогою процедуры

Процедура состоит из последующих блоков:

1. Ключевое слово Procedure, lt;имя процедурыgt;, lt;перечень параметровgt; в круглых скобках;
2. Константы;
3. Пользовательские типы данных;
4. Локальные переменные;
5. Процедуры и функции;
6. Тело процедуры.

Также как и у функции неотклонимыми являются 1-ый и последний блоки. В отличие от функции процедура не имеет типа отдаваемого значения.

Воспользуемся описанным типом данных ArrType, для того чтобы передать процедуре создания массива параметр-переменную locmas. Ключевое слово var указывает, что фактический параметр переданный процедуре будет изменяться процедурой.

procedure PCreateArray(var locmas:ArrType);

var i,j:integer;

begin

  for i:=1 to n do

     for j:=1 to m do

         locmas[i,j]:=random(10);

end;

Наполнение массива происходит так же, как и в описанной выше функции.

Вызов процедуры будет последующим:

PCreateArray(mas);

При этом тип переменной mas обязан совпадать с типом locmas из перечня характеристик процедуры. После выполнения процедуры переменная mas будет содержать массив, заполненный случайными числами в спектре от 0 до 9.