Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 27.12.2013
Сообщений: 2
1

Поменять местами строку с максимальным элементом на главной диагонали со столбцом с заданным номером m(m<6)

27.12.2013, 16:45. Просмотров 658. Ответов 4
Метки нет (Все метки)

Дана целочисленная матрица М(6,6). Поменять местами строку с максимальным элементом на главной диагонали со столбцом с заданным номером m(m<6)
Можно ли написать такую программу, или в задаче ошибка?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2013, 16:45
Ответы с готовыми решениями:

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n.
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером т
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером m
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

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

__________________
4
For i:=0 to 150 do
223 / 104 / 107
Регистрация: 05.01.2012
Сообщений: 280
27.12.2013, 19:27 2
Можно всё.
0
1 / 1 / 4
Регистрация: 16.10.2011
Сообщений: 29
27.12.2013, 22:06 3
Да это же проще пареной репы

Добавлено через 3 минуты
задаёшь матрицу как массив массивов, находишь на главной диагонали (m[i,i]) максимум, запоминаешь его номер, вводишь номер строки и swap их, можно процедуркой, и ВСЁ.
0
0 / 0 / 0
Регистрация: 27.12.2013
Сообщений: 2
28.12.2013, 10:11  [ТС] 4
можете написать, никак не получается, все перемешивается
0
1 / 1 / 4
Регистрация: 16.10.2011
Сообщений: 29
28.12.2013, 15:55 5
Ладно, шас напишу. Поготдь только немного.

Добавлено через 56 минут
Вот лови, только тут без процедур, если надо будет сам уже переделаешь.

Добавлено через 37 секунд
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
  n = 6;
 
 
type
  t_arr = array[1..n] of real;
  t_matr = array[1..n] of t_arr;
 
 
var
  i, j, ns, mii: byte;
  m: t_matr;
  max: real;
  t:t_arr;
 
begin
  writeln('Введите матрицу 6x6 посимвольно:');
  for i := 1 to n do
    for j := 1 to n do read(m[i, j]);
  write('Введите номер строки, с которой будет происходить обмен ns=');
  repeat
    read(ns);
  until ns in [1..n];
  max := m[1, 1];
  mii := 1;
  for i := 1 to n - 1 do
    for j := 1 to n - 1 do
      if max < m[i + 1, i + 1] then
      begin
        max := m[i + 1, i + 1];
        mii := i + 1;
      end;
  t:=m[mii];
  m[mii]:=m[ns];
  m[ns]:=t;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(m[i, j]:4);
    writeln;
  end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2013, 15:55

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

Поменять местами строку матрицы с максимальным элементом на главной диагонали со строкой с заданным номером
Задана квадратная матрица. Переставить строку с максимальным элементом на главной диагонали со...

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером n
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять в матрице местами строку с максимальным элементом на главной диагонали со строкой с заданным номером.
Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со...

Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером
Здравствуйте. Не могу вот осилить задачку, прошу помощи. В поиске вбивал и не нашел ее решения....


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

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

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