Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 08.02.2010
Сообщений: 24
1

Дана действительная квадратная матрица

11.10.2010, 12:11. Просмотров 1029. Ответов 2
Метки нет (Все метки)

Hазовем допустимым преобразованием матрицы перестановку двух
строк или двух столбцов. Дана действительная квадратная матрица
порядка n. С помощью допустимых преобразований добиться того,
чтобы один из элементов матрицы, обладающий наибольшим по модулю
значением, располагался в левом верхнем углу матрицы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2010, 12:11
Ответы с готовыми решениями:

Дана действительная квадратная матрица порядка 2n
Дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя ее блоки...

Дана действительная квадратная матрица нечетного порядка n.
Дана действительная квадратная матрица нечетного порядка n. Найти сумму элементов и наибольшее...

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

Дана действительная квадратная матрица порядка 10. В строках с отрицательным элементом на главной диагонали найти сумму всех элементов.
Дана действительная квадратная матрица порядка 10. В строках с отрицательным элементом на главной...

2
3978 / 1705 / 195
Регистрация: 06.10.2010
Сообщений: 3,814
11.10.2010, 12:18 2
Лучший ответ Сообщение было отмечено ro_mashka2000 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  n=4;
var
  a:     array[0..n*n-1] of integer=(-1, 3, 5,-7,
                                      8, 0, 0,-9,
                                      7, 5, 5, 5,
                                      0, 3, 7,-5); {матрица nxn}
  i,max: integer;
begin
    max:=-32768;
    for i:=0 to n*n-1 do             {находим максимальный элемент по модулю}
        if max<abs(a[i]) then
            max:=abs(a[i]);
    a[0]:=max;                       {записываем в левый верхний угол}
end;
1
Модератор
60274 / 45380 / 31317
Регистрация: 18.05.2008
Сообщений: 109,017
11.10.2010, 12:32 3
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,i,j,imx,jmx:byte;
    x:real;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:5:1);
    end;
   writeln;
 end;
writeln;
imx:=1;jmx:=1;
for i:=1 to n 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,']=',a[imx,jmx]:0:1);
{перестановка строк}
if imx>1 then{если строка не первая}
 begin
  for i:=imx downto 2 do{от нее до строки 2}
  for j:=1 to n do
   begin
    x:=a[i,j];
    a[i,j]:=a[i-1,j];{меняем эеиенты соседних строк}
    a[i-1,j]:=x;
   end;
 end;
{также перестановка столбцов}
if jmx>1 then
 begin
  for j:=jmx downto 2 do
  for i:=1 to n do
   begin
    x:=a[i,j];
    a[i,j]:=a[i,j-1];
    a[i,j-1]:=x;
   end;
 end;
writeln('Перестановка максимального в ячейку [1,1]:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5:1);
  writeln;
 end;
readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.10.2010, 12:32

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

Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на глав-ной диагонали и выше неё.
Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные...

действительная квадратная матрица
дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя ее блоки...

дана действительная матрица В(5,6)
очень очень прошу помочь нужно сдать в течении 30 минут.. дана действительная матрица В(5,6)....

дана действительная матрица
дана действительная матрица размера n;m. Получить последовательность b,...,b, где b - это...


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

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

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