anyaopalsuk
23.06.2022 01:33

Змінні оголошуються в програмному сердовищі Lazarus в блоці опису змінних,
який починається словом...​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
liiiiiiiiiii
10.08.2021 17:09

После выполнения шага 1 на столе лежит яблоко, которое достали из корзины первым, а вторая корзина пуста. После каждого выполнения шага 2 большее яблоко перемещается в корзину, а меньшее остается на столе. В результате на столе окажется самое маленькое яблоко.

При обосновании корректности циклических алгоритмов полезно использовать понятие инварианта цикла. В случае приведенного алгоритма инвариантом цикла является такое условие «лежащее на столе яблоко — самое маленькое из всех взятых до сих пор». В начале алгоритма условие очевидно выполняется (любое яблоко удовлетворяет этому условию). Условие остается истинным на каждом шаге в соответствии с приведенными правилами. Таким образом, в конце алгоритма, когда все яблоки взяты, получим самое маленькое яблоко из всех.

0,0(0 оценок)
Ответ:
Картофан7777777
20.10.2020 21:43
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-бота