Составить программу с использованием функции для нахождения максимального элемента главной диагонали квадратной матрицы - 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.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая используется для работы с функциями в языке Pascal.
  2. Затем определяется константа n, которая определяет размерность квадратной матрицы (в данном случае 10 строк и 10 столбцов).
  3. Определяется тип данных matrix, который представляет собой массив целых чисел размером n на n.
  4. Создается переменная x типа matrix, которая будет представлять собой квадратную матрицу.
  5. Далее определяются две переменные i и j типа integer, которые будут использоваться для прохода по матрице.
  6. В функции Max_Elem определяется переменная max типа integer, которая будет хранить максимальное значение элемента главной диагонали. Изначально устанавливается равным первому элементу матрицы x[1,1].
  7. Затем выполняется цикл for, который начинается с i=2 и продолжается до n. Внутри цикла проверяется, если значение элемента x[i,i] больше значения переменной max, то переменная max обновляется значением x[i,i].
  8. После завершения внутреннего цикла, функция Max_Elem возвращает максимальное значение элемента главной диагонали.
  9. В основной части программы инициализируются случайные числа от 0 до 99 для заполнения элементов матрицы.
  10. Затем выполняется цикл for, который начинается с i=1 и продолжается до n. Внутри цикла выводится значение элемента x[i,i] с помощью функции write.
  11. После завершения внутреннего цикла выводится символ новой строки с помощью функции writeln.
  12. Выводится значение максимального элемента главной диагонали с помощью функции write.
  13. Выполняется команда readln для чтения ввода пользователя.

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

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