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

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

24.12.2012, 17:35. Просмотров 1506. Ответов 1
Метки нет (Все метки)

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

Вот код на паскале:
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,l:byte;
    max,b:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax-1,' m=');
readln(m);
until m in [1..nmax-1];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=10*random;
{вычисление маскимальных элементов в строках и запись их в дополнительный столбец}
for i:=1 to n do
 begin
  max:=a[i,1];
  for j:=1 to m do
  if a[i,j]>max then max:=a[i,j];
  a[i,m+1]:=max;
 end;
writeln('Исходный массив:');
writeln('Макс.':(m*5+10));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:1)
  else write(a[i,j]:5:1);
  writeln;
 end;
{перестановка строк по невозрастанию маскимальных(по последнему столбцу)}
for i:=1 to n-1 do
for l:=i+1 to n do
if a[i,m+1]<a[l,m+1] then
for j:=1 to m+1 do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
writeln('Строки по невозрастанию маскимальных:');
writeln('Макс.':(m*5+10));
for i:=1 to n do
 begin
  for j:=1 to m+1 do
  if j=m+1 then write(a[i,j]:8:1)
  else write(a[i,j]:5:1);
  writeln;
 end;
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2012, 17:35
Ответы с готовыми решениями:

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

Переставить строки матрицы по невозрастанию наибольших элементов строк
Здравствуйте! Пожалуйста, помогите решить задачу.C помощью датчика случайных чисел сформировать...

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

Упорядочить (переставить) строки матрицы по невозрастанию сумм элементов строк методом простого выбора
Помогите решить задачку. Дана действительная матрица размером ; упорядочить(переставить) строки...

1
157 / 156 / 81
Регистрация: 31.12.2012
Сообщений: 254
02.01.2013, 22:06 2
По скриншотику и о результате судить можно)

Fortran
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
        program examp
        
        integer d(5,5),z(5),t(5)
  1     format ("")
  
        print *,'Vvedite elementy'
        print 1
  
        do i=1,5
           read *,(d(i,j), j=1,5)
        enddo
        
        print 1
        
        do i=1,5
           print *,(d(i,j), j=1,5)
        enddo
        
        print 1
        
        do i=1,5
           z(i)=d(i,1)
           do j=1,5
              if(z(i).LT.d(i,j)) then
                 z(i)=d(i,j)
              endif
           enddo
        enddo
        
        do i=1,4
           if(z(i).LT.z(i+1)) then
              do h=1,5
                 t(h)=d(i,h)
              enddo
                 
              do b=1,5
                 d(i,b)=d(i+1,b)
                 d(i+1,b)=t(b)
              enddo
           endif
        enddo
        
        print *,'Yporydochennay matrica: '
        print 1
        
        do i=1,5
           print *,(d(i,j), j=1,5)
        enddo
  
        end
0
Миниатюры
Упорядочить (переставить) строки матрицы по невозрастанию значений наибольших элементов строк  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.01.2013, 22:06

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

Упорядочить строки матрицы по невозрастанию значений сумм элементов строк
Помогите, пожалуйста. Дана действительная матрица размера n•m (n&lt;=8, m&lt;=15). Упорядочить...

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

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

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


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

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

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