6.1 с помощью подпрограм (процедура ввода -процедура вывода),ввод значений в ручную а не рандом

+ 0 -

Maya84

18 марта 2017 г., 13:50:43 (7 лет назад)

type
  M = array[,] of integer;// двумерный динамический массив
  RefElem = record
    row: integer;
    col: integer;
  end;


procedure InputMas(var a: M; MasName: string := '');
// Организует ввод элементов массива
var
  n, m, i, j: integer;
begin
  writeln('Укажите число строк и колонок массива ', MasName);
  readln(n, m);
  SetLength(a, n, m);
  writeln('Вводите элементы массива построчно');
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      read(a[i, j]);
end;

procedure SwapElems(var a: M; col: integer; i1: integer; i2: integer);
// Меняет местами в колонке col массива "а" элементы строк i1, i2
var
  buf: integer;
begin
  buf := a[i1, col];
  a[i1, col] := a[i2, col];
  a[i2, col] := buf
end;

procedure ColMinMax(var a: M; col: integer);
// Процедура находит и обменивает местами максимальный и минимальный элементы,
// элемента, найденные в колонке col массива а
// Вызываемые процедуры: SwapElems
var
  i, eMax, eMin, iMax, iMin: integer;

begin
  eMax := -32768;  //меньше не бывает
  eMin := 32767;   //больше не бывает
  for i := 0 to Length(a, 0) - 1 do
  begin
    if eMin > a[i, col] then begin
      eMin := a[i, col];
      iMin := i;
    end;
    if eMax < a[i, col] then begin
      eMax := a[i, col];
      iMax := i;
    end
  end;
  SwapElems(a, col, iMax, iMin)
end;

procedure MinMax(var a: M);
// Обменивает местами в каждой колонке массива а минимальный и мексимальный элементы
// Вызываемые процедуры: ColMinMax
var
  j: integer;
begin
  for j := 0 to Length(a, 1) - 1 do
    ColMinMax(a, j)
end;

procedure WriteMas(a: M; title: string);
// Вывод массива a с заголовком title
var
  i, j: integer;
begin
  writeln('Массив ', title);
  for i := 0 to Length(a, 0) - 1 do
  begin
    for j := 0 to length(a, 1) - 1 do
      write(a[i, j]:5);
    writeln
  end
end;

procedure Action(var a: M; title: string);
// Делает все необходимые операции с массивом
begin
  InputMas(a, title);
  WriteMas(a, '*** Исходный массив ***');
  MinMax(a);
  WriteMas(a, '*** Результирующий массив ***')
end;

var
  A1, A2, A3: M;

begin
  Action(A1, 'A1');
  Action(A2, 'A2');
  Action(A3, 'A3')
end.

Тестовый прогон:

Укажите число строк и колонок массива A1
3 3
Вводите элементы массива построчно
3 5 7 0 2 5 4 3 4
Массив *** Исходный массив ***
    3    5    7
    0    2    5
    4    3    4
Массив *** Результирующий массив ***
    3    2    4
    4    5    5
    0    3    7
Укажите число строк и колонок массива A2
3 5
Вводите элементы массива построчно
1 2 3 4 5
5 4 3 2 1
3 3 3 3 3
Массив *** Исходный массив ***
    1    2    3    4    5
    5    4    3    2    1
    3    3    3    3    3
Массив *** Результирующий массив ***
    5    4    3    2    1
    1    2    3    4    5
    3    3    3    3    3
Укажите число строк и колонок массива A3
5 3
Вводите элементы массива построчно
1 2 3 4 5 6 7 8 9 8 4 2 9 0 2
Массив *** Исходный массив ***
    1    2    3
    4    5    6
    7    8    9
    8    4    2
    9    0    2
Массив *** Результирующий массив ***
    9    2    3
    4    5    6
    7    0    2
    8    4    9
    1    8    2