Добавил:

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

Вуз:

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

Предмет:

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

Файл:

Лабораторные VBA

.pdf

Скачиваний:

Добавлен:

31.05.2015

Размер:

690.07 Кб

Скачать

☆

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

Министерство образования Республики Беларусь БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

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

ЛАБОРАТОРНЫЙ ПРАКТИКУМ

по дисциплине «Информатика» для студентов специальности 1 - 37.01.01 –

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

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

Минск 2013

УДК 004.422.8 (076.5)

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

Составитель: А.В. Предко

Рецензенты: зав. кафедрой «Тракторы и автомобили» БГАТУ д.т.н., доцент Ю.Д. Карпиевич зав. НИЦ ДД, доцент кафедры ОАПДД БНТУ к.т.н., доцент Д.В. Капский

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

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

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

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

1. Изучить:

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

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

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

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

InputBox и MsgBox.

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

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

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

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

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

MsgBox.

Таблица 1.1

Вариант

Расчетные формулы

Значения исходных

задания

данных

2cos(x / 6)

;

1 / 2 sin2 y

x=1,426; y=1,220;

z=3,5

b 1

3 z2

/ 5

g x y / x 3

;

y / x

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

y z / (y x)

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)

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

y e bt sin at b

bt a

a=-0,5; b=1,7; t=0,44

s bsin(at2 cos 2t)

x2 b b2 sin3(x a) / x

a=1,5; b=15,5; x=-2,9

y cos2 x3 x /

s x3 tg2(x b)2 a /

x b ;

a=16,5; b=3,4; x=0,61

bx2

eax

R x2(x 1) / b sin2

(x a)

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

xb / a cos2(x

b)3

y sin3 x2 a 2

x / b

cos x b 3

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

3 m tg t c sin t

m=2; c=-1; t=1,2; b=0,7

m cos b t sint c

y b tg2

sin2 x / a

a=3,2; b=17,5; x=-4,8

d ae

cos bx / a

f ln a x2 sin2 x / b

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

z e cx

x a

c=0,5

x b

a2 x

b x cos

a b x

x 1

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

b2 sin3 x a / x

x2 b

a x sin 2x e 2 x

x b

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

cos2 x3 x /

a2 x e x cos(b x)

b x e x sin(b x) 1

a=0,5; b=2,9; 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; x=1,7;

1 m2 sin2 x

a=0,5; b=1,08

s e ax

x 1 e bx

x 1,5

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

Задание 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	ввод исходных данных
			a,x,z

3				вычисление значений
3		y=f1(x,z)

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


4
4		p=f2(x,z)
		p=f2(x,z)		функции p
				вывод вычисленных зна-


5			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 'Вычисление значения функции Y 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

Вари-

Функция

Исходные

ант

данные

eat

cosbt, t 1

1 t 2

a=-0,5

b=2

ln t, t 2

/ x2 , x 1.3

x, x 1.3

a=1,5

x ), x 1.3

lg(x 7

ax2

bx c, x 1.2

a=2,8

1, x 1.2

b=-0,3

a / x

(a bx) /

c=4

x2 1, x 1.2

/ x

, x 1.4

x, x 1.4

a=1,65

x 7

x a

, x 1.4

1.5cos2

x, x 1

1.8ax, x 1

6, 1 x 2

a=2,3

3tg x, x

x a ,

x a

xsin ax ,

x a

a=2,5

e ax cos ax , x a

bx lg bx , bx 1

1, bx 1

b=1,5

bx lg bx , bx 1

cos2 x, x 3.5

sin x lg x, x 3.5

sin2

, x 1

x 1 , x 1

a=20,3

cos at, at 1

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

cos x t sin2

x, x 0.5

x t 1 / x, x 0.5

t=2,2

x x

) /

x t , x 0.5

( ln

a b

, x 2.8

cos x

b) / (x

1),

2.8 x 6

a=2,6

s (a

b=-0,39

sin x, x 6

, x 1

a lg x

a=0,9

2a cos x 3x2 , x 1

c, i 4

a=2,1

4 i 6

b=1,8

, i

c=-20,5

ai bi

i2 1

a sin

a=0,3

n=10

cos i

at2 bsin t 1, t 0.1

a=2,5

at b, t 0

b=0,4

at2 b cost 1, t 0.1

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

Вычислить на ЭВМ значение функцииat b, at 1

s cos at, at 1

e at

для a=1.3, b=1.29.

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

начало

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

a,b,t

вычисление значений

s=f1(t)

функции s при любых at

да

at=1

вычисление значений

нет

p=f2(x,z)

функции p при at=1

at>1

да

вычисление значений

нет

p=f2(x,z)

функции p при at>1

вывод вычисленных

значений функции p

конец

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

Программа, реализующая на языке VBA схему алгоритма, представленную на рисунке 2.1, имеет вид:

Sub LR2()

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

Dim a As Double, b As Double, t As Double, s As Double a = Val(InputBox("a=")) 'Ввод a

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

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

s = a * t + b 'Вычисление значения функции для любых at

If a * t = 1 Then s = Cos(a * t) 'Вычисление значения функции для at=1

If a * t > 1 Then s = Exp(-a * t) * Cos(a * t) 'Вычисление значения функции для at>1

sp = MsgBox(s, , "s=") 'Вывод s

End Sub

В качестве тестовых наборов исходных данных примем следующие тесты:

1)a=1, b=1, t=0.5, s=1 0.5+1=1.5;

2)a=1, b=1, t=1, s=cos(1)=0.5403;

3)a=2, b=1, t=1, s=e-2 cos(2)= 0.0563.

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

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

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

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

1. Изучить:

-организацию алгоритмов циклической структуры;

-возможности языка программирования для построения циклов;

-приемы программирования - вычисление определенных интегралов по методу прямоугольников и трапеций;

-свойства объектов .

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

3.Создать форму пользователя с необходимыми полями.

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

5. Для контроля вычислений определить математическое выражение точного значения интеграла и включить вычисление его в программу.

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

Вычислить на ЭВМ значение интеграла

s f(x)dx,

приведенного в таблице 3.1, на заданном отрезке интегрирования [a,b] (в соответствии с вариантом задания). Считать заданным число разбиений отрезка интегрирования n и метод численного решения. Включить в программу вычисление точного значения интеграла по первообразной функции, приведенной в таблице 3.2. Вывести приближенное, точное значения интеграла и относительную погрешность вычисления в процентах.

В таблице 3.2 приведены выражения для вычисления первообразных функций

f(x)dx F(x) ba F(b) F(a).

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

Вычислить на ЭВМ методом трапеций значение интеграла

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

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

#
21.08.2019707.89 Кб3Лабораторная_работа_4_Поиск_решения_студ.docx
#
17.11.2019137.25 Кб3Лабораторная_работа_6_Запросы_студ.docx
#
17.11.2019109.01 Кб2Лабораторная_работа_7_Запросы-действия_студ.docx
#
18.11.201941.51 Кб3Лабораторная_работа_8_Сложные_формы_студ.docx
#
20.11.2019451.75 Кб2Лабораторная_работа_9_Отчеты_студ.docx
#
31.05.2015690.07 Кб60Лабораторные VBA.pdf
#
24.09.2019679.94 Кб7Лабораторные работы по ERwin.doc
#
31.05.2015589.75 Кб24Лабораторные работы 1-4.pdf
#
31.05.20151.27 Mб41Лабораторные работы 6,7.doc
#
31.05.20155.25 Mб608Лабораторные работы Photoshop.doc
#
31.05.2015936.83 Кб301лабораторные работы паскаль.pdf