Матрица, повернуть элементы.

@М@лышка · Регистрация: 02.06.2009

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

Здравстуйте, помогите пожалуйста решить задачку:Дана матрица, повернуть 8 смежных элементов матрицы на 90 градусов по часовой стрелке Помогите плиз.. Искала по форуму похожих задач не нашла

Буду очень благодарна..

Добавлено через 3 часа 11 минут 15 секунд
Помогите пожалуйста.. Вся программа и не нужна, хотя бы как повернуть элементы...

@lexus_ilia · 21.06.2009, 16:12

Какое значение имеет слово "смежные" элементы и в какую сторону поворачивать ?

@М@лышка · 21.06.2009, 16:20 **[ТС]**

Ну вот например дана матрица 5x7
1 1 1 1 1 1 1
2 2 2 2 2 2 2
3 3 3 3 3 3 3
4 4 4 4 4 4 4
5 5 5 5 5 5 5
Пользователь ввел например элемент 2;2 Должна получиться следующая:
3 2 1 1 1 1 1
3 2 1 2 2 2 2
3 2 1 3 3 3 3
4 4 4 4 4 4 4
5 5 5 5 5 5 5
Поворачивать по часовой стрелке..

@lexus_ilia · 21.06.2009, 16:22

А если например введено (1,1) то у такого элемента только 3 смежных элемента, что делать в таком случае ?

@М@лышка · 21.06.2009, 16:25 **[ТС]**

Ну я думала как-нибудь ограничить ввод пользователем угловых элементов..

@lexus_ilia · 21.06.2009, 17:13

Пока что только так придумал, что-то мысли не идут в голову.

Pascal

Program xa;
uses
  crt;
Const
  Count=20;
type
  TMatr=array [1..Count,1..Count] of integer;
var
  matr:TMatr;
  i,j,m,n,tmpi,tmpj:integer;
  TmpMas:array [1..3] of integer;
Procedure PrintMatr(n,m:integer);
var
  i,j:integer;
begin
  for i:=1 to n do
  begin
    Writeln;
    for j:=1 to m do
      Write(matr[i,j]:5)
  end;
  Writeln;
end;
 
begin
  repeat
    clrscr;
    Writeln('VVedite Pe3mePHOCT'' Matpul/bl (NxM)');
    Write('n= ');
    readln(n);
    Write('m= ');
    readln(m);
  until (m>2) and (n>2);
  Writeln;
  Writeln('VVedite elemeHTbl matPil/bl');
  for i:=1 to n do
    for j:=1 to m do
    begin
      Write('A[',i,',',j,']=');
      readln(matr[i,j])
    end;
  repeat
    clrscr;
    Writeln('Vvedite koordinaTbl elementa');
    Write('i= ');
    readln(Tmpi);
    Write('j= ');
    Readln(tmpj);
  until (Tmpi<n) and (tmpi>1) and (tmpj<m) and (tmpj>1);
  clrscr;
  PrintMatr(n,m);
  readln;
  for j:=1 to 2 do  {3apominaem }
    TmpMas[j]:=Matr[Tmpi-1,Tmpj-1+j];
 
  Matr[Tmpi-1,tmpj+1]:=Matr[TMpi-1,Tmpj-1];
  Matr[Tmpi-1,Tmpj]:=Matr[Tmpi,Tmpj-1];
  Matr[Tmpi-1,Tmpj-1]:=Matr[Tmpi+1,Tmpj-1];
 
  Matr[Tmpi,Tmpj-1]:=Matr[Tmpi+1,Tmpj];
  Matr[Tmpi+1,Tmpj-1]:=Matr[Tmpi+1,Tmpj+1];
 
  Matr[TMpi+1,Tmpj]:=Matr[Tmpi,Tmpj+1];
  Matr[Tmpi+1,TMpj+1]:=TmpMas[2];
  Matr[Tmpi,TMpj+1]:=TmpMas[1];
  PrintMatr(n,m);
  readln
end.

@М@лышка · 21.06.2009, 18:17 **[ТС]**

Спасибо lexus_ilia А можно например создать переменные. Вот так например:

Pascal

1 2	a:=Tmpi-1; a1:=Tmpj-1; b:=Tmpi+1; b1:=Tmpj+1

И дальше работать с ними следующим образом:

Pascal

for j:=1 to 2 do  {3apominaem }
    TmpMas[j]:=Matr[a,a1-1+j];
 
  Matr[a,b2+1]:=Matr[a,a1];
  ........

?

@lexus_ilia · 21.06.2009, 18:19

естественно, просто я не сторонник лишних переменных

@М@лышка · 21.06.2009, 19:37 **[ТС]**

Спасибочки Вам еще раз)))

Добавлено через 1 час 15 минут 33 секунды
lexus_ilia пытаюсь разобраться в Вашей программе, но вот возникло несколько вопросов.

Pascal

1	for j:=1 to 2 do {3apominaem }

Почему счетчик запускается до 2-х???

Pascal

1 2	Matr[Tmpi+1,TMpj+1]:=TmpMas[2]; Matr[Tmpi,TMpj+1]:=TmpMas[1];

И вот здесь почему меняем местами с первым и вторым элементами???
Не могли бы Вы ответить на эти вопросики...

@lexus_ilia · 21.06.2009, 20:38

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

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	21.06.2009, 20:38	10
	Возьмите пожалуйсто листочек, напишите Вашу матрицу, выпишите все элементы которые надо поменять с их "координатами" и Вы всё поймёте. 0

@М@лышка 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 26
		1
	Матрица, повернуть элементы. 21.06.2009, 15:59. Показов 892. Ответов 9 Метки нет (Все метки) Здравстуйте, помогите пожалуйста решить задачку:Дана матрица, повернуть 8 смежных элементов матрицы на 90 градусов по часовой стрелке Помогите плиз.. Искала по форуму похожих задач не нашла Буду очень благодарна.. Добавлено через 3 часа 11 минут 15 секунд Помогите пожалуйста.. Вся программа и не нужна, хотя бы как повернуть элементы... 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	21.06.2009, 16:12	2
	Какое значение имеет слово "смежные" элементы и в какую сторону поворачивать ? 0

@М@лышка 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 26
	21.06.2009, 16:20 [ТС]	3
	Ну вот например дана матрица 5x7 1 1 1 1 1 1 1 2 2 2 2 2 2 2 3 3 3 3 3 3 3 4 4 4 4 4 4 4 5 5 5 5 5 5 5 Пользователь ввел например элемент 2;2 Должна получиться следующая: 3 2 1 1 1 1 1 3 2 1 2 2 2 2 3 2 1 3 3 3 3 4 4 4 4 4 4 4 5 5 5 5 5 5 5 Поворачивать по часовой стрелке.. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	21.06.2009, 16:22	4
	А если например введено (1,1) то у такого элемента только 3 смежных элемента, что делать в таком случае ? 0

@М@лышка 0 / 0 / 0 Регистрация: 02.06.2009 Сообщений: 26
	21.06.2009, 16:25 [ТС]	5
	Ну я думала как-нибудь ограничить ввод пользователем угловых элементов.. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	21.06.2009, 18:19	8
	естественно, просто я не сторонник лишних переменных 1