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

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

07.01.2011, 00:54. Просмотров 1619. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
Модератор
62503 / 46691 / 32182
Регистрация: 18.05.2008
Сообщений: 112,971
07.01.2011, 10:04 2
Лучший ответ Сообщение было отмечено amikulia как решение

Решение

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 n=4;
var a:array[1..n+1,1..n] of real;
    i,j,k:byte;
    sm,x:real;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10*random;
{считаем сумму в столбце}
for j:=1 to n do
 begin
  sm:=0;
  for i:=1 to n do
  sm:=sm+a[i,j];
  a[n+1,j]:=sm;{и записываем в дополнительную строку}
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  write(' ':6);{5 пробелов в начале строки}
  for j:=1 to n do
  write(a[i,j]:6:2);{элементы строки}
  writeln;
 end;
writeln;
write('Сумма ');{дополнительная строка с суммами}
for j:=1 to n do
write(a[n+1,j]:6:2);
writeln;
writeln;
{перестановка столбцов по убыванию значений в последней строке}
for j:=1 to n-1 do
for k:=j+1 to n do
if a[n+1,j]<a[n+1,k] then
for i:=1 to n+1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Столбцы упорядочены:');
for i:=1 to n do
 begin
  write(' ':6);
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
writeln;
write('Сумма ');
for j:=1 to n do
write(a[n+1,j]:6:2);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.01.2011, 10:04

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

Упорядочить столбцы матрицы по возрастанию сумм элементов столбца
Путь дана матрица А(n x m).Разработать программу,позволяющую упорядочить столбцы матрицы по...

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

Упорядочить строки матрицы по убыванию сумм элементов строк
Пожалуйста помогите сделать так, чтобы программа работала так, как требуется: Дана матрица n*m....

Упорядочить столбцы матрицы по убыванию элементов в k строке
Дана матрица А(n,m). Упорядочить столбцы матрицы по убыванию элементов в k строке, где k – номер...


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

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

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