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

@Sancheper · Регистрация: 20.12.2012

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

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

@ermolay · 01.02.2013, 11:13

будет работать и на турбо и в abc.net, и в остальных паскалях..
прога берет 1 столбец, ищет максимум, меняет строку с максимумом на 1-ю строку, берет второй столбец... и т.д.
как то так:

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
const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,tmp,imax,p: integer;
begin
  randomize;
  write('Ââåäèòå ðàçìåð ìàòðèöû n: ');
  readln(n);
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  for j:=1 to n do
  begin
    imax:=1;
    for i:=2 to n do
      if abs(a[i,j])>abs(a[imax,j]) then imax:=i;
    for p:=1 to n do
    begin
      tmp:=a[imax,p];
      a[imax,p]:=a[j,p];
      a[j,p]:=tmp;
    end;
  end;
  writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

Добавлено через 1 минуту
на abc.net randomize и в предпоследней строчке readln не обязательны

@Sancheper · 01.02.2013, 18:52 **[ТС]**

спасибо огромное!!!!

Новые блоги и статьи Все статьи Все блоги /
Руководство по структурам данных Python AI_Generated 08.07.2025 Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .	Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .	Основы WebGL. Раскрашивание вершин с помощью VBO 8Observer8 05.07.2025 На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:
Мониторинг микросервисов с OpenTelemetry в Kubernetes Mr. Docker 04.07.2025 Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .	Проблемы с Kotlin и Wasm при создании игры GameUnited 03.07.2025 В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .	Создаем микросервисы с Go и Kubernetes golander 02.07.2025 Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .	C++23, квантовые вычисления и взаимодействие с Q# bytestream 02.07.2025 Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .	Вот в чем сила LM. Hrethgir 02.07.2025 как на английском будет “обслуживание“ Слово «обслуживание» на английском языке может переводиться несколькими способами в зависимости от контекста: * Service — самый распространённый. . .

@Sancheper 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 9

	Переставить строки матрицы так, чтобы на главной диагонали были расположены элементы, наибольшие по абсолютной величине 31.01.2013, 20:36. Показов 4867. Ответов 2 Метки нет (Все метки) в матрице n-го порядка переставить строки так, чтобы на главной диагонали матрицы были расположены элементы, наибольшие по абсолютной величине. очень нужно, не получаеться 0

@Sancheper 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 9
	01.02.2013, 18:52 [ТС]
	спасибо огромное!!!! 0

Опции темы

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

Решение