Добавил:

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

Вуз:

Белорусский национальный технический университет

Предмет:

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

Файл:

6378

.pdf

Скачиваний:

Добавлен:

24.11.2025

Размер:

436.21 Кб

Скачать

☆

1 / 61 2 3 4 5 6 > Следующая >>>

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ

Белорусский национальный технический университет

Кафедра «Двигатели внутреннего сгорания»

ПРОГРАММИРОВАНИЕ В СРЕДЕ

MICROSOFT VISUAL BASIC

Лабораторный практикум

Минск

БНТУ

2014

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ Белорусский национальный технический университет

Кафедра «Двигатели внутреннего сгорания»

ПРОГРАММИРОВАНИЕ В СРЕДЕ

MICROSOFT VISUAL BASIC

Лабораторный практикум по дисциплине «Информатика»

для студентов специальности 1-37 01 01 «Двигатели внутреннего сгорания»

Минск

БНТУ

2014

УДК 004.42(076.5)(075.8) ББК 32.97я7

П78

Составитель

А. В. Предко

Рецензенты:

В. Е. Тарасенко, канд. техн. наук, доцент кафедры «Тракторы и автомобили» БГАТУ;

А. С. Климук, начальник отдела двигателей Объединенного института машиностроения Национальной академии наук Беларуси

Программирование в среде Microsoft Visual Basic : лаборатор-

П78 ный практикум / сост.: А. В. Предко. – Минск : БНТУ, 2014. – 56 с. ISBN 978-985-550-348-5.

Издание соответствует программе дисциплины «Информатика» для студентов дневного и заочного обучения по специальности 1-37 01 01 «Двигатели внутреннего сгорания» и включает в себя задания к лабораторным работам и примеры их выполнения.

	УДК 004.42(076.5)(075.8)
	ББК 32.97я7
ISBN 978-985-550-348-5	© Белорусский национальный
	технический университет, 2014

Лабораторная работа № 1

ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ ЛИНЕЙНОЙ СТРУКТУРЫ

Цель работы: овладеть практическими навыками разработки и программирования вычислительного процесса линейной структуры и навыками по отладке и тестированию программ.

Задания для самостоятельной подготовки

1. Изучить:

–запись констант, переменных, стандартных функций;

–правила записи арифметических выражений;

–оператор присваивания;

–организацию ввода-вывода данных с использованием функций

InputBox и MsgBox.

2. Разработать алгоритм решения в соответствии с заданием.

3. Составить программу решения задачи.

4. Подготовить тестовый вариант исходных данных и вычислить для них значения вычисляемых в программе величин.

Задание к работе

1. Вычислить на ЭВМ значения переменных, указанных в таблице 1.1 (вариант задается преподавателем), по заданным расчетным формулам и наборам исходных данных. Организовать ввод данных, используя функцию InputBox, вывести значения результатов вычислений, используя функцию MsgBox.

Таблица 1.1

Вариант	Расчетные формулы			Значения
задания	Расчетные формулы			исходных данных
задания				исходных данных
1		2		3
	a	2 cos x / 6
1		1/ 2 sin2 y		x = 1,426; y = 1,220;
				x = 1,426; y = 1,220;
			z2	z = 3,5
	b 1			z = 3,5

			z2 / 5
		3	z2 / 5

Продолжение табл. 1.1

g x y / x 3 y / x

x = 1,825; y = 18,225;

y z / y

c y x

z = –3,298

1 y x 2

s 1 x

x = 0,335; y = 0,025

d x sin x3 cos2 y

y e bt sin at b

bt a

a = –0,5; b = 1,7;

s b sin at2 cos 2t

t = 0,44

b b2 sin3 x a / x

a = 1,5; b = 15,5;

y cos2 x3

x = –2,9

x /

s x3 tg2 x b 2 a /

x b

a = 16,5; b = 3,4;

bx2 a

eax 1

x = 0,61

R x x 1 / b sin x a

a = 0,7; b = 0,05;

xb / a cos2 x b 3

x = 0,5

y sin3 x2

a 2

x / b

a = 1,1; b = 0,004;

x = 0,2

cos x b

3 m tg t c sin t

m = 2; c = –1; t = 1,2;

z m cos b t sin t c

b = 0,7

Окончание табл. 1.1

y b tg2 x

sin2 x / a

a = 3,2; b = 17,5;

x = –4,8

d ae

a cos bx / a

ln a x2 sin2 x / b

a = 10,2; b = 9,2;

x a

z e

x = 2,2; c = 0,5

x b

a2x b x cos a b x

a = 0,3; b = 0,9;

x 1

x = 0,61

x2 b b2 sin3 x a / x

a x sin 2x e 2x x b

a = 0,5; b = 3,1;

x = 1,4

cos2 x3 x / a2

a2 x e x cos(b x)

a = 0,5; b = 2,9;

b x e x sin(b x) 1

x = 0,3

f e2 x ln a x b3x ln b x

sin x

c m

ln m x

m = 0,7; c = 2,1;

1 m2 sin2 x

x = 1,7; a = 0,5;

s e ax

x 1 e bx

x 1,5

b = 1,08

Пример выполнения работы

Задание 1. Вычислить на ЭВМ значения y и p, используя расчетные формулы

y = a tg3 x2		z2	,
	a2	x2

p ln a x2 sin2 az

при значениях a = 0,59, z = –4,8, x = 2,1.

Схема алгоритма решения представлена на рисунке 1.1.

начало

2 a,x,z

y=f1(x,z)

p=f2(x,z)

y,p

конец

ввод исходных данных

вычисление значений функции y

вычисление значений функции p

вывод вычисленных значений функции y, p

Рисунок 1.1 – Схема алгоритма программы

Для записи кода программы заходим в редактор VBA нажатием сочетания клавиш Alt+F11 из любого приложения MS Office.

Вменю выбираем пункт Insert→Module.

Воткрывшемся окне набираем следующий код программы:

Sub LR1()

'Объявление переменных

Dim a As Double, x As Double, z As Double, y As Double, p As Double a = Val(InputBox("a=")) 'Ввод a

x= Val(InputBox("x=")) 'Ввод x

z= Val(InputBox("z=")) 'Ввод z

y= a * (Tan(x ^ 2)) ^ 3 + (z * z / (a * a + x * x)) ^ (1 / 2) 'Вычисление значения функции Y

p= Log(a + x * x) + (Sin(z / a)) ^ 2 'Вычисление значения функции р sp = MsgBox(y, , "Y=") 'Вывод y

sp = MsgBox(p, , "P=") 'Вывод p End Sub

Вкачестве тестового набора исходных данных используем следующие значения переменных: а = 1, z = 1, x = 0,5. Тогда вычисляемые значения у и р будут равны

y 1 tg3 0,5 2	1	0,911;
	0,5 2
1

p ln 1 0,25 sin2 1 0,931.

Вычисленные значения у и р следует сравнить со значениями, вычисленными на ЭВМ.

Лабораторная работа № 2

ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ

Цель работы: овладеть практическими навыками разработки, программирования вычислительного процесса разветвляющейся структуры, получить дальнейшие навыки по отладке и тестированию программы.

Задания для самостоятельной подготовки

1.Изучить возможности языка программированиядля реализации:

– условной и безусловной передачи управления;

– вычислительного процесса разветвляющейся структуры.

2.Разработать алгоритм решения в соответствии с заданием.

3.Составить программу решения задачи.

4.Подготовить тесты (число тестов равно числу ветвей вычислительного процесса) для проверки правильности функционирования программы.

Задания к работе

1.Вычислить значение функции, заданной в таблице 2.1 (в соответствии с вариантом задания). Осуществить вывод значений исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных.

2.Выполнить программу на ЭВМ и протестировать все ветви алгоритма.

Таблица 2.1

Вариант	Функция					Исходные
Вариант	Функция					данные
						данные
1				2		3
		at		cos bt, t 1
	e			cos bt, t 1		a = –0,5
1			1 t 2			a = –0,5
1	y 1,		1 t 2			b = 2
						b = 2

	at2 ln t, t 2

	x2		7 / x2 , x 1,3

2			7		x, x 1,3	a = 1,5
2	y ax3		7		x, x 1,3	a = 1,5
					x , x 1,3
	lg x 7				x , x 1,3

	ax2 bx c, x 1, 2					a = 2,8
						a = 2,8
3				x2 1, x 1, 2		b = –0,3
3	a / x			x2 1, x 1, 2		b = –0,3
					x2 1, x 1, 2	c = 4
	a bx /				x2 1, x 1, 2

Продолжение табл. 2.1

7 / x

, x 1, 4

x, x 1, 4

a = 1,65

Q ax3 7

x a

, x 1

ln x 7

1.5cos2 x, x 1

1,8ax, x

a = 2,3

2 2

6, 1 x 2

3tg x, x

x a,

x a

a = 2,5

x sin ax ,

e ax cos ax , x a

bx lg

bx ,

bx 1

b = 1,5

Q 1,

bx 1

bx lg bx ,

x, x 3,5

cos

sin x lg x, x 3,5

, x 1

sin

a = 20,3

x 1 , x 1

cos x t sin

x, x 0,5

1 / x, x 0,5

t = 2,2

z x t

x t , x 0,5

( ln x x ) /

a b

, x 2,8

ex cos x

a = 2,6

b) / (x

1), 2,8 x

s (a

b = –0,39

x 6

ex sin x,

1 / 61 2 3 4 5 6 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
24.11.2025302.12 Кб059722.pdf
#
24.11.2025465.26 Кб06145.pdf
#
24.11.2025377.35 Кб06156.pdf
#
24.11.2025460.09 Кб062368.pdf
#
24.11.2025298.65 Кб06238.pdf
#
24.11.2025436.21 Кб06378.pdf
#
24.11.2025379.48 Кб064017.pdf
#
24.11.2025344.35 Кб068483.pdf
#
24.11.2025410.62 Кб0697.pdf
#
24.11.2025372.91 Кб070424.pdf
#
24.11.2025457.93 Кб070440.pdf