close

Вход

Забыли?

вход по аккаунту

?

Lab rab 1 (2)

код для вставкиСкачать

Лабораторная работа №1
Тема: Программирование на VBA задач с линейными алгоритмами. Цель:
> Научится составлять программы с линейным алгоритмом
> Изучить функции InputBox и MsgBox.
> Научится вводить и выводить данные в программе из ячеек электронной таблицы Microsoft Excel.
Содержание работы
1. Выполнить пример 1 и пример 2.
2. Выполнить 2 задания по варианту из таблицы вариантов.
3. Продемонстрировать работающие программы преподавателю.
4. Оформить протокол. Требования к оформлению протокола. В протокол необходимо включить:
1. Тему и цель работы.
2. Формулировку задач по варианту.
3. Словесные алгоритмы и блок-схемы задач по варианту.
4. Тексты программ на VBA.
5. Результаты расчета по программам контрольного примера.
6. Тестирование программ (проверка результатов программы вручную).
7. Выводы по работе.
Ход работы:
Пример 1. Вычислить ток исследуемой ветви по формуле:
если известны ЭДС - Е, сопротивление - R, сопротивление исследуемой ветви - Rx.
Словесный алгоритм:
1. Начало
2. Ввод исходных данных: E, R, Rx.
3. Расчет по формуле:
4. Вывод результатов.
5. Конец.
Блок-схема:
1. Вызовите редактор VBA (Alt + F11).
2. Вызовите меню Insert - Procedure (Вставить процедуру).
3. В появившемся диалоговом окне задайте имя процедуры - Tok.
Рис.1.1. Вставка процедуры.
4. Нажмите кнопку Ok. В окне редактора VBA появится первая и последняя строки процедуры.
Рис.1.2.Первая и последняя строчка программы.
5. Наберите текст программы, используя комментарии. Для ввода исходных данных используйте функцию InputBox, а для вывода результатов расчета - функцию MsgBox.
Рис.1.3.Текст программы.
6. Вызовите меню Run - Run Sub и запустите программу на выполнение.
Появятся три диалоговых окна, в которые необходимо ввести исходные данные (Рис.1.4.-Рис.1.6):
Рис.1.4. Ввод ЭДС.
Рис.1.5.Ввод сопротивления резистора R.
Рис. 1.6. Ввод сопротивления исследуемой ветви Rx.
7. Результат работы программы появится в сообщении (Рис.1.7.):
Рис.1.7. Результат работы программы.
8. Проверьте программу на контрольном примере.
Пример 2. Вычислите периметр и площадь прямоугольного треугольника, если известны длины двух его катетов. Ввод и вывод исходных данных производить из ячеек Microsoft Excel.
1. Создайте в новой книге Microsoft Excel таблицу для ввода исходных данных и вывода результатов расчета.
Рис. 1.4. Таблицы для ввода исходных данных и результатов.
2. Вызовите редактор VBA (Alt + F11).
3. Вызовите меню Insert - Procedure (Вставить процедуру).
4. Задайте имя новой процедуре - PS
5. Напишите программу для вычисления периметра и площади прямоугольного треугольника.
Объявите переменные, введите исходные данные из электронной таблицы Microsofr Excel, введите формулы для расчета и выведите результаты в ячейки электронной таблицы (Рис.1.5.):
Рис.1.5.Текст программы для определения периметра и площади треугольника.
6. Введите исходные данные в ячейки электронной таблицы и запустите программу на выполнение: Run - Run Sub.
7. Результат работы программы представлен на рис.1.6.
Рис.1.6. Результаты работы программы.
8. Проверьте программу на контрольном примере.
Таблица вариантов
№Написать программу для расчета по формулам, используя функции InputBox и MsgBoxНаписать программу для расчета по формулам. Ввод исходных данных производить из ячеек электронной таблицы1Вычислить емкость конденсатора, при которой в параллельном колебательном контуре возникает резонанс по формуле:
Введите радиус круга R. Найти площадь круга S = R2 , длину окружности L = 2R и объем шара V = .
2Вычислить эквивалентное сопротивление 3-х параллельно соединенных резисторов R1 , R2 и R3 по формуле:
Задан параллелограмм со сторонами основания a и b, высотой - h. Найти площадь боковой поверхности Sбок = Pосн * h и площадь параллелограмма Sобщ = Sбок + 2* Sосн,
где Pосн - периметр основания, Sосн - площадь основания.
3Вычислить сдвиг по фазе  между напряжением и током в цепи с активным сопротивлением Х по формуле:
Угол  вывести в градусах.
Определить площадь боковой поверхности и объем конуса высотой h и радиусом основания R по формулам:
, где .
4Две ветви с эдс Е1 и Е2 и резисторами R1 и R2 соединены параллельно. Рассчитать Ее по формуле:
Задан параллелограмм со сторонами основания a и b, высотой - h. Найти площадь боковой поверхности Sбок = Pосн * h и объем параллелограмма V = a*b*h.
5К источнику напряжения U с внутренним сопротивлением Ri подключена нагрузка с сопротивлением Rн.
Расчитать мощность нагрузки Pн по формуле:
Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H по формулам:
V = R2Н и S = 2RН.
6Две ветви с эдс Е1 и Е2 и резисторами R1 и R2 соединены параллельно. Рассчитать Ее по формуле:
Задан радиус шара R. Определить площадь и объем шара по формулам:
S = 4R2 и V = .
7Заданы 3 резистора R1 , R2 и R3, соединенные по схеме "звезда". Рассчитать сопротивления эквивалентной схемы "треугольник" по формулам:
Задан куб с длиной ребра - а. Найти площадь поверхности куба, объем куба и диагональ по формулам:
S = 6* а2
V = a3
d = a 8К источнику напряжения U с внутренним сопротивлением Ri подключена нагрузка сопротивлением Rн. Вычислить Iн и Uн по формулам:
Заданы стороны треугольника a, b, c. Вычислите его площадь по формуле Герона:
где р = (a + b + c)/2 - полупериметр.
9Две ветви с параметрами R1, E1 и I2 соединены параллельно. Вычислить Ее по формуле:
Рассчитать реактивное сопротивление Х цепи, если известно ее полное сопротивление Z и сдвиг по фазе между током и напряжением . Угол  задан в градусах (перевести в радианы).
Х = Zsin
10Две ветви с эдс Е1 и Е2 и резисторами R1 и R2 соединены параллельно. Вычислить Ее по формуле:
Рассчитать сдвиг по фазе  между током и напряжением цепи по формуле. Угол  перевести в градусы.
11Вычислить эквивалентное сопротивление 3-х параллельно соединенных резисторов R1 , R2 и R3 по формуле:
Заданы площади S1 и S2 и высота h усеченной пирамиды. Найти объем по формуле:
12Вычислить зависимость постоянной времени цепи по формуле:
Вычислить полное сопротивление Z цепи с последовательно соединенными R, L, C на частоте  по формуле: 13Заданы параметры R1, E1 и I2 . Вычислить Ee по формуле:
Задана ширина кольца Н и отношение радиусов R1/R2 = D.
Вычислить площадь кольца по формулам:
R1 = H / (1 - (1 / D))
R2 = R1 / D
R = (R1 + R2) / 2
S = 2RH
14Заданы параметры R1, R2 и L.
Вычислить t формуле:
Заданы радиусы r и R, высота h и образующая l усеченного конуса. Найти площадь и объем по формулам:
15Заданы 3 резистора R1 , R2 и R3, соединенные по схеме "звезда". Рассчитать сопротивления эквивалентной схемы "треугольник" по формулам:
Заданы катеты прямоугольного треугольника. Найти периметр и площадь этого треугольника.16Две ветви с эдс Е1 и Е2 и резисторами R1 и R2 соединены параллельно. Вычислить зависимость эквивалентной эдс от R2 по формуле:
Известно действующее значение напряжения U на входе последовательно соединенных R, L и C. Рассчитать ток в этой цепи на частоте  по формуле: 17Вычислить емкость конденсатора по формуле:
Вычислить полное сопротивление Z цепи с активным сопротивлением R и реактивным сопротивлением Х по формуле:
18Рассчитать реактивное сопротивление Х цепи, если известно ее полное сопротивление Z и сдвиг по фазе между током и напряжением . Угол  задан в градусах (перевести в радианы).
Х = Zsin
Известно действующее значение напряжения U на входе последовательно соединенных R, L и C. Рассчитать напряжение UR на резисторе на частоте  по формуле: 19Вычислить эквивалентное сопротивление 3-х параллельно соединенных резисторов R1 , R2 и R3 по формуле:
Задан радиус основания прямого кругового цилиндра R и высота h. Определить объем и площадь цилиндра по формулам:
V = R2h
S = 2R(R+h)20Две ветви с параметрами R1, E1 и I2 соединены параллельно. Вычислить Ее по формуле:
Заданы координаты трёх вершин некоторого треугольника А,В и С. Найдите его периметр, если его стороны равны: ; ; 21Вычислить емкость конденсатора С по формуле:
Заданы радиус R, высота h и образующая l прямого кругового конуса. Вычислить объем и площадь по формулам:
22Вычислить постоянную времени цепи по формуле:
Известно действующее значение напряжения U на входе последовательно соединенных R, L и C. Рассчитать напряжение UL на катушке на частоте  по формуле: 23Вычислить длительность переходного процесса в цепи t по формуле:
Заданы координаты трёх вершин некоторого треугольника А, В и С. Найдите его площадь S. ; ; , где Р - периметр24Вычислить эквивалентное сопротивление 2-х параллельно соединенных резисторов R1 и R2 по формуле:
Известно действующее значение напряжения U на входе последовательно соединенных R, L и C. Рассчитать напряжение UC на конденсаторе на частоте  по формуле: 25Рассчитать активное сопротивление R цепи, если известно ее полное сопротивление Z и сдвиг по фазе между током и напряжением . Угол  задан в градусах (перевести в радианы). R = Zcos, Заданы координаты Х и У двух точек. Найти расстояние от начала координат до этих точек.
Документ
Категория
Рефераты
Просмотров
128
Размер файла
330 Кб
Теги
lab, rab
1/--страниц
Пожаловаться на содержимое документа