Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы - Turbo Pascal

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

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

Дана матрица F(5,6) действительных чисел. Преобразовать ее путем деления всех элементов на максимальный элемент матрицы.

Решение задачи: «Преобразовать матрицу путем деления всех элементов на максимальный элемент матрицы»

textual
Листинг программы
  1. const n=5;
  2.  m=6;
  3. var
  4.  a:array[1..n,1..m] of real;
  5.   max:real;
  6.    i,j:integer;
  7. begin
  8.  randomize;
  9.   for i:=1 to n do begin
  10.    for j:=1 to m do begin
  11.     a[i,j]:=random(50);
  12.      write(a[i,j]:5);
  13. end;
  14.  writeln;
  15. end;
  16.  max:=a[i,j];
  17.   for i:=1 to n do
  18.    for j:=1  to m do begin
  19.     if a[i,j]>max then max:=a[i,j];
  20. end;
  21.  writeln('Максимальный элемент = ',max);
  22.   for i:=1 to n do begin
  23.    for j:=1 to m do begin
  24.     a[i,j]:=a[i,j]/max;
  25.      write(a[i,j]:5:5);
  26. end;
  27.  writeln;
  28. end;
  29. end.

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

  1. Объявляются переменные n, m, a, max, i, j.
  2. Задается начальное значение для каждой переменной.
  3. Генерируется случайное значение для каждого элемента матрицы a.
  4. Находится максимальное значение в матрице.
  5. Для каждого элемента матрицы a вычисляется отношение к максимальному значению.
  6. Выводится результат на экран.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы