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

@GooD_TeaM · Регистрация: 13.01.2017

Студворк — интернет-сервис помощи студентам

Упорядочить элементы каждого столбца матрицы X(K,L), K ≤ 50, L ≤ 30 по убыванию их модулей.

@Hikari · 13.01.2017, 19:04

С коленки

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
const k=5;l=5;
var x:array[1..k,1..l] of integer; i,j,p,q:integer;
begin
 for i:=1 to k do begin
  for j:=1 to l do begin
   a[i,j]:=50-random(100);
   write(a[i,j]:5);
  end; writeln;
 end; writeln;
 
 writeln;
 for j:=1 to l do begin
  for i:=1 to k do begin
   for p:=1 to k do if abs(a[i,j])<abs(a[p,j]) then begin
     q:=a[i,j]; a[i,j]:=a[p,j]; a[p,j]:=q;
   end;
  end; 
 end; 
 
 for i:=1 to k do begin
  for j:=1 to l do begin
   write(a[i,j]:5);
  end; writeln;
 end; writeln;
 
 readln;
end.

Если ничего не путаю...

@GooD_TeaM · 14.01.2017, 00:52 **[ТС]**

Не понял суть программы, она выдаёт случайную неупорядоченную матрицу

Добавлено через 4 часа 26 минут
Тема актуальна!

@Puporev · 14.01.2017, 10:31

Поправил, просто коленку нужно было помыть.

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
const k=5;l=5;
var a:array[1..k,1..l] of integer;
    i,j,p,q:integer;
begin
for i:=1 to k do
 begin
  for j:=1 to l do
   begin
    a[i,j]:=50-random(100);
    write(a[i,j]:5);
   end;
  writeln;
 end;
writeln;
writeln;
for j:=1 to l do
for i:=1 to k-1 do
for p:=i+1 to k do
if abs(a[i,j])<abs(a[p,j]) then
 begin
  q:=a[i,j];
  a[i,j]:=a[p,j];
  a[p,j]:=q;
 end;
for i:=1 to k do
 begin
  for j:=1 to l do
  write(a[i,j]:5);
  writeln;
 end;
end.

@GooD_TeaM · 20.01.2017, 18:02 **[ТС]**

Тема актуальна,прошу помочь!

@Cyborg Drone · 24.01.2017, 17:52

Напишите, что Вас не устраивает в решении от Puporev.

@bormant · 27.01.2017, 12:26

Сообщение от GooD_TeaM

Не понял суть программы, она выдаёт случайную неупорядоченную матрицу

Это не так, элементы каждого столбца матрицы упорядочены по неубыванию их модулей.
И по количеству проходов неоптимально, да.
И Randomize отсутствует (в обоих вариантах), зато все с одинаковым компилятором увидят один и тот же результат:

Code
1
2
3
4
5
6
7
8
9
10
11
   50   47  -36   30   23
  -17   19   34   13    8
   42    3   43  -34   45
   21  -41   14  -27   18
  -19  -34  -21   20   34
 
  -17    3   14   13    8
  -19   19  -21   20   18
   21  -34   34  -27   23
   42  -41  -36   30   34
   50   47   43  -34   45

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@GooD_TeaM 0 / 0 / 0 Регистрация: 13.01.2017 Сообщений: 8

	Упорядочить элементы каждого столбца матрицы по убыванию их модулей 13.01.2017, 18:53. Показов 1547. Ответов 6 Метки нет (Все метки) Упорядочить элементы каждого столбца матрицы X(K,L), K ≤ 50, L ≤ 30 по убыванию их модулей. 0

@GooD_TeaM 0 / 0 / 0 Регистрация: 13.01.2017 Сообщений: 8
	14.01.2017, 00:52 [ТС]
	Не понял суть программы, она выдаёт случайную неупорядоченную матрицу Добавлено через 4 часа 26 минут Тема актуальна! 0

@GooD_TeaM 0 / 0 / 0 Регистрация: 13.01.2017 Сообщений: 8
	20.01.2017, 18:02 [ТС]
	Тема актуальна,прошу помочь! 0

@Cyborg Drone Модератор 10365 / 5652 / 3397 Регистрация: 17.08.2012 Сообщений: 17,250
	24.01.2017, 17:52
	Напишите, что Вас не устраивает в решении от Puporev. 0