Дана квадратная матрица. Найти максимальный элемент матрицы - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Условие: Дана квадратная матрица. Найти максимальный элемент матрицы. (оформить через процедуру/функции.) Без Процедуры/функций сделал, помогите перевести.
Решил вот так: Если кто знает как упростить - откликнитесь. Спасибо.

Решение задачи: «Дана квадратная матрица. Найти максимальный элемент матрицы»

textual
Листинг программы
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.

Оцени полезность:

9   голосов , оценка 3.667 из 5
Похожие ответы