Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Редактирование текста в символьных файлах. https://www.cyberforum.ru/ pascal/ thread105587.html
Дано два символьных файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 40 слов, слова разделены запятыми. Эти слова...
Pascal Тип запись даты.
type число=1..31; месяц=1..12; год=1..2000; дата=record ч:число; м:месяц; г:год end; Cчитая, что все даты даются по ...
Работа с таблицой! Pascal
Опять я к вам, помогите понять и решить задачу! Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дана таблица f, содержащая сведения о нескольких автомобилях. Найти: фамилии...
Pascal Преобразовать число в вектор Дано число N=2591 преобразовать это число в вектор и вычислить max и min цифры которые в это число не входят,например для этого числа max=8, min=0. Для числа 0234 max=9, min=1. https://www.cyberforum.ru/ pascal/ thread105577.html
Pascal Вычислить сумму слагаемых заданного вида https://www.cyberforum.ru/ pascal/ thread105566.html
Помогите пожалуйста)) При некоторых заданных x,N и E, определяемых вводом, вычислите сумму N слагаемых заданного вида, затем сумму тех слагаемых, которые по абсолютной величине больше E. Для...
Принадлежность точки заданной области Pascal
Помогите с решением задач. Спасибо. 1. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами х, у заштрихованной части плоскости. рис. 2. Пусть D - заштрихованная...
Pascal Одномерный массив
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Номер максимального по модулю элемента массива. 2. Сумму элементов массива, расположенных после первого положительного...
Pascal блок схема Ребята помогите построит блок-схему. Заранее спасибо! Вот текст программы: var a:integer; begin while (a<1) or (a>12) do begin write('Введите номер месяца*... https://www.cyberforum.ru/ pascal/ thread105548.html
Pascal матрицы https://www.cyberforum.ru/ pascal/ thread105536.html
найти среднее арифметическое наименьших отрицательных элементов каждой строки матрицы FP{m;n} находящихся над главной диагональю. m=6 помогите плз
Pascal Описать функцию, которая возвращает максимальную длину строки в массиве строк 1. Описать функцию, которая возвращает максимальную длину строки в массиве строк. 2. Описать процедуру, по которой определяется число подстрок в строке и эта информация добавляется в конец строки (... https://www.cyberforum.ru/ pascal/ thread105531.html
Модератор
63399 / 47084 / 32454
Регистрация: 18.05.2008
Сообщений: 114,126
17.03.2010, 08:43 0

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

17.03.2010, 08:43. Показов 3247. Ответов 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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,imx,jmx,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)-25;
     write(a[i,j]:5);
    end;
   writeln;
 end;
imx:=1;jmx:=1;
for i:=1 to m do
for j:=1 to n do
if abs(a[i,j])>abs(a[imx,jmx]) then
 begin
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальный по модулю элемент=',a[imx,jmx],' в строке ',imx,' в столбце ',jmx);
repeat
write('Введите номер строки не более минимального размера матрицы k=');
readln(k);
until(k<=m)and(k<=n);
for i:=1 to m do
 begin
  x:=a[k,i];
  a[k,i]:=a[imx,i];
  a[imx,i]:=x;
 end;
for i:=1 to m do
 begin
  x:=a[i,k];
  a[i,k]:=a[i,jmx];
  a[i,jmx]:=x;
 end;
writeln('Перестановка максимального по модулю в ячейку [',imx,',',jmx,']');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
readln
end.


Вернуться к обсуждению:
Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й строки и k-го столбца.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2010, 08:43

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

Переставить строки и столбцы матрицы, чтобы max по модулю элемент оказался на пересечении k-й строки и k-й столбца
меняет строки но столбцы просто игнорирует. #include &quot;pch.h&quot; #include &lt;iostream&gt; #include...

Переставить строки и столбцы матрицы так, чтобы max элемент располагался на пересечении К строки и К столбца
Задана квадратная матрица. Найти максимальный по модулю элемент матрицы. Переставить строки и...

Удаления из исходной матрицы строки и столбца, на пересечении которых расположен элемент с min по модулю значением
Из матрицы размером N x M получить матрицу размером (N–1) x (M–1) путем удаления из исходной...

Переставить строки матрицы таким образом, чтобы первый столбец был упорядочен по возрастанию
При помощи случайных чисел ввести матрицу размером 8x10. Переставить строки матрицы таким образом,...

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