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

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

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

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

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

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

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

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

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

7.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)²

8. МАТРИЦІ

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

Двовимірний масив об’являється у програмі заданням імені та двох розмірів, які пишуться у круглих дужках. Наприклад:

Dim x(4,6)As Integer ‘ матриця цілих чисел з 4

‘ рядків і 6 стовпців

Двовимірний масив розміщується в пам’яті рядками, займаючи послідовні ячейки пам’яті.

Задача 8.1 Переставити рядки двовимірного масиву цілих чисел, що має M рядків та N стовпців з максимальною та мінімальною сумою непарних елементів. Вважати, що ці суми єдині..Позначення:

min – мінімальна сума непарних елементів по рядках,

k_min – номер рядка, який її містить;

max – максимальна сума непарних елементів по рядках,

k_max – номер рядка з цією сумою.

Для обміну значеннями елементів використаємо змінну t. Для підрахунку суми використаємо змінну S.

Створимо форму як на рисунку 7.1.

Розмістимо на формі елемент управління напис – LblRez. На етапі проектува­ння встановимо його властивість LblRez.Caption = " ". В програмі напишемо код, який розміщує на його місці інформацію про те, які рядки поміняли місцями.

txtM

txtN

cmdRun –––––––→

txtA ––––→

LblRez ––––––→

←––––––––––– CmdExit

Рисунок 8.1 – Приклад роботи форми

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

Private Sub cmdRun_Click()

' Кнопка Пуск

Dim m As Integer, n As Integer

Dim min As Integer, max As Integer

Dim i As Integer, j As Integer

Dim k_min As Integer, k_max As Integer

Dim t As Integer, s As Integer

Dim a() As Integer

txtA. Value = ""

txtRez. Value = ""

m = CInt(txtM. Value)

n = CInt(txtN. Value)

ReDim a(m, n) As Integer

For i = 1 To m

For j = 1 To n

' Введення елементів масиву

a(i, j) = InputBox("Введіть елемент a(" & CStr(i) & "," & CStr(j) & ")")

' Виведення елементів першого масиву

txtA. Value = txtA. Value & CStr(a(i, j)) & " "

Next j

txtA. Value = txtA. Value & vbCrLf

Next i

' Знаходження суми елементів в рядку,

' максимальної та мінімальної суми

min = 32000: max = –32000

For i = 1 To m

s = 0

For j = 1 To n

If a(i, j) Mod 2 = 1 Then s = s + a(i, j)

Next j

If min > s Then

min = s: k_min = i

End If

If max < s Then

max = s: k_max = i

End If

Next i

For j = 1 To n

t = a(k_min, j)

a(k_min, j) = a(k_max, j)

a(k_max, j) = t

Next

' Виведення елементів перетвореного масиву

For i = 1 To m

For j = 1 To n

txtRez. Value = txtRez. Value & CStr(a(i, j)) & " "

Next j

txtRez. Value = txtRez. Value & vbCrLf

LblRez. Caption = "Міняємо місцями " & Str(k_min) & " та " & _

Str(k_max) & " рядки"

Next i

Дата добавления: 2014-10-31