5.3 Контрольні питання

1. Елемент керування текстове поле, його властивості.

2. Елемент керування командна кнопка, його властивості і події.

3. Елементи керування список і список, що розкривається, їхнє призначення, властивості і події, що з ними зв'язані.

4. Елемент керування перемикач, його властивості і події, що з ним зв'язані. Об'єднання перемикачів у групу.

Лабораторна робота № 6. Тема роботи: Одновимірні масиви

Мета роботи: одержання практичних навичок програмування і розв’язання задач обробки одновимірних масивів.

6.1 Теоретичні відомості

Масив це набір пронумерованих об’єктів, що мають одне і те саме базове ім’я і для доступу до об’єкту застосовується його номер (індекс). Масиви бувають статичні та динамічні.

О’ява статичного масиву:

Dim mas(20) As Integer

mas – масив, який складається з двадцяти елементів типу Integer. Першим елементом буде mas(1), другим – mas(2) т.д.

О’ява динамічного масиву:

Dim mas() As Integer

n=Inputbox(“Введіть розмір масиву”)

ReDim mas(n)

Приклад 6.1.На листі Excel в діапазоні А1:А10 знаходяться числа. Сформувати з них масив та знайти максимальний елемент.

Sub Максимальний_у_масиві( )

Dim x() As Integer, n As integer

Dim max as Single, i as Integer

n=10

ReDim x(n)

‘формування масиву

For i =1 To n

X(i)= Worksheets(“Лист1”) . Cells(i,1). Value

Next i

‘знаходження максимального елементу у масиві

max=x(1)

For i=2 To n

If x(i)>max Then max=x(i)

Next i

Worksheets(“Лист1”) . Cells(11,1). Value=”max=”

Worksheets(“Лист1”) . Cells(11,2). Value=max

End Sub

Приклад 6.2 Ввести з клавіатури елементи масиву роз­міром N та обчислити їх суму.

Створимо форму та розмістимо на ній потрібні елементи управ­ління (див. рис. 6.1).

Рисунок 6.1 – Форма для приклада 6.2

Надамо елементам управління властивості згідно таблиці 6.1.

Таблиця 6.1 – Значення властивостей елементів управління

Тип елемента управління	Ім’я елемента управління	Назва властивості	Значення властивості
Форма	UserForm1	Caption	Робота з масивами
Напис	Label 1	Caption	n=
Напис	Label 2	Caption	Масив A
Напис	Label 3	Caption	Сума=
Командна кнопка	CmdVvod	Caption	Введення масиву
Командна кнопка	CmdRun	Caption	Обчислення
Текстове поле	txta	ScrollBars	1
Текстове поле	txtn

Програмний код для кнопки cmdVvod(подія Click)

Dim n As Integer, i As Integer, A() As Integer

‘Опис глобальних змінних в області General

-------------------------------------------------------------

Private Sub CmdVvod_Click()

txta.Text = ""

n = txtn.Text

ReDim A(n) As Integer

For i = 1 To n

A(i) = InputBox("Ввести a(" & i & ")=")

txta.Text = txta.Text & A(i) & " "

Next i

End Sub

Програмний код для кнопки cmdRun (подія Click)

Private Sub CmdRun _Click()

Dim s As Integer

s = 0

For i = 1 To n

s = s + A(i)

Next i

txts.Text = s

End Sub

Результати роботи програми зображені на рис. 6.2.

Рисунок 6.2 –Результат роботи приклада 6.2

6.2 Індивідуальні завдання

Варіант 1.

1. Знайти суму всіх парних елементів масиву А=(а1,а2,...,аn).

2. Всі елементи початкового масиву А=(а1,а2,...,аn), що дорівнюють max(а1,а2,...,аn) поділити на а1.

Варіант 2.

1. Обчислити суму квадратів елементів масиву А=(а1,а2,...,аn).

2. Всі елементи масиву А=(а1,а2,...,аn), наступні за елементом, що дорівнює max(а1,а2,...,аn), помножити на max(а1,а2,...,аn).

Варіант 3.

1. Підрахувати кількість від’ємних елементів масиву А=(а1,а2,...,аn).

2. Надано масив А=(а₁,а₂,...,а_n). Побудувати масив В= {b₁,b₂,…,b_n}, дe b₁=a₁, b₂=a1a₂,…, b_n=a₁a₂…a_n.

Варіант 4.

1. Обчислити суму всіх від’ємних елементів масиву А=(а1,а2,...,аn).

2. Всі елементи масиву А=(а1,а2,...,аn), наступні за елементом, що дорівнює mіn(а1,а2,...,аn), помножити на min(а1,а2,...,аn).

Варіант 5.

1. Обчислити середнє арифметичне елементів масиву А=(а1,а2,...,аn).

2. Всі парних елементів масиву А=(а1,а2,...,аn) замінити їх квадратами.

Варіант 6.

1. Підрахувати кількість невід’ємних елементів масиву А=(а1,а2,...,аn).

2. Заданий масив А=(а1,а2,...,аn). Побудувати масив В, кожний елемент якого обчислюється за формулою b_i=i*a_i²

Варіант 7

1. Підрахувати кількість елементів a_k масиву А=(а1,а2,...,аn), що відповідають умові 2^к <|a_k|

2. В початковому масиві А=(а1,а2,...,аn), поміняти місцями максимальний і мінімальний елементи масиву.

Варіант 8.

1. Обчислити середнє арифметичне значення невід’ємних елементів масиву А=(а1,а2,...,аn).

2. Заданий масив А=(а1,а2,...,аn). Побудувати масив В, кожний елемент якого обчислюється за формулою b_i=i*a_i

Варіант 9.

1. Обчислити середнє арифметичне значення від’ємних елементів масиву А=(а1,а2,...,аn).

2. Заданий масив А=(а1,а2,...,аn). Треба всі додатні числа зменшити на число М.

Варіант 10.

1. Підрахувати кількість елементів масиву А=(а1,а2,...,аn), що відповідають умові a_k²<k²

2. Заданий масив А=(а1,а2,...,аn). Треба всі його нульові елементи замінити на попередній.

Варіант 11.

1. Заданий масив А=(а1,а2,...,аn). Обчислити суму квадратів його додатних елементів.

2. Заданий масив А=(а1,а2,...,аn) та число Р. Треба побудувати масив, кожний елемент якого обчислюється за правилом b_i=a_i, якщо a_i>Р, b_i=P, якщо a_i Р.

Варіант 12.

1. Підрахувати кількість елементів a_k масиву А=(а1,а2,...,аn), що відповідають умові a_k< a_k+1, для 1<k<n-1.

2. Заданий масив А=(а1,а2,...,аn) та число Р. Треба побудувати масив, кожний елемент якого обчислюється за правилом b_i=a_i, якщо a_i>0, b_i=P, якщо a_i 0.

Варіант 13.

1. Знайти максимальний елементі масиву А=(а1,а2,...,аn)

2. Задані масив А=(а1,а2,...,аn) та В=(в1,в2,..., вn). Треба побудувати масив C, кожний елемент якого обчислюється за правилом c_i =b_i+a_i

Варіант 14.

1. Знайти мінімальний елемент серед парних елементів масиву А=(а1,а2,...,аn)

2. Задані масиви А=(а1,а2,...,аn) , В=(в1,в2,..., вn) та число К. Треба побудувати масив C, кожний елемент якого обчислюється за правилом c_i =b_i+К, якщо а_i <=b_i, та c_i =а_i+К, якщо а_i >b_i. .

.

Варіант 15.

1. Заданий масив А=(а1,а2,...,аn). Обчислити суму елементів масиву, які не менші деякого числа Р.

2. Задані масив А=(а1,а2,...,аn) та В=(в1,в2,..., вn). Треба побудувати масив C, кожний елемент якого обчислюється за правилом c_i=(b_i+a_i)²