Кравчук / 1 семестр / Visual_Basic_6.0._Посiбник_2009

ІІІ.5. В меню Project вибрати команду Add Module. З’явиться вікно Add Module. Вибрати New і натиснути кнопку <Открыть>. З’явиться вікно Project1

– Module2 (Code). Надрукувати ім’я процедури Sub Max_v(n, x(), a, MaxEl), на-

тиснути Enter , з’явиться End Sub. Після заголовку процедури набрати текст

(рис. 26).

Рис. 26. Процедура Sub Max_v(n, x(), a, MaxEl)

ІІІ.6. В меню Project вибрати команду Add Module. З’явиться вікно Add Module. Вибрати New і натиснути кнопку <Открыть>. З’явиться вікно Project1

– Module3 (Code). Надрукувати ім’я процедури Sub Order_v(r, c()), натиснути Enter , з’явиться End Sub. Після заголовку процедури набрати текст (рис. 27).

Рис. 27. Процедура Sub Order_v(r, c())

IV. Після завершення написання кодів натиснути кнопку <Start> на панелі інструментів Standard (Стандартна). Клацнути по кнопці <Розрахунки>. Підтвердити введення кількості елементів у масивах та границь генерування [- 30, 30]. Переписати результати розрахунків (рис. 28).

160

Рис. 28. Форма з результатами розрахунків

V. Для закінчення розрахунків й повернення у вікно коду необхідно клацнути у формі по кнопці <Вихід>.

VI. Збережіть проект у папку Lab_7.

ІНДИВІДУАЛЬНІ ЗАВДАННЯ

Скласти схему та програму. Формування векторів виконати за допомогою Rnd у вигляді підпрограми.

№1

Задано три вектори:

x xi ,i 1,7 ; y yj , j 1, 5; z zk , k 1,10 .

Упорядкувати вектор b bp , p 1, 3 за зростанням, який складається із

таких компонентів:

b1 – максимальне по модулю значення компонент вектора x; b2 – максимальне по модулю значення компонент вектора y; b3 – максимальне по модулю значення компонент вектора z.

Пошук максимального по модулю значення компонент вектора та впорядкування компонент вектора оформити у вигляді підпрограм.

161

№2

Задано три вектори:

x xi , y yi , z zi , i 1,5 .

Знайти розв’язок рівняння

с u = b ,

де с – сума компонент вектора xy, які є добутками компонент векторів x та y; b – сума компонент вектора zy, які є добутками компонент векторів z та y. Обчислення векторів xy, zy і знаходження сум їхніх компонент оформити у

вигляді підпрограм.

де с – середнє арифметичне від’ємних компонент вектора x; d – середнє арифметичне від’ємних компонент вектора y.

Обчислення середнього арифметичного від’ємних компонент векторів оформити у вигляді підпрограми.

№4

Задано три вектори:

p = a cos + b tg(a+b) ,

де = 0,45;

а – скалярний добуток вектора x на вектор y; b – скалярний добуток вектора x на вектор z.

Обчислення скалярного добутку векторів оформити у вигляді підпрограми.

Обчислити

f sin k 3k 2 p2 ,

де k – кількість додатних компонент вектора x; p – кількість додатних компонент вектора y.

Обчислення кількості додатних компонент вектора оформити у вигляді підпрограми.

162

Обчислити

w arctg (k1 k2 ) a2 b2 ,

де a – мінімальне значення компонент вектора x;

k1 – номер мінімального значення компонент вектора x; b – мінімальне значення компонент вектора y;

k2 – номер мінімального значення компонент вектора y.

Пошук мінімального значення компонент вектора та його номера оформити у вигляді підпрограми.

№7

Впорядкувати вектор c cp , p 1, 3 за зростанням, який складається із

таких компонентів:

с1 – мінімальне значення компонент вектора x; с2 – мінімальне значення компонент вектора y; с3 – мінімальне значення компонент вектора z.

Пошук мінімального значення компонент вектора оформити у вигляді підпрограми.

де a – максимальне по модулю значення компонент вектора x;

k – номер максимального по модулю значення компонент вектора x; b – максимальне по модулю значення компонент вектора y;

l – номер максимального по модулю значення компонент вектора y. Пошук максимального по модулю значення компонент та його номера

оформити у вигляді підпрограми.

163

№9

Задано чотири вектори

x xi , y yi , i 1,3; z zj , u uj , j 1,4.

Змінній а присвоїти значення 1, якщо скалярний добуток векторів x та y більший скалярного добутку z та u, в протилежному випадку їй присвоїти значення 0.

Обчислення скалярного добутку векторів оформити у вигляді підпрограми.

№10

Задано два вектори:

x xi , y yi , i 1, 8 .

Обчислити

h ln p r ,

де p – скалярний добуток вектора x на вектор xu, який складається з упорядкованих за зростанням компонент вектора x;

r – скалярний добуток вектора y на вектор yu, який складається з упорядкованих за зростанням компонент вектора y.

Обчислення скалярного добутку та впорядкування компонент вектора оформити у вигляді підпрограми.

Розв’язати рівняння

a u = b ,

де а – середнє геометричне додатних компонент вектора x; b – середнє геометричне додатних компонент вектора y.

Обчислення середнього геометричного додатних компонент вектора оформити у вигляді підпрограми.

Обчислити

p sin a cosb , k1 k2

де a – сума додатних компонент вектора z;

k1 – кількість додатних компонент вектора z; b – сума додатних компонент вектора y;

k2 – кількість додатних компонент вектора y.

Обчислення суми та кількості додатних компонент вектора оформити у вигляді підпрограми.

164

де c – довжина вектора xn, який складається із від’ємних компонент вектора x; d – довжина вектора yn, який складається із від’ємних компонент вектора y; k1 – кількість від’ємних компонент вектора x;

k2 – кількість від’ємних компонент вектора y.

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

№14

Задано два вектори:

x xi , y yi , i 1,10.

Обчислити

де с – мінімальне по модулю значення компонент вектора x; d – мінімальне по модулю значення компонент вектора y.

Пошук мінімального по модулю значення компонент вектора оформити у вигляді підпрограми.

Обчислення суми парних компонент вектора оформити у вигляді підпрограми.

165

значення – 1, якщо максимальне значення компонент вектора a більше за максимальне значення компонент вектора b, в протилежному випадку присвоїти їй значення 1, і присвоїти значення 0, якщо максимальні значення компонент рівні.

Пошук максимального значення компонент вектора оформити у вигляді підпрограми.

Упорядкувати компоненти вектора b bi ,i 1, 3 за спаданням, який складається із компонент:

b1 – максимальне значення компонент вектора x; b2 – максимальне значення компонент вектора y; b3 – максимальне значення компонент вектора z.

Пошук максимального значення компонент вектора оформити у вигляді підпрограми.

№18

Задано три вектори:

x xi , y yi , z zi , i 1,4.

Змінній w присвоїти значення 1, якщо довжина вектора d більша довжини вектора с і значення 0 в протилежному випадку, де:

d – вектор, рівний сумі двох векторів x та y; c – вектор, рівний сумі двох векторів y та z.

Обчислення суми двох векторів і знаходження довжини вектора оформити у вигляді підпрограми.

№19

Задано два вектора:

де с – середнє геометричне модулів компонент вектора z; d – середнє геометричне модулів компонент вектора y.

Обчислення середнього геометричного модулів компонент вектора оформити у вигляді підпрограми.

166

№20

Задано три вектори x xi ,i 1, 8 ; y yj , j 1, 6; z zk , k 1, 8. Упорядкувати за спаданням компоненти трьох векторів та знайти їх середнє арифметичне.

Упорядкування компонент вектора та обчислення їх середнього арифметичного оформити у вигляді підпрограми.

№21

Задано два вектора:

z zi ,i 1,16 ; y yj , j 1,15 .

Обчислити

p a2 b2 ,

де a – кількість компонент вектора z, більших за його середнє арифметичне; b – кількість компонент вектора y, більших за його середнє арифметичне. Обчислення середнього арифметичного та кількості компонент вектора

оформити у вигляді підпрограми.

№22

Задано два вектори:

x xi , y yi , i 1, 20 .

Обчислити

де c – максимальне значення компонент вектора z, компонентами якого є компоненти вектора x, що задовольняють умові –4 xi 7;

d – максимальне значення компонент вектора q, компонентами якого є компоненти вектора y, що задовольняють умові –4 yi 7;

k – номер максимального значення компонент вектора z; k1 – номер максимального значення компонент вектора q.

Пошук максимального значення компонент та його номера, а також формування компонент вектора за умовою оформити у вигляді підпрограми.

де с – середнє геометричне додатних компонент вектора z; b – середнє геометричне додатних компонент вектора x; d – середнє геометричне модулів компонент вектора y.

Обчислення середнього геометричного додатних компонент вектора оформити у вигляді підпрограми.

167

№24

Задано три вектори:

x xi , y yi , z zi , i 1, 4

Обчислити

f a tg b b2 a 2 ,

де a – сума скалярного добутку вектора y на вектор z і скалярного добутку вектора x на вектор y;

b – різниця скалярного добутку вектора y на вектор z і скалярного добутку вектора x на вектор y.

Обчислення скалярного добутку векторів оформити у вигляді підпрограми.

№25

Задано два вектори:

де c – максимальне значення компонент вектора x1, що складається із компонент вектора x, які задовольняють умові | xi | > 3;

d – максимальне значення компонент вектора y1, що складається із компонент вектора y, які задовольняють умові | yi | > 3;

Формування векторів та пошук максимального значення компонент вектора оформити у вигляді підпрограми.

де a – середнє арифметичне модулів компонент вектора x, що задовольняють умові | xi | >2;

b – середнє арифметичне модулів компонент вектора y, що задовольняють умові | yi | >2;

c – максимальне значення компонент вектора x; d – максимальне значення компонент вектора y.

Обчислення середнього геометричного додатних компонент та пошук максимального значення компонент вектора оформити у вигляді підпрограми.

168

№27

Задано два вектори:

x xi , z zi , i 1,15.

Обчислити

f lg a b ,

де a – скалярний добуток вектора x на вектор x1, компонентами якого є впорядковані за зростанням компоненти вектора x;

b – скалярний добуток вектора z на вектор z1, компонентами якого є впорядковані за зростанням компоненти вектора z.

Обчислення скалярного добутку та впорядкування компонент векторів оформити у вигляді підпрограми.

№28

Задано три вектори:

Формування вектора, який дорівнює сумі двох векторів, та обчислення довжини вектора оформити у вигляді підпрограми.

№29

Задано три вектори:

x xi ,i 1,17 ; y yj , j 1,15; z zk , k 1, 20 .

Впорядкувати вектор d di , i 1, 3 за спаданням модулів компонент, який складається із компонент:

d1 – добуток модулів компонент вектора x, розташованих на парних місцях; d2 – добуток модулів компонент вектора y, розташованих на парних місцях; d3 – добуток модулів компонент вектора z, розташованих на парних місцях.

Обчислення добутку модулів компонент вектора оформити у вигляді підпрограми.

№30

Задано два вектори:

x xi ,i 1,16; y yj , j 1,12.

Сформувати вектор z, який складається спочатку із компонент вектора x1, а потім із компонент вектора y1, де:

x1 – вектор, який складається із непарних компонент вектора x; y1 – вектор, який складається із непарних компонент вектора y.

Формування вектора із непарних компонент оформити у вигляді підпрограми.

169