Дана квадратная матрица. Найти максимальный элемент матрицы - Turbo Pascal
Формулировка задачи:
Решение задачи: «Дана квадратная матрица. Найти максимальный элемент матрицы»
uses crt; type TMatrix = array [1..5, 1..5] of integer; procedure matrix(var x:TMatrix;s:string); var i,j:integer; begin Writeln(s); for i := 1 to 5 do begin for j := 1 to 5 do begin x[i, j] := random(100); Write(x[i, j]:3); end; Writeln; End; end; function f(x: TMatrix):integer; var i,j, max: integer; begin max:=x[1,1]; for i := 1 to 5 do for j := 1 to 5 do If x[i,j]>max then max:=x[i,j]; f := max; end; var Mas1,Mas2,Mas3: TMatrix; i, j: integer; BEGIN matrix(Mas1,'Array 1:'); writeln('Max 1ой матрицы=',f(Mas1)); matrix(Mas2,'Array 2:'); writeln('Max 2ой матрицы=',f(Mas2)); matrix(Mas3,'Array 3:'); writeln('Max 3ей матрицы=',f(Mas3)); Readln; END.
Объяснение кода листинга программы
Данный код написан на языке Turbo Pascal и представляет собой программу для нахождения максимального элемента в квадратной матрице. В коде определен тип данных TMatrix, который представляет собой массив целых чисел размером 5x5. Процедура matrix принимает на вход переменную x, которая является матрицей, и строку s, которая содержит информацию о матрице. Внутри процедуры происходит заполнение матрицы случайными числами от 1 до 100. Функция f принимает на вход переменную x, которая является матрицей, и возвращает максимальное значение из матрицы. Далее определены три переменные Mas1, Mas2 и Mas3, которые представляют собой матрицы размером 5x5. В блоке BEGIN-END программы вызываются три раза процедура matrix с разными матрицами и выводится максимальное значение из каждой матрицы. После этого программа завершается вызовом функции Readln.