На ленте расположен массив из 2n меток. Составить программу, по которой машина раздвинет на расстояние в одну клетку две половины данного массива. Головка расположена над массивом.
Randomize() Dim k As Integer Dim n As Integer n = Rnd() * 100 1 ReDim A(n) For k = 0 To n A(k) = Rnd() * -1000 500 Next
Dim Dump As Integer Dim u As Integer u = InputBox("Введите номер элемента для встанвки в пределах от 0 до " & n) ReDim Preserve A(n 1) For k = n 1 To u 1 Step -1 Dump = A(k) A(k) = A(k - 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 A(k - 1) = Dump Next
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
