Visual_Basic_6.0._Посiбник_2009

Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Национальный транспортный университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

sin 2 (ab) tg

.pdf

Скачиваний:

Добавлен:

29.02.2016

Размер:

5.8 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 12 13 14 1516 / 1816 17 18 > Следующая >>>

Рис. 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

cos

; z

cos

(1,5x)

; w

y x

b a

;

9,8x

a x

b a

x y

e2 cos

(

)

x 4,5;

a 1,6;

b 0,67.

№2

; z

y a

;

sin 2

(ax ) tg

x b

b 6,5.

151

№3

cos2

x b

;

y2 b2

;

x2 b2

cos2

y b

x 1,5 ;

b 4,5.

№4

x(x a)(x b)

x a

;

sin2 (y a)

;

sin2 (x a)

y(y x)(y b)

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

;

sin 2

4 ,7 y

x sin

1,5 a

3,8 ;

5 ,7

;

2 ,34

№6

1,67 2

arctg( )

sin

( )

;

y x

;

arctg(x ) sin2( )

9,4x2 3

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

№7

ln(a

9,3 b3

b) tg(x

;

b 1,5 a3

ln(a

x) tg(a

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

№8

x arctgz

x z

;

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

1,5

;

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

;

tgp

sin

;

tga

sin

a y

y a

1,3 ;

1,89

;

0 ,3 .

8,57 lg 2 (x b)

№11

y sin 2 a x 2

;

x3 b sin 2 x a 2

1,95 lg 2 (x b)

a 4,35

;

b 0,6

;

x 1,89 .

№12

;

z sin

b e

;

sin

p 1,5;

a 2,4;

b 1,69;

x 0,9.

№13

1,65 x2

cos2 x

;

9,35

y2 x2

cos2(x a)

;

3 x2 a2

3 y2 a2

x 1,4;

a 0,95.

№14

lg17

2b2 c2 a 2

;

lg 25,4

2a 2 b2 c2

;

3 b2 c2

3 a 2 b2

a 1,67

; b 0,9 ; c 1,69 .

№15

ab sin

2 c2 d2

tg 2

; z

;

tg 2

cd sin

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

№16

cos 2 b c

4,8 ed c

;

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 ;

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

;

arctg

4,7sin cos(2 x)

0,47 ; x 1,35.

№19

tgx

cos

4 ,9 y

,5 a

;

cos

b 1 ,87

tga

9 , 4 b

x 4 ,9 ;

b 0 ,9 ;

a 1 ,35 .

ln x 0,5ex2 4,5tga2

№20

;

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

;

1,7 arctgx a2

4,9 arctga x2

x 0,9; a 4,7

№21

ln( a p)

sin 2 (x e x )

;

sin

2 (ap ea )

ln(

x p)

a 1,5

; p 4,9 ;

x 1,29 .

№22

tgp

sin

;

e 3 , 7 y 3

p x

;

e 3 , 7 x

tgy

sin

2 p 3

0 ,5 ;

4 ,5

;

1,89 .

№23

w 1 lg(w ) arctg2 3

;

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

sin 2

cos 4 a2

n sin( ax)

;

n sin(nx)

sin 2

cos 4 x2

x 1,3;

n 5 ;

a 4,9

№25

arctg(x p)2

0,5

a (9,3)a (y2

a2)

1,25

;

a (4,7)x (x2

a2 )

arctg(x a)2

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

№26

tgp

sin

;

a e x

1,5

;

e 4 , 5

a 2

tgx

sin

p 3

p 1,5 ;

x 0 ,4 ; a 2 ,3 ;

b 1,25 .

№27

3 b

(x z) ; w

sin 2

(4,5 b)

(b x) ;

sin 2

(x b)

b3 x

b 1,3;

x 2,7 ;

z 4,9 .

№28

tg2 (x z)

tg2 (a z)

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)

arctg (x );

arctg ( );

mn sin

tg2 (m n)

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

lg n

;

№30

z 2

lg x (

y 2 )

;

cos

p 1,3 ;

4 ,8

;

1,25

;

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<0
	+	–
	xi>MaxEl	–
	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)

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

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

159

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 11 12 13 14 1516 / 1816 17 18 > Следующая >>>

Соседние файлы в папке 1 семестр

#
29.02.201655.3 Кб11Excel_ЛР№5_Зразок.doc
#
29.02.2016766.65 Кб13Excel_Теорiя.pdf
#
29.02.2016878.19 Кб15Microsoft Office. Презентацiя PowerPoint. 2006.pdf
#
29.02.20165.8 Mб60Visual_Basic_6.0._Посiбник_2009.pdf
#
29.02.20161.3 Mб11МВ_Widows_98.pdf
#
29.02.201679.87 Кб9Перелiк теоретичних питань до залiку.doc
#
29.02.201633.79 Кб10Перелiк теоретичних питань до СРС у I семестрi.doc
#
29.02.201633.79 Кб10Перелiк теоретичних питань до СРС у I семестрi_.doc
#
29.02.201652.74 Кб11Теми ЛР з Windows, Office, VB (I семестр).doc