Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 21.10.2013
Сообщений: 3

Заполнение массива змейкой

14.11.2013, 04:45. Показов 1906. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Заполнить массив n*n змейкой. При n = 5 массив выглядит так:

21 20 19 18 17
22 13 14 15 16
23 12 _7 _6 _5
24 11 _8 _3 _4
25 10 _9 _2 _1
(_n - это для красоты, потому что на форуме убираются лишние пробелы)

Если пропустил где-то на форуме - извините. В основном встречал только диагональное заполнение и обычные спирали.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.11.2013, 04:45
Ответы с готовыми решениями:

Заполнение массива "змейкой"
Написать программу, заполняющий квадратный массив n×n (n – нечётное) по «змейке». пример для n=5; 0 0 3 0 0 0 2 10 4 0 ...

Матрица: заполнение змейкой
Обьясните пожалуйста , не могу понять. Это получаеться с а1 по а64 как змейка идёт? Даны действительные числа a1,...,a64. Получить...

Заполнение массива змейкой
Нужно создать программу на Паскале, которая автоматически будет заполнять звездочками массив в выбранном направлении. Имеется готовый и...

5
 Аватар для zvoronz
273 / 241 / 56
Регистрация: 29.05.2012
Сообщений: 889
14.11.2013, 05:43
Вот один из способов на С++, немного громоздкий
C++
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
45
46
47
48
49
50
#include <cstdlib>
#include <iostream>
#include <iomanip>
 
using namespace std;
 
int main(int argc, char *argv[])
{
    const int N = 8;
    int k = 1;
    int a[N][N] = {{0}};
    
    int i = N - 1, j = N - 1;
    
    a[i][j] = k;
    int n2 = N * N;
    int f = 1;
    int l = 2, t = 1, r = 1, d = 2;
    while(k != n2)
    {
        if(f)
        {
             a[i][--j] = ++k;
             for(int m = 0; m < t; ++m) a[--i][j] = ++k;
             for(int m = 0; m < r; ++m) a[i][++j] = ++k;
             t += 2; r += 2;
             f = 0;
        }
        else
        {
             a[--i][j] = ++k;
             for(int m = 0; m < l; ++m) a[i][--j] = ++k;
             for(int m = 0; m < d; ++m) a[++i][j] = ++k;
             l += 2; d += 2;
             f = 1;
        }                
    }
    
    for(i = 0; i < N; ++i)
    {
          for(j = 0; j < N; ++j)
          {
                cout << setw(2) << a[i][j] << " ";
          }
          cout << endl;
    }           
    
    system("PAUSE");
    return EXIT_SUCCESS;
}
1
0 / 0 / 0
Регистрация: 21.10.2013
Сообщений: 3
14.11.2013, 06:27  [ТС]
Увы и ах, С++ я не изучал. В этом коде я понимаю максимум 1/3, но спасибо. Попробую разобраться.
0
 Аватар для zvoronz
273 / 241 / 56
Регистрация: 29.05.2012
Сообщений: 889
14.11.2013, 08:28
Вот держи на Pascal ABC.NET
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
program snake;
 
const N = 8;
 
var
  k, i, j, n2, f, l, t, r, d, m: integer;
  a: array[0..N-1, 0..N-1] of integer;
 
begin
  k := 1;
  i := N - 1; j := N - 1;
  a[i,j] := k;
  l := 2; t := 1; r := 1; d := 2;
  f := 1;
  n2 := N * N;
  while n2 <> k do
  begin
    if f = 1 then begin
      Inc(k); Dec(j);
      a[i,j] := k;
      for m := 1 to t do
      begin
        Dec(i); Inc(k);
        a[i][j] := k;
      end;
      for m := 1 to r do
      begin
        Inc(j); Inc(k);
        a[i][j] := k;
      end;
      t := t + 2; r := r + 2;
      f := 0;
    end
    else begin
      Inc(k); Dec(i);
      a[i,j] := k;
      for m := 1 to l do
      begin
        Dec(j); Inc(k);
        a[i][j] := k;
      end;
      for m := 1 to d do
      begin
        Inc(i); Inc(k);
        a[i][j] := k;
      end;
      l := l + 2; d := d + 2;
      f := 1;
    end;
  end;
  
  for i := 0 to N-1 do
  begin
    for j := 0 to N-1 do
      write(a[i,j]:3, ' ');
    writeln;
  end;
end.
1
0 / 0 / 0
Регистрация: 21.10.2013
Сообщений: 3
14.11.2013, 08:40  [ТС]
Огромное спасибо. Сейчас хоть разберусь что, да почему.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33414 / 21523 / 8237
Регистрация: 22.10.2011
Сообщений: 36,923
Записей в блоге: 12
14.11.2013, 13:54
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Зачем столько циклов?

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
const
  n = 10;
  dt : array[0 .. 5, 1 .. 2] of integer =
  ((-1, 0), (0, -1), (1, 0), (0, -1), (-1, 0), (0, 1));
 
var
  a : array[1 .. n, 1 .. n] of integer;
  i, j, X, Y : integer;
  step, loop, curr_dt : Integer;
begin
  X := n; Y := n;
  a[Y, X] := 1;
 
  step := 0;
  curr_dt := 0;
 
  i := 2;
  while i <= sqr(n) do
  begin
    if curr_dt mod 3 = 0 then loop := 1
    else
      loop := (1 + 2*step + (curr_dt div 3));
 
    for j := 1 to loop do
    begin
      Inc(X, dt[curr_dt, 1]);
      Inc(Y, dt[curr_dt, 2]);
      A[Y, X] := i;
      inc(i);
    end;
 
    curr_dt := (curr_dt + 1) mod 6;
    if curr_dt = 0 then inc(step);
  end;
 
  for i := 1 to n do
  begin
    for j := 1 to n do write(A[i, j]:4);
    writeln;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.11.2013, 13:54
Помогаю со студенческими работами здесь

Заполнение массива диагональной змейкой
Приветствую. Полазал по форуму, но заполнение матрицы диагональной змейкой на удивление не нашел, ну или она лежит мертвым грузом в темах...

заполнение двумерного массива змейкой
Здравствуйте. Помогите решить задачу: Дано число N и одномерный массив, состоящий из N в квадрате целых элементов. Заполнить двумерный...

Заполнение двумерного массива змейкой
Дан двумерный массив размером 10х10, заполнить змейкой слева-направо, снизу-вверх, таким образом: Набросок: var n,i,j,k:integer; ...

Заполнение 2-мерного массива "змейкой"
Доброго времени суток! Попалась интересная задача, которую необходимо решить. Числа я отсортировал, упорядочил в 1-мерном массиве, но...

Заполнение массива "змейкой"
Дано натуральное N (1N10). Заполнить матрицу порядка NN целыми числами 0, 1, 2, 3, …, N2–1 в соответствии со схемой расположения,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru