Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 06.05.2011
Сообщений: 22
1

Упорядочить строки матрицы по убыванию значений наибольших элементов строк

23.12.2011, 17:27. Показов 1517. Ответов 1
Метки нет (Все метки)

Дана действительная марица размера n*m, упорядочить (переставить) строки матрицы по убыванию значений наибольших элементов строк.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2011, 17:27
Ответы с готовыми решениями:

Упорядочить (переставить) строки матрицы по убыванию значений последних элементов строк
Дана действительная матрица размером M N. Упорядочить (переставить) строки матрицы по УБЫВАНИЮ...

Упорядочить строки матрицы по убыванию их наибольших элементов. Использовать подпрограммы.
Дана вещественная матрица X размера mxn. Упорядочить ее строки по убыванию их наибольших...

дана действительная матрица размера n*m: упорядочить строки матрицы по невозрастанию значений наибольших элементов
дана действительная матрица размера n*m: упорядочить строки матрицы по невозрастанию значений...

Все строки вещественной матрицы 10X15 упорядочить по убыванию значений их элементов
Все строки вещественной матрицы 10X15 упорядочить по убыванию значений их элементов

__________________
1
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,082
23.12.2011, 17:42 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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,k:byte;
    mx,x:real;
begin
clrscr;
randomize;
repeat
write('Количество строк от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов от 1 до ',nmax,'=');
readln(m);
until m in [1..nmax];
{вычисление максимальных в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  for j:=1 to m do
  a[i,j]:=10*random;
  mx:=a[i,1];
  for k:=1 to m do
  if a[i,k]>mx then mx:=a[i,k];
  a[i,m+1]:=mx;
 end;
writeln('Исходная матрица:');
writeln('Макс.':(m*5+9));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:2)
  else write(a[i,j]:5:2);
  writeln;
 end;
{перестановка строк по неубыванию максимального элемента)}
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i,m+1]<a[k,m+1] then
for j:=1 to m+1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[k,j];
  a[k,j]:=x;
 end;
writeln('Строки по убыванию макс.:');
writeln(' Макс.':(m*5+9));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:2)
  else write(a[i,j]:5:2);
  writeln;
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2011, 17:42

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Упорядочить строки матрицы по убыванию первых элементов строк, если это возможно
помогите... Дана матрица. Упорядочить ее строки по убыванию первых элементов строк, если это...

Упорядочить строки матрицы по невозрастанию значений наибольших элементов строк
Дана действительная матрица размера n•m (n&lt;=10, m&lt;=10). Упорядочить (переставить) строки матрицы по...

Упорядочить (переставить) строки матрицы по невозрастанию значений наибольших элементов строк
Дана действительная матрица размерности n * m. Упорядочить (переставить) строки матрицы по...

Упорядочить столбцы матрицы по убыванию значений наибольших элементов столбцов
Дана действ. матрица размера m*n, упорядочить столбцы матрицы по убыванию значений наибольших...


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

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

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