Содержание
Часть 1
Введение3
Условие. Вариант 9.3
Анализ постановки задачи3
Интерфейс пользователя4
Алгоритмы5
Программные коды5
Пользовательское меню10
Результаты решения11
Заключение11
Список использованной литературы12
Часть 2
Введение3
Условие. Вариант 9.3
Анализ постановки задачи3
Интерфейс пользователя4
Таблицы объектов (элементов управления интерфейса), их свойств и значений свойств объектов (элементов управления интерфейса)5
Алгоритмы6
Программные коды7
Пользовательское меню11
Результаты решения14
Заключение15
Список использованной литературы16
Выдержка из текста работы
Задан одномерный массив Q(N). В данном массиве выполнить
- Увеличить все кратные пяти элементы массива в два раза, а нечётные уменьшить на единицу. Полученный массив распечатать
- Удалить из вновь образованного массива максимальный элемент. Массив распечатать
- Элементы полученного массива расположить по убыванию. Массив распечатать
- Во вновь образованной последовательности вычислить сумму чётных положительных элементов и вставить это значение перед каждым элементом, кратным одиннадцати. Значения суммы и вновь образованного массива распечатать
Решение
В ячейки Excel введите следующие числа (12, 5, 21, 15, 20, 55, -13, 75, 23, 45, 100, 92, 2, -4, 6 ), откройте окно программного кода и введите следующую программу. N=15.
Программный код:
Option Explicitpr21()a(20) As Integern As Integer, i As Integer, i0 As Integer, s As Integer, j As Integerk As Integer, r As Integermax As Integer, imax As Integer= Val(InputBox("Введите N"))i = 1 To n(i) = Cells(1, i)ii = 1 To na(i) Mod 5 = 0 Then(i) = a(i) * 2Ifa(i) Mod 5 <> 0 Thena(i) Mod 2 <> 0 Then(i) = a(i) — 1IfIfii = 1 To n(3, i) = a(i)i= -3200i = 1 To na(i) > max Then= a(i)= (i)Ifi(5, 1) = "Max=": Cells(5, 2) = maxi = imax To n — 1(i) = a(i + 1)i= n — 1(7, 1) = "Полученный массив"i = 1 To 14(8, i) = a(i)ik = 1 To n — 1i = 1 To n — ka(i) < a(i + 1) Then= a(i)(i) = a(i + 1)(i + 1) = rIfik(10, 1) = "Упорядоченный массив"i = 1 To 14(11, i) = a(i)i= 0i = 1 To na(i) >= 0 Thena(i) Mod 2 = 0 Then= s + a(i)IfIfi(13, 1) = "Сумма четных элементов =": Cells(13, 4) = s= 1i <= na(i) = a(i) Thena(i) Mod 11 = 0 Thenj = n + 1 To i + 1 Step -1(j) = a(j — 1)j(i) = s= n + 1= i + 2= i + 1IfIf = n + 1
Cells(15, 1) = "Новый массив"
If i <= n Theni = 1 To n(16, i) = a(i)i= i + 1= n + 1IfSub
