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

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

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

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

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

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

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

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

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

2
murderer
4289 / 1554 / 155
Регистрация: 06.10.2010
Сообщений: 3,443
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
Puporev
Модератор
56559 / 43264 / 29909
Регистрация: 18.05.2008
Сообщений: 102,904
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2010, 12:32

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

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

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


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

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

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