Visual_Basic_6.0._Посiбник_2009
.pdfІІІ.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 і знаходження сум їхніх компонент оформити у
вигляді підпрограм.
|
№3 |
|
|
|
||||
Задано два вектори: |
y yj , |
|
|
|
||||
x xi ,i |
|
; |
j |
|
. |
|||
1,10 |
1,8 |
|||||||
Обчислити |
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
g |
|
c2 d2 |
, |
|
|
де с – середнє арифметичне від’ємних компонент вектора x; d – середнє арифметичне від’ємних компонент вектора y.
Обчислення середнього арифметичного від’ємних компонент векторів оформити у вигляді підпрограми.
№4
Задано три вектори:
x xi , |
y yi , |
z zi , i |
1, 3 |
. |
Обчислити |
|
|
|
|
p = a cos + b tg(a+b) ,
де = 0,45;
а – скалярний добуток вектора x на вектор y; b – скалярний добуток вектора x на вектор z.
Обчислення скалярного добутку векторів оформити у вигляді підпрограми.
Задано два вектори: |
№5 |
|
|
|
|
; y y j , |
|
|
|
||
x xi , i |
|
j |
|
. |
|
1, 12 |
1, 15 |
Обчислити
f sin k 3k 2 p2 ,
де k – кількість додатних компонент вектора x; p – кількість додатних компонент вектора y.
Обчислення кількості додатних компонент вектора оформити у вигляді підпрограми.
162
|
|
№6 |
|
|
|
Задано два вектори: |
|
|
|
||
x xi ,i |
|
; y yj , |
j |
|
. |
1,5 |
1, 7 |
Обчислити
w arctg (k1 k2 ) a2 b2 ,
де a – мінімальне значення компонент вектора x;
k1 – номер мінімального значення компонент вектора x; b – мінімальне значення компонент вектора y;
k2 – номер мінімального значення компонент вектора y.
Пошук мінімального значення компонент вектора та його номера оформити у вигляді підпрограми.
№7
Задано три вектори: |
|
x xi ,i 1, 4 ; y yj , |
j 1,3; z zk , k 1, 5. |
Впорядкувати вектор c cp , p 1, 3 за зростанням, який складається із
таких компонентів:
с1 – мінімальне значення компонент вектора x; с2 – мінімальне значення компонент вектора y; с3 – мінімальне значення компонент вектора z.
Пошук мінімального значення компонент вектора оформити у вигляді підпрограми.
Задано два вектори: |
|
|
|
№8 |
|
|
|
|
|
|
; y yj , |
|
|
|
|
x xi ,i |
|
j |
|
. |
|||
1, 6 |
1, 9 |
||||||
Обчислити |
|
|
|
|
|
|
|
f |
|
arctg a eb |
|
|
|
||
|
, |
|
|
||||
|
|
|
ln( k l) |
|
|
де 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.
Обчислення скалярного добутку та впорядкування компонент вектора оформити у вигляді підпрограми.
|
№11 |
|
|
|
|
Задано два вектори: |
|
|
|
||
x xi ,i |
|
; y yj , |
j |
|
. |
1, 4 |
1, 5 |
Розв’язати рівняння
a u = b ,
де а – середнє геометричне додатних компонент вектора x; b – середнє геометричне додатних компонент вектора y.
Обчислення середнього геометричного додатних компонент вектора оформити у вигляді підпрограми.
|
№12 |
|
|
|
||
Задано два вектори: |
y yj , |
|
|
|
||
z zi ,i |
|
; |
j |
|
. |
|
1,12 |
1,15 |
Обчислити
p sin a cosb , k1 k2
де a – сума додатних компонент вектора z;
k1 – кількість додатних компонент вектора z; b – сума додатних компонент вектора y;
k2 – кількість додатних компонент вектора y.
Обчислення суми та кількості додатних компонент вектора оформити у вигляді підпрограми.
164
|
№13 |
|
|
|
|
|
|
||||
Задано два вектори: |
y yj , |
|
|
|
|
|
|||||
x xi ,i |
|
; |
|
j |
|
. |
|||||
1,18 |
|
1,16 |
|||||||||
Обчислити |
|
|
|
|
|
|
|
|
|
||
|
|
|
|
c |
2 |
d |
2 |
|
|
|
|
w arctg |
|
|
|
|
, |
|
|
||||
|
|
|
|
|
|
||||||
|
k1 |
k2 |
|
|
|
||||||
|
|
|
|
|
|
|
|
де c – довжина вектора xn, який складається із від’ємних компонент вектора x; d – довжина вектора yn, який складається із від’ємних компонент вектора y; k1 – кількість від’ємних компонент вектора x;
k2 – кількість від’ємних компонент вектора y.
Обчислення довжини вектора та формування вектора із від’ємних компонент вектора оформити у вигляді підпрограми.
№14
Задано два вектори:
x xi , y yi , i 1,10.
Обчислити
f |
c d |
, |
де с – мінімальне по модулю значення компонент вектора x; d – мінімальне по модулю значення компонент вектора y.
Пошук мінімального по модулю значення компонент вектора оформити у вигляді підпрограми.
|
|
|
№15 |
|||||||
Задано три вектори: |
|
|
|
|
|
|
|
|||
|
x xi ,i |
|
; y yj , |
j |
|
; z zk , k |
|
. |
||
|
1, 6 |
1, 5 |
1, 7 |
|||||||
|
b bi ,i |
|
за спаданням, який |
|||||||
Упорядкувати компоненти вектора |
1, 3 |
|||||||||
складається із компонент: |
|
|
|
|
|
|
|
|||
b1 |
– сума парних компонент вектора x; |
|||||||||
b2 |
– сума парних компонент вектора y; |
|||||||||
b3 |
– сума парних компонент вектора z. |
Обчислення суми парних компонент вектора оформити у вигляді підпрограми.
165
№16 |
|
Задано два вектора a ai ,i 1, 4 ; b bj , |
j 1, 6 . Змінній s присвоїти |
значення – 1, якщо максимальне значення компонент вектора a більше за максимальне значення компонент вектора b, в протилежному випадку присвоїти їй значення 1, і присвоїти значення 0, якщо максимальні значення компонент рівні.
Пошук максимального значення компонент вектора оформити у вигляді підпрограми.
Задано три вектори |
№17 |
|||
|
1, 3; z zj , j |
|
|
|
x xi , |
y yi , i |
|
. |
|
1, 4 |
Упорядкувати компоненти вектора 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 zi ,i |
|
; y yj , |
j |
|
. |
|||||||
1,16 |
1,15 |
|||||||||||
Обчислити |
|
|
|
|
|
|
|
|
|
|||
f ln |
|
c2 |
d |
|
|
|
, |
|
|
|||
|
|
|
|
|||||||||
|
d |
3 |
c |
|
|
|
|
|||||
|
|
|
|
|
|
|
|
|
|
де с – середнє геометричне модулів компонент вектора 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 .
Обчислити
f |
|
c2 |
|
d 2 4,7 |
, |
|
|
|
|||
|
1,7 c d k k1 |
де c – максимальне значення компонент вектора z, компонентами якого є компоненти вектора x, що задовольняють умові –4 xi 7;
d – максимальне значення компонент вектора q, компонентами якого є компоненти вектора y, що задовольняють умові –4 yi 7;
k – номер максимального значення компонент вектора z; k1 – номер максимального значення компонент вектора q.
Пошук максимального значення компонент та його номера, а також формування компонент вектора за умовою оформити у вигляді підпрограми.
|
|
|
|
№23 |
|
|
|
|
|
|
|
Задано три вектори x xi , i |
|
16; y yj , |
|
z zj , |
j |
|
. Обчислити |
||||
1, |
1,15 |
||||||||||
|
|
|
|
|
|
|
|
|
|
||
p |
|
c 2 |
( b d ) |
|
, |
|
|
|
|||
|
|
|
|
|
|||||||
d 3 |
( c b ) |
|
|
|
|||||||
|
|
|
|
|
|
|
|
|
де с – середнє геометричне додатних компонент вектора 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
Задано два вектори:
x xi , |
i |
|
; |
y yj , |
j |
|
. |
|
1,15 |
1,17 |
|||||||
Обчислити |
|
|
|
|
|
|
|
|
|
p 5 |
|
, |
|
|
|
||
|
c d |
|
|
|
де c – максимальне значення компонент вектора x1, що складається із компонент вектора x, які задовольняють умові | xi | > 3;
d – максимальне значення компонент вектора y1, що складається із компонент вектора y, які задовольняють умові | yi | > 3;
Формування векторів та пошук максимального значення компонент вектора оформити у вигляді підпрограми.
Задано два вектори: |
|
|
№26 |
|
|
|
|
|
|
|
; y yj , |
|
|
|
|
x xi , |
i |
|
j |
|
. |
||
1,12 |
1,10 |
||||||
Обчислити |
|
|
|
|
|
|
|
p arctg |
(a b) tg (c d ) , |
де 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
Задано три вектори:
x xi , y yi , |
z zi , i |
1, 5 |
. |
Обчислити |
|
|
|
w c2 |
s2 , |
||
де с – довжина вектора xy = x + y; |
|
|
|
s – довжина вектора yz = y + z. |
|
|
|
Формування вектора, який дорівнює сумі двох векторів, та обчислення довжини вектора оформити у вигляді підпрограми.
№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