Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2019, 18:56   #1
SkyGir
Пользователь
 
Регистрация: 24.05.2019
Сообщений: 31
По умолчанию Получить целочисленную квадратную матрицу, элементы которой являются членами ряда натуральных чисел и расположены в матрице по спирали

Здравствуйте, помогите, пожалуйста, с решением этой задачи. С двумерными массивами задачи уже решал, но тут мысли вообще не хотят появляться. Заранее спасибо! VBA
Код:
    Sub Massiv()
    Dim a() As Double, i As Integer, j As Integer, s$, n As Integer, num As Integer, n_spir As Integer, m As Integer
    n = InputBox(“Введите количество элементов массива", "Определение размера массива")
    ReDim a(1 To n, 1 To n) As Double
    num = 1
    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
    s = ""
    For i = 1 To n
        For j = 1 To n
            s = s & a(i, j) & "   "
        Next j
        s = s & Chr(13)
    Next i
    MsgBox("Massiv: " & Chr(13) & s)
End Sub
Вот правильный код, может кому пригодится

Последний раз редактировалось SkyGir; 26.05.2019 в 16:05.
SkyGir вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal Получить действительную квадратную матрицу порядка 8, элементами которой являются числа а1, а2,....а64 users1 Помощь студентам 1 20.01.2017 15:34
Получите целочисленную квадратную матрицу того же порядка, в которой элемент равен единице Makavelli Microsoft Office Word 17 19.12.2011 19:07
дано целое число n. Получить целочисленную матрицу b размером n x n для которой b(i,j)=i-3j Романн Помощь студентам 1 07.06.2011 19:58
фортран, ввести квадратную матрицу 4-го порядка ,элементы которой заданы для ввода построчно slepen346 Помощь студентам 0 09.12.2008 18:58