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

@Alexzender1 · Регистрация: 27.12.2013

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

Дана целочисленная матрица М(6,6). Поменять местами строку с максимальным элементом на главной диагонали со столбцом с заданным номером m(m<6)
Можно ли написать такую программу, или в задаче ошибка?

@El41 · 27.12.2013, 19:27

Можно всё.

@ГИН · 27.12.2013, 22:06

Да это же проще пареной репы

Добавлено через 3 минуты
задаёшь матрицу как массив массивов, находишь на главной диагонали (m[i,i]) максимум, запоминаешь его номер, вводишь номер строки и swap их, можно процедуркой, и ВСЁ.

@Alexzender1 · 28.12.2013, 10:11 **[ТС]**

можете написать, никак не получается, все перемешивается

@ГИН · 28.12.2013, 15:55

Ладно, шас напишу. Поготдь только немного.

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

Добавлено через 37 секунд

Pascal

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.

@Alexzender1 0 / 0 / 0 Регистрация: 27.12.2013 Сообщений: 2
		1
	Поменять местами строку с максимальным элементом на главной диагонали со столбцом с заданным номером m(m<6) 27.12.2013, 16:45. Показов 861. Ответов 4 Метки нет (Все метки) Дана целочисленная матрица М(6,6). Поменять местами строку с максимальным элементом на главной диагонали со столбцом с заданным номером m(m<6) Можно ли написать такую программу, или в задаче ошибка? 0

@El41 For i:=0 to 150 do 225 / 105 / 108 Регистрация: 05.01.2012 Сообщений: 286
	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

@Alexzender1 0 / 0 / 0 Регистрация: 27.12.2013 Сообщений: 2
	28.12.2013, 10:11 [ТС]	4
	можете написать, никак не получается, все перемешивается 0

	28.12.2013, 15:55

Опции темы