Составить программу с использованием функции для нахождения максимального элемента главной диагонали квадратной матрицы - Pascal
Формулировка задачи:
Составить программу с использованием функции для нахождения максимального элемента главной диагонали квадратной матрицы
Решение задачи: «Составить программу с использованием функции для нахождения максимального элемента главной диагонали квадратной матрицы»
textual
Листинг программы
Uses crt; const n=10; type matrix=array[1..n,1..n]of integer; var x:matrix; i,j:integer; function Max_Elem(x:matrix; n:integer):integer; var max,i:integer; begin max:=x[1,1]; for i:=2 to n do if x[i,i]>max then max:=x[i,i]; Max_Elem:=max; end; begin clrscr; randomize; for i:=1 to n do for j:=1 to n do x[i,j]:=Random(100); for i:=1 to n do begin for j:=1 to n do write(x[i,j]:4); writeln; end; write('Maximalni element = ',Max_Elem(x,n)); readln; end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с функциями в языке Pascal.
- Затем определяется константа n, которая определяет размерность квадратной матрицы (в данном случае 10 строк и 10 столбцов).
- Определяется тип данных matrix, который представляет собой массив целых чисел размером n на n.
- Создается переменная x типа matrix, которая будет представлять собой квадратную матрицу.
- Далее определяются две переменные i и j типа integer, которые будут использоваться для прохода по матрице.
- В функции Max_Elem определяется переменная max типа integer, которая будет хранить максимальное значение элемента главной диагонали. Изначально устанавливается равным первому элементу матрицы x[1,1].
- Затем выполняется цикл for, который начинается с i=2 и продолжается до n. Внутри цикла проверяется, если значение элемента x[i,i] больше значения переменной max, то переменная max обновляется значением x[i,i].
- После завершения внутреннего цикла, функция Max_Elem возвращает максимальное значение элемента главной диагонали.
- В основной части программы инициализируются случайные числа от 0 до 99 для заполнения элементов матрицы.
- Затем выполняется цикл for, который начинается с i=1 и продолжается до n. Внутри цикла выводится значение элемента x[i,i] с помощью функции write.
- После завершения внутреннего цикла выводится символ новой строки с помощью функции writeln.
- Выводится значение максимального элемента главной диагонали с помощью функции write.
- Выполняется команда readln для чтения ввода пользователя.