В матрицах x и y поменять местами максимальные элементы - Turbo Pascal

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

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

Помогите,пожалуйста составить программу: В произвольных матрицах x и y размера 5х4 определить максимальные элементы и поменять их значения местами.Но так чтобы вывелись 2 матрицы,где мы их поменяли местами

Решение задачи: «В матрицах x и y поменять местами максимальные элементы»

textual
Листинг программы
  1. type TMatrix=array [1..4,1..5] of Integer;
  2.  
  3. procedure mGen(var a: TMatrix);
  4. var i, j: Integer;
  5. begin
  6.   for i:=Low(a) to High(a) do for j:=Low(a[Low(a)]) to High(a[Low(a)]) do
  7.     a[i,j]:=Random(100);
  8. end;
  9.  
  10. procedure mWrite(const a: TMatrix; const s: String);
  11. var i, j: Integer;
  12. begin
  13.   WriteLn(s);
  14.   for i:=Low(a) to High(a) do begin
  15.     for j:=Low(a[Low(a)]) to High(a[Low(a)]) do Write(a[i,j]:3); WriteLn;
  16.   end;
  17. end;
  18.  
  19. procedure GetMax(const a: TMatrix; var mi, mj: Integer);
  20. var i, j: Integer;
  21. begin
  22.   mi:=Low(a); mj:=Low(a[Low(a)]);
  23.   for i:=Low(a) to High(a) do for j:=Low(a[Low(a)]) to High(a[Low(a)]) do
  24.     if a[mi,mj]<a[i,j] then begin mi:=i; mj:=j; end;
  25. end;
  26.  
  27. var
  28.   x, y: TMatrix;
  29.   xi, xj, yi, yj, t: Integer;
  30. begin
  31.   Randomize;
  32.   mGen(x); mGen(y);
  33.   GetMax(x,xi,xj); GetMax(y,yi,yj);
  34.   mWrite(x,'X ='); mWrite(y,'Y =');
  35.   WriteLn('Xmax at ',xi,',',xj,'; Ymax at ',yi,',',yj);
  36.   t:=x[xi,xj]; x[xi,xj]:=y[yi,yj]; y[yi,yj]:=t;
  37.   mWrite(x,'X''='); mWrite(y,'Y''=');
  38. end.

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

  1. Создаются две матрицы типа TMatrix.
  2. В каждой из матриц случайным образом заполняются элементы.
  3. Вычисляются индексы максимальных элементов в каждой матрице с помощью процедуры GetMax.
  4. Записывается вывод на экран с помощью процедур mWrite.
  5. Меняются местами максимальные элементы двух матриц.
  6. Записывается второй вывод на экран.

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


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

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

9   голосов , оценка 4 из 5

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

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

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