0 / 0 / 0
Регистрация: 06.07.2008
Сообщений: 32
1

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

28.11.2008, 20:31. Показов 2670. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
{Программа. Дана (построчно) вещественная матрица
размером 7x4. Переставляя ее строки и столбцы,
добиться того , чтобы наибольший элемент (один из
них) оказался в верхнем левом углу.}

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
program p6_2;
uses crt;
var i,j:integer;
big:integer;
x:array [1..7,1..4] of integer;
begin
clrscr;
randomize;
for i:=1 to 7 do
begin
for j:=1 to 4 do
begin
x[i,j]:= random(30);
end;
writeln;
big:=x[1,1];
for j:=1 to 4 do
begin
for i:=1 to 7 do
begin
if big <x [i,j] then x[1,1]:=x[i,j];
end;
for j:=1 to 4 do
begin
for i:=1 to 7 do
begin
write(x[i,j]:6)
end;
writeln;
end;
end;
write;
readln
end;
end.
Где ошибка? Можно короче сделать?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2008, 20:31
Ответы с готовыми решениями:

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

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

В прямоугольной целочисленной матрице, переставляя местами строки и столбцы, добиться того, чтобы максимальный элемент был в левом верхнем углу
Всем доброго времени суток. Можете помочь вот с заданием. &quot;В прямоугольной целочисленной матрице,...

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

5
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
28.11.2008, 21:28 2
Легче сказать где нет ошибки, а короче можно, все равно ведь не работает.
0
8 / 8 / 0
Регистрация: 25.11.2008
Сообщений: 32
29.11.2008, 02:07 3
программа должна совершать минимальное количество перестановок или все равно?
0
701 / 573 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
29.11.2008, 07:01 4
Цитата Сообщение от Burns999888777 Посмотреть сообщение
Можно короче сделать?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program p6_2;
uses crt;
var i,j:integer;
    x:array [1..7,1..4] of integer;
begin
  clrscr;
  randomize;
  for i:=1 to 7 do
    for j:=1 to 4 do begin
      x[i,j]:= random(30);
      if x[1,1] < x[i,j] then x[1,1]:=x[i,j];
    end;
  for j:=1 to 4 do begin
    for i:=1 to 7 do
      write(x[i, j]:6);
    writeln;
  end;
readln;
end.
1
0 / 0 / 0
Регистрация: 14.03.2014
Сообщений: 1
01.12.2008, 21:59 5
поглиди так:


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
program p6_2;
uses crt;
var i,j:integer;
    x:array [1..7,1..4] of integer;
begin
 clrscr;
 randomize;
 for i:=1 to 7 do
 begin
  for j:=1 to 4 do
  begin
   x[i,j]:= random(30);
   write(x[i,j]:6);
  end;
  writeln;
 end;
 writeln;
 for i:=1 to 7 do
 for j:=1 to 4 do
 begin
  if x [i,j]>x[1,1]  then x[1,1]:=x[i,j];
 end;
 for i:=1 to 7 do
 begin
  for j:=1 to 4 do
  begin
   write(x[i,j]:6)
  end;
  writeln;
 end
end.
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
01.12.2008, 22:15 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Если вам все-таки интересно как должна работать программа, то посмотрите. Правда насчет короче ничего не получится, не тот случай. Даю не ТС, все равно не поймет, для других.

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
uses crt;
const n=7;
      m=4;
var a:array[1..n,1..m]of real;
    i,j,k,imax,jmax:integer;
    max,x:real;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=10*random;
        write(a[i,j]:6:2);
      end;
    writeln;
  end;
max:=a[1,1]; imax:=1; jmax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
   begin
     max:=a[i,j];  {максимум}
     imax:=i;     {номер строки}
     jmax:=j;      {номер столбца}
   end;
writeln('Max=',max:0:2,'  imax=',imax,'  jmax=',jmax);
{перестановка строк}
for j:=1 to m do
  begin
    x:=a[1,j];
    a[1,j]:=a[imax,j]; {меняем местами элементы строки К со строкой, где макс}
    a[imax,j]:=x;
  end;
{перестановка столбцов}
for i:=1 to n do
  begin
    x:=a[i,1];
    a[i,1]:=a[i,jmax];{меняем местами элементы столбца К со столбцом, где макс}
    a[i,jmax]:=x;
  end;
writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:6:2);
    writeln;
  end;
readln
end.
0
01.12.2008, 22:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2008, 22:15
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru