Переставить строки матрицы

@demidrolll · Регистрация: 10.12.2008

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

Вот задача, не получается решить:

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

@lexus_ilia · 14.12.2008, 12:55

а я вот ещё не садился за неё, но есть вопрос...Как думаешь, а мона будеть использовать ещё одну матрицу, и в придачу ещё 2 одномерных массива?Препод не закозлится? Просто у меня есть сомнения по этому поводу...

@demidrolll · 14.12.2008, 17:02 **[ТС]**

Ну если подругому никак...
Я думаю, тогда она не поверит, что это я сделал

@lexus_ilia · 14.12.2008, 18:17

Да чего ты, просто я предлагаю способ, ты пока подумай на счёт его... Короче мысли такие...Берём наши диагональные элементы закидываем в одномерный массив, берём ещё 1-ин одномерный массив, в который первый раз запишем элементы от 1 до n {т.е. f[1]=1 f[2]=2 f[n]=n} в этом массиве будем хранить позиции наших элементов, потом начинаем поиск: присваиваем минимальное значение 1-му элементу, сравниваем с оставшимися, меняем местами найденный элемент и 1-ый, и во 2-ом массиве (массиве индексов) делаем тоже самое, переходим ко 2-му элементу всё повторяем...как только пройдём n-1 раз получим отсортированные массивы, 1-ый массив нам не нужен, а вот массив индексов нужен даже очень, берём его, начинаем просматривать с 1-го элемента и присваиваем b[i,j]:=a[i,j] ну короче сформировываем новую матрицу из старой.Вот как-то так, но мне кажется что как-то сложновато, должен быть способ проще...

Добавлено через 27 минут 17 секунд
короче лови, глянь...

Code
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
Program xa;
var
 a,b:array[1..100,1..100] of integer;
 c,di:array[1..100] of integer;
 i,j,n,m,g:integer;
begin
 Writeln('BBeduTe pa3mePhocTb matpuL/bl');
 readln(n);
 Writeln('BBedute camy martpuL/y');
 for i:=1 to n do
  for j:=1 to n do
  begin
   Write('A[' ,i, ',' ,j, ']=');
   readln(a[i,j])
  end;
 Writeln;
 Writeln('MatpuL/a Do u3MeHeHUu');
 for i:=1 to n do
 begin
  for j:=1 to n do
   Write(a[i,j] , ' ');
  writeln
 end;
 
 for i:=1 to n do
  c[i]:=a[i,i];
 for i:=1 to n do
  di[i]:=i;
 for i:=1 to n-1 do
 begin
  m:=c[i];
  g:=di[i];
  for j:=i+1 to n do
   if c[j]<m then
   begin
    m:=c[j];
    g:=j;
   end;
  if g<>i then
  begin
   c[i]:=c[i]-c[g];
   c[g]:=c[g]+c[i];
   c[i]:=c[g]-c[i];
   di[i]:=di[i]-di[g];
   di[g]:=di[g]+di[i];
   di[i]:=di[g]-di[i];
  end;
 end;
 for i:=1 to n do
  for j:=1 to n do
   b[i,j]:=a[di[i],j];
 writeln;
 Writeln('noLy4uBLLIeeC9 matpuL/a');
  for i:=1 to n do
 begin
  for j:=1 to n do
   Write(b[i,j] , ' ');
  writeln
 end;
 readln
end.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286

	Переставить строки матрицы 12.12.2008, 10:37. Показов 1119. Ответов 3 Метки нет (Все метки) Вот задача, не получается решить: Дана квадратная матрица порядка n. Переставить строки матрицы так, чтобы в результате получилась матрица, у которой строки упорядочены в порядке возрастания диагональных элементов. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	14.12.2008, 12:55
	а я вот ещё не садился за неё, но есть вопрос...Как думаешь, а мона будеть использовать ещё одну матрицу, и в придачу ещё 2 одномерных массива?Препод не закозлится? Просто у меня есть сомнения по этому поводу... 0

@demidrolll 133 / 132 / 60 Регистрация: 10.12.2008 Сообщений: 286
	14.12.2008, 17:02 [ТС]
	Ну если подругому никак... Я думаю, тогда она не поверит, что это я сделал 0