Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
dreaminsun
0 / 0 / 1
Регистрация: 22.02.2013
Сообщений: 19
1

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

15.03.2013, 16:19. Просмотров 849. Ответов 1
Метки нет (Все метки)

Задана квадратная матрица А(n,n), n<=20. Разработать программу, которая перестановками рядков и столбов превращает эту матрицу так, чтобы максимальный элемент матрицы (считается, что он единственный) разместился в левом верхнем углу.
помогите пожалуйста
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2013, 16:19
Ответы с готовыми решениями:

Переставлять строки и столбцы матрицы до тех пор, пока наибольший элемент не окажется в верхнем левом углу
Помогите пожалуйста. Сам не смог. Условие: дана матрица размером NxM , добиться того, чтобы...

Пока ввод успешен и не достигнут EOF...
#include &lt;iostream&gt; #include &lt;fstream&gt; #include &lt;cstdlib&gt;// poddergka exit() const int...

Ввод, пока не достигнут конец ввода
Доброго времени суток. Нужно заполнить массив, пока не окончен ввод(кол-во элементов массива...

Находить сумму цифр числа n, пока результат не будет состоять из одной цифры
находить сумму цифр числа n( любого от 1 до 10^9)пока результат не будет состоять из одной цифры

Запрет перехода на другие элементы формы, пока не будет заполнен TextBox
Подскажите пожалуйста как проще всего запретить переход на другие элементы формы пока не введен...

1
Valery__
233 / 223 / 146
Регистрация: 19.03.2012
Сообщений: 369
15.03.2013, 17:26 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Program arr;
 Const 
        n=5;
        m=5;
 Type
        Mas1=array[1..n,1..m] of integer;
 var
        a: mas1;{основной массив}
        k,k1,max,str,stb: integer;
 BEGIN
  randomize;
  max:=0;  
  for k1:=1 to n do
    begin
      for k:=1 to m do
        begin
          a[k1,k]:=random(20)+1;
          write(a[k1,k]:4);
          if max<a[k1,k] then 
            begin
              max:=a[k1,k];
              str:=k1;
              stb:=k;
            end
       end;
      writeln;
    end;
  writeln;
  Writeln('max -> a[',str,',',stb,']= ',max);
  writeln;
  {перестановка столбцов}
  for k1:=1 to n do
    begin
      max:=a[k1,stb];
      a[k1,stb]:=a[k1,1];
      a[k1,1]:=max;
    end;
  {перестановка строк}
  for k:=1 to m do
    begin
      max:=a[str,k];
      a[str,k]:=a[1,k];
      a[1,k]:=max;
    end;
  for k1:=1 to n do
    begin
      for k:=1 to m do
        write(a[k1,k]:4);
      writeln;
    end;
END.
5 6 19 9 5
12 13 20 16 3
1 20 14 20 8
2 7 13 4 18
1 5 10 6 16

max -> a[2,3]= 20

20 13 12 16 3
19 6 5 9 5
14 20 1 20 8
13 7 2 4 18
10 5 1 6 16
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2013, 17:26

Определить значение угла, при котором будет достигнут максимальный объем
Используя методики выбора оптимального решения исследовать зависимость объема и угла V=V(α) и...

Написать цикл, который будет выводить на экран элементы этого массива до тех пор, пока их сумма не превысит 35
помогите с решением задачи Дан массив: $arr = array(10, 9, 8, 7, 6, 5, 4, 3, 2, 1). Написать цикл,...

Вводить пятизначное число пока не будет введено правильноеповторять ввод, пока не будет введено пятизначное число. Не получается выполнить задание.
#include &lt;iostream&gt; using namespace std; int main() { setlocale(LC_ALL, &quot;rus&quot;); cout &lt;&lt;...


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

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

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