VPF::Всё они, МАССИВЫ! - Форум программистов

Arteom

Дата 20.12.2006, 17:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 19.12.2006

Репутация: нет
Всего: нет

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

За любые мысли, зарание блогодарен!

Rodman

Дата 20.12.2006, 17:10 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Если Вам нужно сделать работу, обращайтесь в Центр помощи

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Zero

Дата 20.12.2006, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(Arteom @ 20.12.2006, 17:04

)

За любые мысли, зарание блогодарен!

В начале просмотрев всю матрицу находишь максимальный элемент, а потом меняешь первую строку и ту в которой находиться этот максимальный элемент. И тоже самое со столбцами.

PrinceMike

Дата 20.12.2006, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1

гыыыыыыыыыыыы))))))))))))
это моя задача)) на днях решал))) ты случайно не в РГУ учися? smile

ну вот те код

Код


program lab9;
uses CRT;
const
  N=4;
  M=7;
var
  i,j:integer;
  a:array[1..m,1..n] of real;
  str:array[1..m] of real;
  stl:array[1..n] of real;
  nstr,nstl:byte; max:real;
  f:text;
Begin
clrscr;
assign(f,'otv.pas');rewrite(f);
Randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j] :=random(100);
write (f,'sformirovannii massiv');
writeln (f);
for i:=1 to m do
begin
for j:=1 to n do
write(f,a[i,j]:5:2,' ');
writeln(f);
end;
max:=a[1,1];
nstr:=1; nstl:=1;
for i:=1 to m do
for j:=1 to n do
 if a[i,j]>max then
  begin
  max:=a[i,j];
  nstr:=i;
  nstl:=j
  end;
for i:=1 to m do
 begin
 stl[i]:=a[i,1];
 a[i,1]:=a[i,nstl];
 a[i,nstl]:=stl[i]
 end;
for j:=1 to n do
 begin
 str[j]:=a[1,j];
 a[1,j]:=a[nstr,j];
 a[nstr,j]:=str[j]
 end;
write (f,'gotovii MaccuB');
writeln (f);
for i:=1 to m do
 begin
 for j:=1 to n do
 write (f,a[i,j]:5:2,'  ');
 writeln (f)
 end;
 close(f);
End.

Это сообщение отредактировал(а) PrinceMike - 20.12.2006, 23:43

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »