VPF::Задача про спираль ) - Форум программистов

IBS

Дата 4.11.2009, 15:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

получить квадратную матрицу порядка 7, элементами которой являются числа 1,2,3,4,......,49 расположенные в ней по спирали.

типа так:
123
894
765
тока длина строки 7

Я решал раньше, но там длину строки задавал с клавы, однако решение у меня листа на 4 чистого кода, а если ещё блок схему катать, то вообще вешайся))))
Короче знает кто более-менее рациональное решение?

Keeper89

Дата 4.11.2009, 20:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

IBS, в Интернете полно решений, и на Винграде тоже есть smile

: http://forum.vingrad.ru/index.php?showtopi...t&p=1214030

З.Ы. Внизу есть три ссылки, зачем создавать еще темы? smile

Это сообщение отредактировал(а) Keeper89 - 4.11.2009, 20:11

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

THandle

Дата 5.11.2009, 15:28 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Задачка на спираль была одной из задач в нашем прошлогоднем конкурсе... Решений достаточно:

http://forum.vingrad.ru/index.php?showtopi...t&p=1678005

IBS

Дата 5.11.2009, 19:35 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата

Решений достаточно:

Там все решения очень грамоздкие, такое я и сам написал, вот офигенно решение:

Код


uses crt;
const
 n=10;
var
  i,j,di,dj,k,t:integer;
  a: array[1..n,1..n] of integer;
begin
i:=1; j:=0; di:=0; dj:=1;
for k:=1 to n*n do
  begin
  if (i+di<1) or (n<i+di) or (j+dj<1) or (n<j+dj) or (a[i+di,j+dj]<>0) then
    begin t:=di; di:=dj; dj:=-t; end;
  i:=i+di; j:=j+dj; a[i,j]:=k;
  end;
end.

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