![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
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. Известна таблица футбольного чемпионата и список команд-участниц. В каждой строке таблицы записано количество побед, ничьих и поражений соответствующей команды. Подсчитать количество сыгранных каждой командой матчей, а также в итоговой таблице команды расположить в порядке убывания завоеванных ими очков. Постановка задачи В данной задаче опишем три модуля. В первом модуле опишем объекты программы, которые будут использоваться не только в основной программе, но и в других модулях. Во втором модуле будут процедуры ввода-вывода данных. В третьем модуле будут находиться процедуры обработки данных.
Текст программы
|