Implementation. procedure ZapolMatrix(var X: tMatrix; L, H: integer);

End.

Модуль 2.

unit sdvig;

Interface

uses op;

procedure ZapolMatrix(var X: tMatrix; L, H: integer);

procedure Vivod(X: tMatrix);

procedure SdvigStr (var A: tMatrix; t: integer);

procedure ZapolVector(var A: tVector; val: integer);

Implementation

procedure ZapolMatrix(var X: tMatrix; L, H: integer);

{ алгоритм заполнение массива случайным числами из диапазона [L..H]

A – заполняемый массив

L – минимальное значение элементов массива

H – максимальное значение элементов массива

}

Var

i, j: integer; // счетчики циклов

Begin

for i: =1 to n do

for j: =1 to m do

X[i][j]: = (abs(L)+abs(H)+1)-L;

end;

procedure Vivod(X: tMatrix);

Var

i, j: integer;

Begin

f or i: =1 to n do begin // для каждой строки

f or j: =1 to m do // для каждого столбца

Write(X[i][j], ’, ’); // вывод элемента и строки текста ’, ’

Writeln; // перевод курсора на следующую строку экрана

end;

end;

procedure SdvigStr (var A: tMatrix; t: integer);

{сдвиг строк, начиная с указанной

A – матрица

t – номер вставляемой строки

}

Var

i, j: integer;

Begin

for i: =n downto t+1 do // начиная с последней до (t+1)-й строки

for j: =1 to m do //

X[i+1][j]: = X[i][j];

end;

procedure ZapolVector(var A: tVector; val: integer);

{заполнение строки указанным значением

A – строка матрицы

val – указанное значение

}

Var

i: integer;

Begin

for i: =1 to m do

A[i]: =val;

end;

End.

Основная программа.

uses op, sdvig;

Var

A: tMatrix;

t: integer; // номер вставляемой строки

Begin

// ввод исходных данных

ZapolMatrix(A, 10, 20); // заполнили матрицу

Vivod(A); // вывод элементов заполненного массива

Write(’Введите номер строки ’);

ReadLn(t);

// обработка

SdvigStr(A, t); // сдвиг строк, начиная со строки t

ZapolVector(A[t], 0);

// вывод результатов

Vivod(A)

end.

Задача № 2. Известна таблица футбольного чемпионата и список команд-участниц. В каждой строке таблицы записано количество побед, ничьих и поражений соответствующей команды. Подсчитать количество сыгранных каждой командой матчей, а также в итоговой таблице команды расположить в порядке убывания завоеванных ими очков.

Постановка задачи

В данной задаче опишем три модуля. В первом модуле опишем объекты программы, которые будут использоваться не только в основной программе, но и в других модулях. Во втором модуле будут процедуры ввода-вывода данных. В третьем модуле будут находиться процедуры обработки данных.

Функциональная структура алгоритма

Текст программы