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. Известна таблица футбольного чемпионата и список команд-участниц. В каждой строке таблицы записано количество побед, ничьих и поражений соответствующей команды. Подсчитать количество сыгранных каждой командой матчей, а также в итоговой таблице команды расположить в порядке убывания завоеванных ими очков.
Постановка задачи
В данной задаче опишем три модуля. В первом модуле опишем объекты программы, которые будут использоваться не только в основной программе, но и в других модулях. Во втором модуле будут процедуры ввода-вывода данных. В третьем модуле будут находиться процедуры обработки данных.
Функциональная структура алгоритма
Текст программы