anokhinsema
13.07.2022 20:26

Ваня придумал новый алгоритм сортировки и сейчас тренируется на кубиках с цифрами, чтобы понять, как он работает. перед ним на столе лежат кубики с числами от 1 до 10 (на каждом кубике записано одно число), выложенные в таком порядке: 5 4 10 1 6 7 8 9 2 3 за одну операцию ваня берет несколько рядом стоящих кубиков как одну конструкцию, переворачивает и кладет на прежнее место. например, если бы кубики лежали в таком порядке: 1 2 3 4 5 6 7 8 9 10, а ваня взял бы кубики начиная с кубика с цифрой 4 и заканчивая кубиком с цифрой 9 и перевернул бы, то получилась бы такая последовательность: 1 2 3 9 8 7 6 5 4 10. то, что какие-то кубики после выполнения подобных операций окажутся лежащими вверх ногами, ваню не смущает. кроме того, ваня различает кубик с цифрой 6 и кубик с цифрой 9 (они разного цвета, поэтому невозможно одну цифру получить из другой при перевороте). ване понять, какое наименьшее количество таких операций потребуется, чтобы кубики стали лежать в порядке возрастания: 1 2 3 4 5 6 7 8 9 10. комментарий. если бы у него было всего 4 кубика и они лежали в таком порядке: 4 1 3 2, то наименьшее количество операций было бы равно двум: сначала переворачиваем кусок из первых двух кубиков слева, получаем 1 4 3 2, затем переворачиваем кусок из трех кубиков справа, получаем 1 2 3 4.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
makskos4444
05.06.2023 04:22
Sub Ex()
    Dim Y() As Integer, X() As Integer
    Dim i As Integer, n As Integer
    Range(Cells(1, 2), Cells(100, 2)).ClearContents
    i = 1
    Do While Len(Cells(i, 1).Value) <> 0
        i = i + 1
    Loop
    n = i - 1
    ReDim Y(1 To n), X(1 To n)
    For i = 1 To n
        Y(i) = Cells(i, 1).Value
        X(i) = Y(i) + i
        Cells(i, 2).Value = X(i)
    Next i
End Sub

Предполагается, что данные располагаются в колонке А, начиная с ячейки А1
В колонку B будет выведен результирующий массив.
Признак конца считывания - пустая ячейка в колонке А
0,0(0 оценок)
Ответ:
nourdana
05.06.2023 04:22
Sub Ex()
    Dim Y() As Integer, X() As Integer
    Dim i As Integer, n As Integer
    Range(Cells(1, 2), Cells(100, 2)).ClearContents
    i = 1
    Do While Len(Cells(i, 1).Value) <> 0
        i = i + 1
    Loop
    n = i - 1
    ReDim Y(1 To n), X(1 To n)
    For i = 1 To n
        Y(i) = Cells(i, 1).Value
        X(i) = Y(i) + i
        Cells(i, 2).Value = X(i)
    Next i
End Sub

Предполагается, что данные располагаются в колонке А, начиная с ячейки А1
В колонку B будет выведен результирующий массив.
Признак конца считывания - пустая ячейка в колонке А
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота