Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 3 882

/ вопрос открыт /

АВЕ, уважаемые эксперты! Хочу задать вопрос по операциям с массивами.
Есть задачка, дана матрица n порядка и нужно повернуть её элементы на 90 нрадусов по часовй стрелке.... Как это сделать?

amigo Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: amigo (статус: 1-ый класс)
Вопрос отправлен: 13 марта 2010, 17:42
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 19 марта 2010, 17:00; участников в обсуждении: 3.
Drinkenz

Drinkenz (статус: 1-ый класс), 13 марта 2010, 20:41 [#1]:

Вот так можно попробовать, иногда работает
procedure TForm1.FormCreate(Sender: TObject);
const n=4;
var x,y: integer;
    a,b: array[0..n-1,0..n-1]of integer;
begin
  for x:=0 to n-1 do
    for y:=0 to n-1 do begin
      b[n-y-1,x]:=a[x,y]; 
      end;
end;
а - исходная матрица, b - повернутая.
Егор

Егор (статус: 10-ый класс), 13 марта 2010, 21:34 [#2]:

вот в прошлый раз ещё хотел спросить, да забыл - почему на фотке девушка? или это у меня со зрением что-то? :)
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
amigo

amigo (статус: 1-ый класс), 19 марта 2010, 17:00 [#3]:

Да вот. Нравится мне она просто)))))))

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:38
Выполнено за 0.02 сек.