Массив A[2n+1][2n+1] заполнить по спирали против часовой стрелки, начиная из центра

@Shadow21200 · Регистрация: 17.01.2019

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

Можете пожалуйста помочь, я должен решить задачки и вот одна из них:
Дано число n. Создайте массив A[2*n+1][2*n+1] и заполните его по спирали, начиная с числа 0 в центральной клетке A[n+1] [n+1]. Спираль выходит вверх, далее закручивается против часовой стрелки
При n=2 вывод должен быть таким
12 11 10 9 24
13 2 1 8 23
14 3 0 7 22
15 4 5 6 21
16 17 18 19 20

@Puporev · 17.01.2019, 09:10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses crt;
var a:array[1..19,1..19]of integer;
    n,x,y,k,z:integer;
begin
clrscr;
repeat
write('Введите половину размер матрицы-1 от 1 до 9 n=');
readln(n);
until n in [1..9];
//середина матрицы
x:=n+1;
y:=n+1;
n:=2*n+1; //размер матрицы
k:=0;//номер в ячейке
for z:=0 to n*n-1 do//количество ячеек
 begin
  a[x,y]:=z;
  case k mod 4 of
   0:begin
     dec(x);//вверх
     if x=n-y then inc(k);
     end;
   1:begin
     dec(y);//влево
     if y=x then inc(k);
     end;
   2:begin
     inc(x);//вниз
     if x=n-y+1 then inc(k);
     end;
   3:begin
     inc(y);//вправо
     if y=x then inc (k);
     end;
   end;
  end;
 for x:=1 to n do
  begin
    for y:=1 to n do
    write(a[x,y]:4);
    writeln;
  end;
readln
end.

Добавлено через 2 минуты
Внес небольшие изменения под Турбо Паскаль.

@Shadow21200 · 17.01.2019, 09:11 **[ТС]**

Puporev, Спасибо))

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .

@Shadow21200 0 / 0 / 0 Регистрация: 17.01.2019 Сообщений: 13

	Массив A[2n+1][2n+1] заполнить по спирали против часовой стрелки, начиная из центра 17.01.2019, 08:34. Показов 6277. Ответов 2 Метки pascal abc (Все метки) Можете пожалуйста помочь, я должен решить задачки и вот одна из них: Дано число n. Создайте массив A[2n+1][2n+1] и заполните его по спирали, начиная с числа 0 в центральной клетке A[n+1] [n+1]. Спираль выходит вверх, далее закручивается против часовой стрелки При n=2 вывод должен быть таким 12 11 10 9 24 13 2 1 8 23 14 3 0 7 22 15 4 5 6 21 16 17 18 19 20 0

@Shadow21200 0 / 0 / 0 Регистрация: 17.01.2019 Сообщений: 13
	17.01.2019, 09:11 [ТС]
	Puporev, Спасибо)) 0

Опции темы

Массив A[2*n+1][2*n+1] заполнить по спирали против часовой стрелки, начиная из центра

Решение

Массив A[2n+1][2n+1] заполнить по спирали против часовой стрелки, начиная из центра