Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 28.07.2012
Сообщений: 15
1

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

14.01.2014, 20:32. Просмотров 1795. Ответов 1
Метки нет (Все метки)


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

Добавлено через 1 час 25 минут
Помогите пожалуста!! очень срочно нужно!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2014, 20:32
Ответы с готовыми решениями:

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

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

Упорядочить элементы четных столбцов матрицы по убыванию
1. Сформировать матрицу А 6 на 6 вещественного типа в интервале (-3.0;2.5). Определить количество...

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

1
0 / 0 / 1
Регистрация: 28.07.2012
Сообщений: 15
16.01.2014, 05:56  [ТС] 2
Лучший ответ Сообщение было отмечено Nika09 как решение

Решение

сортировка элементов столбцов вроде получилась, а вот как отсортировать сами столбцы совсем не знаю!!(((( может кто-нибудь делал??)

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
const n = 5;
type mas = array[1..n, 1..n] of integer;
var
m : mas;
str, column, i, mit:integer;
 
procedure RandomMassiv(var m: mas);
var i, j : integer;
begin
randomize;
for i := 1 to n do
for j := 1 to n do
m[i, j] := random(10) - 5;
end;
 
procedure Print(var m : mas);
var i, j : integer;
begin
for i := 1 to n do begin
for j := 1 to n do
if(m[i, j] >= 0) then
write(' ', m[i, j], ' ')
else write(m[i, j], ' ');
writeln;
end;
end;
 
procedure Sort(var m : mas);
var str, row, column, i, mit : integer;
begin
str :=n div 2;
while str>0 do
begin
for column := 1 to n do
for row:=n-str downto 1 do
begin i:=row;
while i<=n-str do
begin
if m[i, column]<m[i+str, column] then
begin
mit:=m[i, column];
m[i, column]:=m[i+str, column];
m[i+str, column]:=mit;
end;
i:=i+str;
end;
end;
str:=str div 2;
end;
end;
 
function Module(var m : mas; col : integer) : integer;
var i, s: integer;
begin
s := 1;
for i := 1 to n do
if(i mod 2 = 0) then
s := s * abs(m[i, col]);
module := s;
end;
 
begin
RandomMassiv(m);
Print(m);
Sort(m);
writeln;
Print(m);
end.
Добавлено через 9 часов 23 минуты
помогите плиз!!!! очень срочно нужно!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2014, 05:56

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

В двумерном массиве отсортировать по убыванию элементы четных столбцов
1.Вычислить одномерный массив А, каждый элемент которого равен полусумме соответствующих элементов...

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

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

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


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

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

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