0 / 0 / 0
Регистрация: 15.01.2013
Сообщений: 4
1

Вычислить сумму элементов каждого столбца матрицы и поменять местами столбцы с наибольшей и наименьшей суммой

16.01.2013, 01:52. Показов 1373. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пожалуйста помогите решить, кому не трудно..

Дана целочисленная матрица A(N,M), где N=5 и M=5. Вычислить сумму элементов каждого столбца матрицы и поменять местами столбцы с наибольшей и наименьшей суммой. Вывести на экран результирующую и исходную матрицу в общепринятом виде. (в программе необходимо применить не менее двух подпрограмм)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2013, 01:52
Ответы с готовыми решениями:

Поменять местами строку матрицы с наименьшей суммой элементов со строкой с наибольшей суммой элементов
Помогите плиз решить несколько задас на преобразование матриц на С++ 1.В действительной матрице...

Поменять местами строки с наименьшей и наибольшей суммой элементов
В двумерном целочисленном массиве поменять местами строки с наименьшей и наибольшей суммой...

Поменять местами строку с наименьшей суммой элементов и столбец с наибольшей
В заданном целочисленном массиве Ann поменять местами строку с наименьшей суммой элементов и...

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

2
123 / 123 / 82
Регистрация: 03.01.2013
Сообщений: 242
16.01.2013, 02:12 2
Лучший ответ Сообщение было отмечено bANIED как решение

Решение

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
const n  = 5;
         m = 5;
type matrix = array[1..n,1..m] of integer;
        mass = array[1..m] of longint;
var a : matrix;
      b : mass;
      c : mass;
      max,min :                  longint;
      i,j,rmax,rmin :            byte;
 
procedure ShowMatrix(a : matrix); begin
    var i,j : byte;
    for i:=1 to n do begin
        for j:=1 to m do 
            write(a[i,j]:4,' ');
        writeln;
    end;
end;
 
procedure SumOfMatrixRows(a : matrix; var b : mass); begin
   var i,j : byte;
   for i:=1 to n do begin
     for j:=1 to m do begin
         b[j] := b[j]+a[i,j];
     end;
   end;
end;
 
begin
   randomize();
   for i:=1 to n do
     for j:=1 to m do 
         a[i,j] := random(40);
   
   ShowMatrix(a);
   SumOfMatrixRows(a,b);
   
   for i:=1 to n do
        writeln('Sum of ',i,'-row is: ',b[i]);
   max := b[1]; rmax := 1;
   min := b[1]; rmin := 1;
   for i:=1 to n do begin
       if (b[i]>max) then begin
            max:=b[i];
            rmax:=i;
       end;
       if (b[i]<min) then begin
            min:=b[i];
            rmin:=i;
       end;
    end;
    writeln('max sum is: ',max,' in ',rmax,'-row');
    writeln('min sum is: ',min,' in ',rmin,'-row');
        
    for j:=1 to m do begin
         for i:=1 to n do begin
               if (j=rmin) then begin
                    c[i] := a[i,j];
                    a[i,j] := a[i,rmax];
               end;
          end;
     end;
     for j:=1 to m do begin
         for i:=1 to n do begin
              if (j=rmax) then begin
                 a[i,j] := c[i];
              end;
         end;
     end;
    ShowMatrix(a);
    readln;
end.
1
0 / 0 / 0
Регистрация: 15.01.2013
Сообщений: 4
16.01.2013, 02:13  [ТС] 3
Огромное тебе спасибо, дружище!!=)
0
16.01.2013, 02:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2013, 02:13
Помогаю со студенческими работами здесь

Найти произведение наименьших элементов каждого столбца матрицы и поменять местами 1-й и 3-й столбцы
Посмотрите пожалуйста, почему у меня в 3 столбце минимальный элемент неправильно находит . Вот...

Составить блок-схему к программе обмена местами строк матрицы с наибольшей и наименьшей суммой элементов
Написать блок схему к этой программе. Заранее огромное спасибо)) В действительной матрице А(5;6)...

В матрице a(n на m) поменять местами строки с наибольшей и наименьшей суммой
В матрице a(n на m) поменять местами строки с наибольшей и наименьшей суммой. Двумерные...

В матрице A(n*m) поменять местами строки с наибольшей и наименьшей суммой
ребят, если есть возможность решить ещё несколько задач, напишите пожалуйста- очень меня выручите ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru