VPF::[Delphi] Поворот матрицы - Форум программистов

kyubii

Дата 24.12.2006, 21:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Задана целочисленная квадратная матрица A(n,n) n<=7.

Повернуть её на 90* по часовой стрелке.

Напечатать исходную матрицу,а нижу - сформированную.

Дополнительных массивов не использовать.

СУВ.

Это сообщение отредактировал(а) kyubii - 25.12.2006, 23:20

anwe

Дата 25.12.2006, 23:25 (ссылка)

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

Загрузка ...

Опытный

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

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

Относительно какой точки (элемента)?

anwe

Дата 26.12.2006, 02:16 (ссылка)

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

Загрузка ...

Опытный

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

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

Да, погарячился. Вращать можно относительно любого элемента.
Для инициализации элементов не использовал randomize, так как цикл быстрый и это даст одинаковые элементы для строк. Зато в этом варианте последовательности элементов от запуска к запуску будут одинаковые, но это не есть данная задача, если надо доделаешь.
Кинь на форму edit, memo, button.

Код


procedure TForm1.Button1Click(Sender: TObject);
var n,i,j,k,l:Byte;
a:array of array of Integer;  //это твой неинициализированный массив
s:String;
begin
s:='';
n:=StrToInt(Edit1.Text);
SetLength(a,n);
for i:=0 to n-1 do
SetLength(a[i],n);
for i:=0 to n-1 do
begin
    for j:=0 to n-1 do
    begin
    a[i,j]:=Random(j+100);   //произвольно
    s:=s+IntToStr(a[i,j])+#09;
    end;
Memo1.Lines.Add(s);
s:='';
end;
Memo1.Lines.Add('-----------------');
for i:=0 to n-1 do
SetLength(a[i],2*n);  //увеличение исходного массива
l:=n;
k:=0;
for j:=0 to n-1 do
begin
    for i:=n-1 downto 0 do  //столбцы "переворачиваются" в строки
    begin                 
    a[k,l]:=a[i,j];
    s:=s+IntToStr(a[k,l])+#09;
    inc(l);
    end;
inc(k);
l:=n;
Memo1.Lines.Add(s);
s:='';
end;
end;

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