Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
bzdonskiy
0 / 0 / 0
Регистрация: 18.07.2010
Сообщений: 1
1

Найти максимальный по модулю элемент матрицы

21.07.2010, 23:23. Просмотров 906. Ответов 1
Метки нет (Все метки)

Задана матрица размером n × m. Найти максимальный по модулю элемент матрицы. Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й строки и k-гo столбца.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.07.2010, 23:23
Ответы с готовыми решениями:

Найти максимальный по модулю элемент матрицы.
Задана матрица А размером n х m. Найти максимальный по модулю элемент матрицы....

Найти максимальный по модулю элемент матрицы размером nxm
Задана матрица размером nxm. Найти максимальный по модулю элемент матрицы....

Вычислить максимальный по модулю элемент матрицы
Необходимо ввод исходных данных и их контрольный вывод оформить как процедуры,...

Найдите максимальный по модулю элемент матрицы
Найдите максимальный по модулю элемент матрицы М (5,6), номер его строки и...

Определить максимальный по модулю элемент матрицы
Задан двумерн. Массив, определить максимальный по модулю элемент

1
Puporev
Модератор
55431 / 42553 / 29406
Регистрация: 18.05.2008
Сообщений: 100,668
22.07.2010, 08:10 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,imx,jmx,k,p:byte;
    mx,x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(20)-10;
     write(a[i,j]:5);
    end;
   writeln;
 end;
writeln;
mx:=abs(a[1,1]);
imx:=1;jmx:=1;
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])>mx then
 begin
  mx:=abs(a[i,j]);
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальный по модулю элемент=',a[imx,jmx],' имеет индексы ',imx,',',jmx);
if n<m then p:=n else p:=m;
repeat
write('Введите номер строки-столбца для перестановки от 1 до ',p,' k=');
readln(k);
until k in [1..p];
{перестановка строк}
if imx>k then{если строка с макс ниже}
 begin
  for i:=imx downto k+1 do
  for j:=1 to m do
   begin
    x:=a[i,j];
    a[i,j]:=a[i-1,j];
    a[i-1,j]:=x;
   end;
 end;
if imx<k then{если строка с макс выше}
 begin
  for i:=imx to k-1 do
  for j:=1 to m do
   begin
    x:=a[i,j];
    a[i,j]:=a[i+1,j];
    a[i+1,j]:=x;
   end;
 end;
{перестановка столбцов}
if jmx>k then {если столбец с макс правее}
 begin
  for j:=jmx downto k+1 do
  for i:=1 to n do
   begin
    x:=a[i,j];
    a[i,j]:=a[i,j-1];
    a[i,j-1]:=x;
   end;
 end;
if jmx<k then{если столбец с макс левее}
 begin
  for j:=jmx to k-1 do
  for i:=1 to n do
   begin
    x:=a[i,j];
    a[i,j]:=a[i,j+1];
    a[i,j+1]:=x;
   end;
 end;
writeln('Перестановка:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.07.2010, 08:10

Найдите максимальный по модулю элемент матрицы
2.Задана матрица А действительных чисел размерами 5x5.Найдите максимальный по...

Найти максимальный по модулю элемент массива
Помогите тоже с задачкой Найти максимальный по модулю элемент массива и...

Найти максимальный по модулю элемент массива
Задание : В одномерном массиве состоящем из N вещественных элементовб...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru