Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы - Turbo Pascal
Формулировка задачи:
Дана матрица F(5,6) действительных чисел. Преобразовать ее путем деления всех элементов на максимальный элемент матрицы.
Решение задачи: «Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы»
textual
Листинг программы
- const n=5;
- m=6;
- var
- a:array[1..n,1..m] of real;
- max:real;
- i,j:integer;
- begin
- randomize;
- for i:=1 to n do begin
- for j:=1 to m do begin
- a[i,j]:=random(50);
- write(a[i,j]:5);
- end;
- writeln;
- end;
- max:=a[i,j];
- for i:=1 to n do
- for j:=1 to m do begin
- if a[i,j]>max then max:=a[i,j];
- end;
- writeln('Максимальный элемент = ',max);
- for i:=1 to n do begin
- for j:=1 to m do begin
- a[i,j]:=a[i,j]/max;
- write(a[i,j]:5:5);
- end;
- writeln;
- end;
- end.
Объяснение кода листинга программы
- Объявляются переменные n, m, a, max, i, j.
- Задается начальное значение для каждой переменной.
- Генерируется случайное значение для каждого элемента матрицы a.
- Находится максимальное значение в матрице.
- Для каждого элемента матрицы a вычисляется отношение к максимальному значению.
- Выводится результат на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д