Заполнение матрицы спиралью - корректировка кода

@Leh4an · Регистрация: 22.10.2014

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

Код вроде работает,но не хочет заполняться в консольке по спирали. Можете исправить эту маленькую проблему?

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
51
52
53
54
55
#include "stdafx.h"
#include <stdio.h>
#include <math.h>
#include <conio.h>
 
int main()
{
    int i, j, n, c, v, x, y, dx, dy, p, lm, lm1;
    int a[100][100];
 
    printf ("n? ");
    scanf_s ("%d", &n);
 
    c = n * n;
    v = 1;
    x = 0; y = 0; dx = +1; dy = 0; p = 0; lm = n; lm1 = -1;
 
    while (v <= c) 
    {
        a[x][y] = v;
        v = v + 1;
        x = x + dx; y = y + dy;
 
        if (x + dx == lm) 
        {
            dy = dx;
            dx = 0;
        }
        else if (y + dy == lm) 
        {
            dx = -dy;
            dy = 0;
        }
        else if (x + dx == lm1) 
        {
            dy = dx;
            dx = 0;
        }
        else if (y + dy == lm1 + 1 && dy) 
        {
            lm1 = lm1 + 1;
            lm = lm - 1;
            dx = 1; dy = 0;
        }
    }
 
    for (i = 0; i < n; i++) 
    {
        for (j = 0; j < n; j++)
            printf("%5d", a[i][j]);
        printf("n");
    }
    _getch();
    return 0;
}

@Alex77755 · 23.12.2014, 17:25

Код вроде работает

Неа! В бейсике не работает!

Добавлено через 2 минуты
В VBA код такой:

Visual Basic
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
Sub Spiral()
   Dim N As Byte, i As Byte, m As Byte
   Dim num As Integer
   Dim n_spir As Integer
   Dim r As Range
   
   Cells.ClearContents
   Cells.Borders.LineStyle = xlNone
   Set r = Range("B2")
   num = 1
   N = Val(InputBox("Введи N:", , 10))
   If N = 0 Then Exit Sub
   ReDim a(1 To N, 1 To N) As Integer
   For n_spir = 0 To N \ 2 - 1
                   m = N - 1 - 2 * n_spir
      For i = 1 To m
         a(n_spir + 1, i + n_spir) = num: num = num + 1 'вправо
      Next i
      For i = 1 To m
         a(i + n_spir, N - n_spir) = num: num = num + 1   'вниз
      Next i
      For i = 1 To m
         a(N - n_spir, N - n_spir - i + 1) = num: num = num + 1     'влево
      Next i
      For i = 1 To m
         a(N - n_spir - i + 1, n_spir + 1) = num: num = num + 1  'вверх
      Next i
   Next n_spir
   If N Mod 2 = 1 Then a(N \ 2 + 1, N \ 2 + 1) = N ^ 2
   r.Resize(N, N) = a:   формат r, N
End Sub

@Leh4an · 23.12.2014, 17:55 **[ТС]**

зачем мне в vba то? мне просто нужно переделать чутка код,выяснить где нужно дополнить чтобы выдовались чиса по СПИРАЛИ.

Комментарий модератора

Перемещено из раздела VBA в раздел C++ для начинающих

@Апострофф · 23.12.2014, 19:23

Сообщение от Leh4an

зачем мне в vba то?

А зачем вы залезли в раздел VBA?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .