Образец выполнения задания

Задан массив чисел Х(n). Найти сумму положительных чисел, стоящих на четных позициях.

1. Входными данными являются числа массива X(n).

2. Выходными данными – значение суммы чисел S.

3. Проектируем форму:

На форме спроектированы следующие элементы управления:

Label (Сумма чисел равна)

ComboBox (для ввода массива чисел),

CommandButton (Добавить, Удалить, Очистить, Расчет, Выход).

При проектировании данной формы использованы свойства элементов управления:

Alignment - для выравнивания текста,

Caption (для элементов управления Label, CommandButton),

Text (очистка элемента TextBox и ComboBox),

Font – для изменения размера и начертания шрифта.

4. Программный код:

Dim i As Integer

Dim s As Single

Private Sub Command1_Click()

If IsNumeric(Combo1.Text) = True Then

Combo1.AddItem Combo1.Text

Else

MsgBox "Ошибка! Введите число!", vbCritical

End If

Combo1.Text = ""

Combo1.SetFocus

End Sub

Private Sub Command2_Click()

If Combo1.ListIndex >= 0 Then

Combo1.RemoveItem Combo1.ListIndex

Else

MsgBox "Ошибка! Вы не выбрали элемент!"

End If

End Sub

Private Sub Command3_Click()

Combo1.Clear

Text1.Text = ""

End Sub

Private Sub Command4_Click()

s = 0

For i = 0 To Combo1.ListCount - 1 Step 2

If Combo1.List(i) > 0 Then

s = s + Combo1.List(i)

End If

Text1.Text = s

Next

End Sub

Private Sub Command5_Click()

End

End Sub

5. Результат выполнения программы:

Задание 6 Задачи с одномерным массивом Усложненный вариант

Составить программу расчета задачи с одномерным массивом, используя элементы управления ComboBox или ListBox.

Задания для решения на практических занятиях:

Задание 1.

Числовой массив A(n) упорядочить по возрастанию. Найти сумму элементов в отсортированном массиве, которые находятся на нечетных позициях.

Задание 2.

Из целочисленного массива М(n) образовать массив F(n), в котором вначале расположить элементы, кратные двум, потом кратные трем и в конце – остальные элементы.

Варианты индивидуальных заданий

Задание 1.

В числовом массиве A(n) имеется два одинаковых элемента. Найти индексы этих элементов и их значения.

Задание 2.

Для числового массива C(n) найти количество элементов, меньших, чем среднее арифметическое, и их индексы. Существует ли элемент, равный среднему арифметическому?

Задание 3.

Имеется массив чисел В(16), составить новый массив чисел, в котором каждый элемент определяется по правилу: В₁*В₂; В₃*В₄; В₅*В₆; …; В₁₅*В₁₆. Полученный массив упорядочить по возрастанию.

Задание 4.

В массиве M(n) имеется k положительных чисел (k>15). Вывести на печать пятый и пятнадцатый положительные элементы и их координаты. Среди положительных элементов найти минимальный и его порядковый номер.

Задание 5.

Найти наибольшее и наименьшее значение модуля разности между соседними элементами числового массива F(n).

Задание 6.

В числовом массиве B(n) имеется одно число, которое встречается несколько раз. Найти его значение, количество повторений и его координаты. При отсутствии одинаковых чисел вывести на экран дисплея «Одинаковых чисел нет».

Задание 7.

Числа массива B(n) расположить по убыванию. Найти сумму первых пяти элементов массива до сортировки и после нее.

Задание 8.

Из числового массива Z(n) образовать массив L(n), в котором вначале расположить элементы массива Z с нечетными индексами, а затем с четными. В массиве Z найти минимальный по модулю элемент и его индекс.

Задание 9.

Из числового массива А(n) образовать массив В(n), в котором сначала расположены нулевые элементы массива, а затем положительные и отрицательные.

Задание 10.

В массиве А(n) имеется k отрицательных чисел (k>10). Вывести на печать сумму квадратов второго и десятого отрицательных элементов, их порядковые номера. Среди отрицательных элементов найти максимальный и его порядковый номер.

Задание 11.

Из целочисленного массива R(n) образовать массив А(n), в котором вначале расположить четные элементы, а затем нечетные. Найти минимальный нечетный элемент и максимальный четный.

Задание 12.

В целочисленном массиве А(n) определить наибольшее число одинаковых элементов, следующих в нем подряд.

Задание 13.

Дан целочисленный массив А(n). Определить количество целых чисел, входящих в указанную последовательность один раз.

Задание 14.

Если в заданной последовательности действительных чисел В(n) есть хотя бы один элемент, меньший чем -2, то все отрицательные члены заменить их квадратами, оставив остальные без изменения, в противном случае домножить все члены на 0,1.

Задание 15.

Даны целые а₁, …, а_n и действительные в₁, …, в_n числа. Преобразовать последовательность в₁, …, в_n по правилу: если а_i делится на 10, то в_i увеличить в 10 раз, иначе в_i заменить нулем.

Задание 16.

Дан целочисленный массив А(n). Требуется определить среднее арифметическое чисел массива и наибольшее отклонение от него, т.е. .

Задание 17.

Заданы действительные числа Z₁, Z₂, …, Z₁₆. Получить минимальное значение среди произведений Z₁Z₉; Z₂Z₁₀; Z₃Z₁₁; …; Z₈Z₁₆.

Задание 18.

Даны целые a₁, … , a_n числа. Из модулей членов данной последовательности выбрать наибольший. Получить новую последовательность из n целых чисел (нулей и единиц), заменяя a_i нулем, если a_i не совпадает с выбранным значением, и заменяя a_i единицей, если совпадает.

Задание 19.

В целочисленном массиве А(n) найти сумму всех элементов, кратным двум и трем. Оставшиеся элементы перемножить.

Задание 20.

Задан целочисленный массив А(20); получить последовательность чисел А₁ -А₂₀; А₂-А₂₀; …; А₁₉-А₂₀. Полученную последовательность упорядочить по возрастанию.

Задание 21.

Задан целочисленный массив А(20); получить последовательность чисел А₂-А₁; А₃-А₁; …; А₂₀-А₁. Эту последовательность упорядочить по уменьшению.

Задание 22.

Заданы действительные числа S₁, S₂, …, S₂₀. Определить количество неверных равенств среди S₁=S₁₁; S₂=S₁₂; S₃=S₁₃; …; S₁₀=S₂₀.

Задание 23.

Заданы действительные числа a₁, a₂, …, a₁₆. Получить максимальное значение среди a₁+a₁₆, a₂+a₁₅, a₃+a₁₄, …, a₈+a₉.

Задание 24.

Заданы действительные числа М₁, М₂, …, М₂₀. Определить количество верных равенств среди М₁=М₂₀; М₂=М₁₉; М₃=М₁₈; …; М₁₀=М₁₁.

Задание 25.

Даны действительные a₁, …, a₁₈. Получить последовательность a₁, a₁₀, a₂, a₁₁, a₃, a₁₂, a₄, a₁₃, …, a₉, a₁₈.

Задание 26.

Задана последовательность действительных чисел F₁, F₂, …, F₁₈. Получить последовательность F₁+F₁₈, F₂+F₁₇, F₃+F₁₆, …, F₉+F₁₀. Полученную последовательность упорядочить по уменьшению.

Задание 27.

Имеется два массива действительных чисел А(16) и В(16). Составить последовательность Z по правилу: Z₁=A₁*B₂; Z₂=A₂*B₄; Z₃=A₃*B₆; …; Z₈=A₈*B₁₆. В полученном массиве найти сумму трех первых и трех последних элементов.

Задание 28.

Задана последовательность действительных чисел a₁, a₂, …, a₁₈. Получить последовательность a₁, a₁₈, a₂, a₁₇, …, a₉, a₁₀.

Задание 29.

Имеется два массива действительных чисел А(15) и В(15). Составить последовательность С(15) по правилу: С₁=А₁+В₁₅; С₂=А₂+В₁₄; …; С₁₅=А₁₅+В₁. Определить среднее значение МАХ и MIN элемента новой последовательности.

Задание 30.

Даны действительные числа х₁, х₂, …, х₁₁ и у₁, у₂, …, у₁₁. Получить действительные Z₁, Z₂, …, Z₁₁ и F₁, F₂, …, F₁₁ по правилу: если они оба отрицательные, то каждый из них увеличить на 0,5; если отрицательное только одно число, то заменить его квадратом: если оба числа неотрицательные, то каждое из них заменить на среднее арифметическое исходных значений.

Задание 31.

Найти все простые числа меньше n, используя решето Эратосфена. Решетом Эратосфена называется следующий алгоритм: выпишем подряд все целые числа от 2 до n; первое простое число 2; подчеркнем его, а все большие числа, кратные двум, зачеркнем. Первое из оставшихся чисел 3; подчеркнем его как простое, а все большие числа, кратные трем, зачеркнем. Первое число из оставшихся теперь 5, так как 4 уже зачеркнуто; подчеркнем его как простое, а все большие числа, кратные пяти, зачеркнем и т.д.

2, 3, 4, 5, 6, 7, 8, 9, 10, …

Задание 32.

Имеется два массива действительных чисел С(18) и В(18). Составить новый массив, в котором элементы определяются по правилу: А₁=С₂*В₁; А₂=С₄*В₂; А₃=С₆*В₃; …; А₈=С₁₆*В₈. В полученной последовательности найти частное от деления максимального элемента на минимальный. В случае если минимальный элемент равен нулю, вывести на экран дисплея сообщение «Минимальный элемент образованной последовательности равен нулю».