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

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

23.10.2013, 19:57. Просмотров 926. Ответов 2
Метки нет (Все метки)

Дана (по строках) действительная матрица размером 7х4. Переставляя ее строки и столпцы, добиться того, что бы найбольший елемент (один з них) попал в верхний левый угол.

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2013, 19:57
Ответы с готовыми решениями:

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

Переставляя строки и столбцы матрицы, поместить наибольший элемент (один из них) в левый верхний угол
Пожалуйста помогите!! очень срочна нужна помощь, cоставьте программу,...

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

Переставляя строки и столбцы матрицы добиться того, чтобы наибольший элемент оказался в верхнем левом углу
Дана матрица размером n x m.Переставляя её строки и столбцы,добиться того,чтобы...

Матрицы: переставляя строки и столбцы, добиться того, чтобы наибольший элемент оказался в верхнем левом углу
Дана матрица размером n x m.Переставляя её строки и столбцы,добиться того,чтобы...

2
Puporev
Модератор
54216 / 41849 / 28920
Регистрация: 18.05.2008
Сообщений: 98,513
23.10.2013, 20:12 #2
Лучший ответ Сообщение было отмечено Eugen20 как решение

Решение

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
uses crt;
const m=7;
      n=4;
var a:array[1..m,1..n] of real;
    i,j,imx,jmx:byte;
    x:real;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:6:2);
    end;
   writeln;
 end;
writeln;
imx:=1;jmx:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>a[imx,jmx] then
 begin
  imx:=i;
  jmx:=j;;
 end;
writeln('Максимальный элемент a[',imx,',',jmx,']=',a[imx,jmx]:0:2);
{перестановка строк}
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 m do
   begin
    x:=a[i,j];
    a[i,j]:=a[i,j-1];
    a[i,j-1]:=x;
   end;
 end;
writeln;
writeln('Перестановка максимального в ячейку [1,1]:');
writeln;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.
0
Eugen20
0 / 0 / 0
Регистрация: 13.10.2013
Сообщений: 19
23.10.2013, 23:08  [ТС] #3
И как к такому блок схему то строить????((
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2013, 23:08

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

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

Переставляя строки и столбцы, добиться того чтобы наибольший элемент оказался в верхнем левом углу
Дана вещественная матрица размером 7x4. Переставляя её строки и столбцы ,...


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

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

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