Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

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

.pdf
Скачиваний:
16
Добавлен:
29.02.2016
Размер:
5.8 Mб
Скачать

Рис. 20. Вікно Project-Form1 (Code)

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

– Module1 (Code). Надрукувати ім’я процедури Function f1(p1, p2) і натиснути

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

Рис. 21. Процедура Function f1(p1, p2)

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

– Module2 (Code). Надрукувати ім’я процедури Function f2(p1, p2, p3) і натиснути

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

Рис. 22. Процедура Function f2(p1, p2, p3)

150

IV. Після завершення написання кодів натиснути кнопку <Start> на панелі інструментів Standard (Стандартна). Клацнути по кнопці < Розрахунки >. В текстові поля Text4 …Text6 будуть виведені результати розрахунків (рис. 23). Переписати результати розрахунків.

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

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

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

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

Обчислити значення виразів, використовуючи процедуру Function.

№1

y

e

a

cos

2

a

 

 

; z

e

x

cos

2

(1,5x)

; w

y x

b a

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9,8x

a x

 

 

 

 

b a

 

 

x y

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e2 cos

(

)

 

x 4,5;

a 1,6;

 

b 0,67.

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

sin 2 (ab) tg

a b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a b

 

 

 

3

 

 

 

 

x 1,67 ;

a 2,5 ;

№2

 

 

 

 

 

 

 

 

 

 

 

 

; z

 

3

 

 

y a

 

 

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin 2

(ax ) tg

 

x b

 

 

 

 

 

 

 

 

 

b 6,5.

 

 

 

 

 

 

 

 

 

 

 

 

151

№3

y

cos2

 

x b

ln

x b

 

;

 

 

 

 

z

 

 

 

 

y2 b2

 

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x2 b2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

cos2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y b

 

ln

y b

 

 

 

 

 

 

 

x 1,5 ;

b 4,5.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

x(x a)(x b)

 

 

lg

 

x a

 

 

 

;

z

 

 

 

 

 

sin2 (y a)

 

 

 

 

 

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin2 (x a)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y(y x)(y b)

 

lg

 

x b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 4,7; a 6,8; b 1,35.

№5

 

 

 

 

lg x 4 ,9 e a b

 

 

 

 

 

 

lg b 9 ,4 e a b

y

 

 

 

 

 

 

 

 

 

 

 

 

 

;

z

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

 

x

sin 2

b

4 ,7 y

 

 

x sin

2

 

 

 

 

 

1,5 a

 

 

 

 

 

 

 

 

 

b

x

3,8 ;

 

 

 

a

5 ,7

;

 

 

b

 

2 ,34

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1,67 2

 

 

 

 

 

 

 

 

 

 

 

 

y

arctg( )

sin

2

( )

;

z

 

 

3

 

y x

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

arctg(x ) sin2( )

 

 

 

 

 

 

 

 

 

 

 

 

9,4x2 3

x

 

 

 

 

 

 

 

 

 

x 4,7; 0,67; 1,35.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln(a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9,3 b3

 

 

 

 

 

y

 

b) tg(x

b)

 

;

z

 

 

 

x

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b 1,5 a3

 

 

 

ln(a

 

x) tg(a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x)

x 4,7; b 1,29; a 0,95.

№8

y

 

x arctgz

e

x z

;

w

 

4,3 cos

y ln

x z

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1,5 cos x ln

 

z x

 

 

x arctgx

ez x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

z 1,35 ; x 4,9 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№9

 

 

 

 

 

 

 

 

 

 

 

tg 2 d

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

x3

1,5

;

z

 

sin 2 x arctg

(x d )

;

sin 2 d arctg

(d x)

 

 

 

 

 

 

 

 

 

 

 

 

tg 2 x

 

d 3

4,7

 

 

 

x 1,67 ; d 4,3 .

152

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

ln

 

x

a

 

3

 

x

a

 

 

;

z

 

 

 

tgp

 

 

sin

x

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tga

 

 

sin

p

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln

 

a y

 

3

y a

 

 

 

x

1,3 ;

a

1,89

;

p

0 ,3 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

8,57 lg 2 (x b)

 

 

 

№11

a3

y sin 2 a x 2

 

 

 

 

 

 

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

z

 

 

 

 

 

 

 

 

 

 

;

x3 b sin 2 x a 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1,95 lg 2 (x b)

a 4,35

;

b 0,6

;

x 1,89 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№12

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

2

 

 

 

 

1

 

 

 

2

 

 

3

 

 

 

 

 

 

p

;

 

z sin

2

 

3

 

 

 

 

 

 

x

 

 

 

p

2

 

1

 

 

 

y

 

 

 

 

 

 

 

x

b e

 

p

b e

 

 

 

 

;

 

 

 

 

 

 

 

 

 

sin

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

 

 

 

 

 

 

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

 

 

p

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p 1,5;

 

a 2,4;

b 1,69;

 

x 0,9.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№13

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

1,65 x2

a2

 

cos2 x

;

 

 

 

z

9,35

 

 

y2 x2

cos2(x a)

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3 x2 a2

 

 

 

 

 

 

 

 

 

 

 

3 y2 a2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 1,4;

a 0,95.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№14

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

lg17

 

 

2b2 c2 a 2

 

 

 

;

 

z

lg 25,4

 

2a 2 b2 c2

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3 b2 c2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3 a 2 b2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 1,67

; b 0,9 ; c 1,69 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№15

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ab sin

 

 

 

 

 

 

 

 

 

 

 

 

 

2 c2 d2

 

 

tg 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

; z

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tg 2

 

 

 

 

cd sin

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a2

b2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0,5; 0,67; c 3,5; b 1,25;a 0,73; d 1,34.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№16

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

cos 2 b c

 

4,8 ed c

;

 

z

1,29 tg 2c 0,95b

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

tg 2b 0,6c

 

 

 

 

 

 

 

 

 

cos 2 d a 9,6 eb d

 

 

a 3,5;

 

b 0,9 ;

 

 

c 1,35 ;

 

d

 

 

.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

17

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

153

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№17

 

 

 

 

e0,5

2,4 102 tg2(x y)

 

cos2 ab

 

 

 

s

; z

b a

;

 

cos2 xy

 

 

ex 9,6 tg2(x a)

 

x

x 0,67; y 0,9; a 1,35; b 1,94.

№18

 

 

 

 

0,5 10 2

sin cos(2x

 

)

 

 

 

 

 

 

 

 

 

 

 

 

 

arctg

 

x

 

 

 

 

 

 

 

 

 

w

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7

 

;

 

z

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

arctg

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4,7sin cos(2 x)

0,47 ; x 1,35.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№19

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tgx

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

cos

x

 

4 ,9 y

 

 

 

 

 

y

 

 

 

 

 

17

 

,5 a

 

;

 

 

 

 

 

 

z

 

 

 

 

 

;

 

cos

 

b 1 ,87

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tga

 

9 , 4 b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 4 ,9 ;

b 0 ,9 ;

 

 

a 1 ,35 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln x 0,5ex2 4,5tga2

 

 

 

 

 

 

 

 

 

№20

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

;

 

 

 

 

z

ln x 0,9ea 1,9 tg(1,5x2)

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1,7 arctgx a2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4,9 arctga x2

 

 

 

 

 

 

 

 

 

 

 

 

x 0,9; a 4,7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№21

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

e

y

 

ln( a p)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

 

 

 

 

sin 2 (x e x )

3

 

 

 

 

 

;

 

 

 

 

 

z

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin

2 (ap ea )

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p

 

ln(

 

x p)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 1,5

; p 4,9 ;

 

 

x 1,29 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№22

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f

 

 

 

tgp

sin

2

x

3

 

 

 

 

 

;

 

 

 

w

 

 

 

e 3 , 7 y 3

 

 

 

p x

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e 3 , 7 x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tgy

sin

 

 

2 p 3

 

 

 

3

 

x

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

0 ,5 ;

 

p

 

 

4 ,5

 

;

 

 

y

 

 

1,89 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№23

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

w 1 lg(w ) arctg2 3

 

;

 

z

y 1 lg(a 4,7) arctg2x3

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

w x3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tga

 

w a3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tgx

 

 

 

 

 

 

 

w 0,6; 1,35; a 4,9; x 1,25.

154

№24

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin 2

x

 

 

cos 4 a2

 

 

 

 

 

 

 

n sin( ax)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

3

 

;

z

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

n sin(nx)

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin 2

 

 

cos 4 x2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

3

 

 

 

 

 

 

 

 

 

 

x 1,3;

n 5 ;

 

a 4,9

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№25

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

arctg(x p)2

 

 

 

 

 

 

 

 

0,5

 

 

 

 

 

a (9,3)a (y2

 

a2)

1,25

 

 

 

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

;

 

z

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

;

 

 

 

 

 

a (4,7)x (x2

a2 )

 

 

 

 

 

arctg(x a)2

 

 

 

 

x 0,3; a 0,54; p 1,29.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№26

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

tgp

 

 

sin

 

 

2

 

 

 

x

3

;

 

 

z

 

a e x

1,5

b

2

 

 

;

x

 

e 4 , 5

 

b

 

 

 

a 2

 

 

tgx

 

 

sin

 

 

2

p 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p 1,5 ;

x 0 ,4 ; a 2 ,3 ;

 

b 1,25 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№27

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

 

 

x

3 b

 

lg

2

 

(x z) ; w

 

sin 2

(4,5 b)

 

lg

2

 

(b x) ;

 

sin 2

(x b)

 

 

 

 

 

 

 

b3 x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b 1,3;

x 2,7 ;

z 4,9 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№28

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tg2 (x z)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tg2 (a z)

 

 

 

 

 

 

 

 

 

y

1,6x

; w

 

9,6a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

 

 

 

 

 

 

 

 

 

 

 

lg2 (x z)

 

 

 

 

 

 

 

lg2(a b)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 1,5;

z 0,6; b 2,6 ;

a 5,3.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№29

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

mn sin

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tg2

( x)

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

 

 

 

 

 

arctg (x );

 

z

 

 

 

 

 

 

 

 

arctg ( );

 

 

 

 

 

 

 

 

 

 

 

mn sin

 

 

 

 

 

 

tg2 (m n)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0,3; 0,8; m 5; n 4,7 ; x 4,9.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

lg n

 

 

 

 

 

 

 

 

 

 

 

;

 

№30

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

 

z 2

 

 

 

 

 

lg x (

 

 

 

 

 

y 2 )

;

x

 

 

 

w

 

 

 

 

n

 

 

 

x

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

cos

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

cos

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

p 1,3 ;

x

 

4 ,8

 

;

z

 

1,25

;

 

n

5 .

 

 

 

 

 

 

 

 

 

 

 

 

 

155

3.3.2. Використання процедури Sub. Лабораторна робота №7

Мета:

навчитись застосовувати процедури загального призначення типу Sub;

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

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

Для виконання лабораторної роботи необхідно вивчити теоретичний матеріал, який розташований на ст. 64 – ст. 68 даних методичних вказівок. Літера-

тура: [1; 2; 3]

ЗРАЗОК ВИКОНАННЯ РОБОТИ

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

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

x xi ,i 1, 14 ; y yj , j 1, 13; z zk , k 1, 15.

Нехай компоненти векторів знаходяться в проміжку [a, b] , де a = –30 ; b = 30.

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

компонентів:

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

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

Порядок виконання роботи.

І. Скласти алгоритм реалізації завдання. Використовуючи процедури загального призначення Sub, розбиваємо програмні коди на невеликі логічні блоки – модулі. Модулі легше налагоджувати, а також, використовувати при створенні інших процедур. Створити:

Модуль 1: Form_v – для формування компонент довільного вектора за допомогою генератора випадкових чисел Rnd;

Модуль 2: Max_v – для пошуку максимального значення серед від’ємних компонент довільного вектора;

Модуль 3: Order_v – для упорядкування компонент довільного вектора за спаданням його елементів.

З основної програми (процедури) звертаємось: тричі до модуля Form_v для

формування компонент

векторів x xi , y yj , z zk , тричі до модуля

Max_v для формування

компонент вектора c cp та один раз до модуля

Order_v для упорядкування компонент вектора c cp . 156

Схема основної програми

Початок

Введення

n, m, k, a, b

Form_v(n, a, b, x)

Form_v(m, a, b, y)

Form_v(k, a, b, z)

Max_v(n, x, a, c1)

Max_v(m, y, a, c2)

Max_v (k, z, a, c3)

i=1, 3

cDni=ci

Виведення ci

Order_v(cDn)

i=1, 3

Виведення

cDni

Кінець

157

Схема Модуля 1: Form_v(n, a, b, x)

Вхід

i=1, n

xi=[(b- a+1) Rnd]+a

Виведення xi

Вихід

Схема Модуля 2: Max_v(n, x, a, MaxEl)

Вхід

 

MaxEl = a

 

i=1, n

 

xi<0

 

+

xi>MaxEl

 

+

 

MaxEl = xi

 

Вихід

. Реалізація етапу

Схема Модуля 3:

візуального програмування.

Order_v(r, c)

 

ІІ.1. Розробити форму та її вміст. Для реалі-

Вхід

зації завдання будемо використовувати одну ек-

ранну форму.

 

 

 

 

Форма буде вміщувати: дві командні кноп-

i=1, r-1

ки, масив списків List1 із трьох елементів для ви-

 

ведення

згенерованих векторів,

списки ListBox

j=1, r-i

для виведення сформованого та упорядкованого

 

елементів масивів. Щоб знати,

у якому списку

розміщений який масив, їх необхідно підписати,

cj<cj+1

створивши до них поля написів (мітки). У вікні

+

форми запрограмувати наступні об’єкти:

 

мітки Label1 … Label7;

w = cj

 

 

Списки List1(0), List1(1), List1(2) для

cj = cj+1

виведення елементів заданих векторів x, y та z:

cj+1 = w

установити у формі розмір і позицію

управляючого

елемента

List1

скопіювати

 

об’єкт List1 (Copy) вставити копію (Paste)

 

у діалоговому вікні “Microsoft visual basic” із

 

запитанням “You already have a control named

Вихід

'List1'. Do you want to create a control array?” («У

 

вас вже є управляючий елемент з іменем ‘List1’. Ви бажаєте створити

управляючий масив?») натиснути кнопку <Да> вставити ще одну копію

List1 розмістити копії у відповідності до рис. 28 елементи управляючого

масиву будуть мати імена: List1(0), List1(1), List1(2 ); список List2 – для

виведення сформованого масиву с, список List3 – для виведення

впорядкованого по спаданню вектора сDn;

 

 

командні кнопки (Command1, Command2).

 

. Приступити до етапу програмування у вхідному коді.

ІІІ.1. Два рази клацнути по кнопці<Розрахунки>. У вікні Project1–Form1 (Code) з’явиться заголовок процедури Private Sub Command1_Click() та її кінець End Sub. Після заголовку процедури набрати текст (тіло програми) (рис. 24).

ІІІ.2. Два рази клацнути по кнопці <Вихід>. У вікні Project1–Form1(Code) з’явиться заголовок процедури її кінець. Після заголовку процедури набрати текст (рис. 24).

ІІІ.3. В секції (General)-(Declarations) форми задаємо індексацію масиву з 1 (рис. 24).

158

Рис. 24. Вікно Project-Form1 (Code)

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

– Module1 (Code). Надрукувати ім’я процедури Form_v(n, a, b, x(), t), натиснути Enter , з’явиться End Sub. Після заголовку процедури набрати текст (рис. 25).

Рис. 25. Процедура Form_v(n, a, b, x(), t)

159

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.