close

Вход

Забыли?

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

?

Lab rab 2

код для вставкиСкачать
Лабораторная работа №2
Тема: Программирование на VBA задач с разветвляюшимся алгоритмом. Цель: > Научится составлять программы с разветвляюшимся алгоритмом, > Изучить оператор условного перехода If...Then...Else...End If,
> Изучить элемент управления CommandButton (Кнопка).
Содержание работы
1. Выполнить пример 1 и пример 2.
2. Выполнить 2 задания по варианту из таблицы вариантов.
3. Продемонстрировать работающую программу преподавателю.
4. Оформить протокол. Требования к оформлению протокола. В протокол необходимо включить:
1. Тему и цель работы.
2. Формулировку задач по варианту. 3. Словесные алгоритмы и блок-схемы задачи.
4. Тексты программ на VBA.
5. Результаты расчета по программе контрольного примера.
6. Проверка результатов расчета вручную.
7. Выводы по работе.
Протокол оформляется вручную.
Ход работы:
Пример 1. Найти корни квадратного уравнения ax2 + bx + c = 0. Ввод исходных данных и вывод результатов производить из ячеек электронной таблицы Microsoft Excel.
1. Откройте новую книгу Microsoft Excel.
2. Создайте таблицу для ввода коэффициентов квадратного уравнения и для вывода результатов расчета (Рис.2.1.).
Рис.2.1.Таблицы для ввода исходных данных
и результатов расчета.
3. Вызовите меню: Вид - Панели инструментов - Элементы управления (Рис.2.2.). Рис.2.2. Элемент управления Кнопка.
4. Выберите элемент управления Кнопка и расположите ее на рабочем листе. 5. Щелкнув правой кнопкой мыши по кнопке, вызовите пункт меню - Свойства.
Измените заголовок (Caption) кнопки на слово Расчет (Рис.2.3.).
Рис.2.3. Заголовок элемента управления Кнопка.
6. Аналогично создайте кнопку Очистка и расположите эти две кнопки ниже таблицы с результатами расчета (рис.2.4.).
Рис. 2.4. Кнопки Расчет и Очистка.
3. Откройте редактор VBA (Alt + F11). 4. Напишите программу, определяющую корни квадратного уравнения (Рис.2.5.):
Рис.2.5. Программа для определения корней квадратного уравнения.
5. Напишите программу для кнопки Очистка (Рис.2.6.):
Рис.2.6.Программа для кнопки Очистка.
6. Введите исходные данные. Вызовите меню Run - Run Sub и запустите программу на выполнение. Результат выполнения программы представлен на рис. 2.7.
Рис.2.7.Результат выполнения программы.
7. Введите другие исходные данные и проверьте все ветви программы (D>0, D=0, D<0).
Пример 2. Даны три точки на плоскости. Определить, какая из них ближе к началу координат. 1. Откройте Лист2 рабочей книги Microsoft Excel.
2. Подготовьте таблицу для ввода исходных данных и для вывода результатов расчета. Создайте кнопки Расчет и Очистка (Рис.2.8.).
Рис.2.8. Таблица для ввода исходных данных и для вывода результатов.
3. Откройте редактор VBA (Alt + F11). 4. Напишите программу, определяющую расстояние от каждой точки до начала координат (Рис.2.9.):
Рис.2.9.Программа для определения расстояния.
5. Дополните программу проверкой условия - какое расстояние меньше, т.е. какая точка расположена ближе к началу координат (Рис.2.10):
Рис.2.10. Проверка условия.
6. Напишите программу для кнопки Очистка.
Рис.2.11. Программа для кнопки Очистка.
7. Введите исходные данные и проверьте работу программы. Рис.2.11. Результат работы программы.
8. Протестируйте программу при всех возможных вариантах исходных данных, т.е. проверьте все ветви программы.
Таблица вариантов
№1 задание: написать программу для определения функции f(x).2 задание1Введите 3 числа A, B, C. Напишите программу для определения большего и меньшего из них и их произведения.
2Введите 3 числа A, B, C. Напишите программу для определения четности или нечетности этих чисел.
Найти сумму четных чисел.3Введите трёхзначное целое число. Определите какая из цифр наибольшая, какая наименьшая и есть ли одинаковые цифры.
4Введите трехзначное число. Найти четные цифры и их сумму. Вывести сообщение какие цифры четные и сумму.5Точка А(х, у) задана координатами х и у. Определите и выведите на экран номер квадранта, в котором расположена точка А(х, у).6 Заданы координаты х и у двух точек А и В. Определите, лежат ли они на прямой, заданной уравнением у = 2х+1. 7Заданы координаты точки А - х и у. Составьте программу, которая определяет принадлежит ли точка А кругу радиусом r. 8Заданы координаты двух точек А(х,у) и В(х,у) и радиус окружности r. Определить какая из точек лежит на окружности, какая внутри окружности, а какая вне окружности.9Введите трехзначное число. Найдите наибольшую и наименьшую цифры этого числа и их произведение.10
Введите сторону квадрата а и радиус круга-. Определите площадь круга и площадь квадрата. Какая из двух фигур (круг или квадрат) имеет большую площадь. Вывести название фигуры и значение площади.11Заданы площади круга и квадрата. Определите, поместится ли круг в квадрате. Круг поместится в квадрате, если диаметр круга <= стороне квадрата.12Введите 3 числа. Найдите наибольшее и наименьшее из них и их среднее арифметическое.13
Заданы координаты х и у двух точек А и В. Определите, лежат ли они на параболе, заданной уравнением у = 2х2+3. 14Введите трехзначное число. Найдите наибольшую и наименьшую цифры этого числа и их сумму.15Точка А(х, у) задана координатами х и у. Определите и выведите на экран номер квадранта, в котором расположена точка А(х, у).16Введите трехзначное число. Найти какие цифры четные, а какие нечетные. Определить сумму четных цифр. 17Введите 3 числа. Найти среди этих чисел кратные трем и вычислить наибольшее и наименьшее из них.18Введите 3 числа. Найдите наибольшее и наименьшее их чисел и их произведение.19Введите 3 числа. Определите какие из них кратны 6. Найдите сумму этих чисел. Вывести соответствующие сообщения.20Заданы координаты Х и У трех точек А, В, С и радиус окружности r. Определить какая из точек лежит внутри окружности, какая на окружности, а какая вне окружности.21Заданы координаты х и у двух точек А и В. Определите, лежат ли они на кривой, заданной уравнением у = 2х3+5х. 22Заданы площади круга и квадрата. Определите, поместится ли квадрат в круге. Квадрат поместится в круге, если диагональ квадрата <= диаметру круга.
23Введите 3 числа. Определите какие из них четные, а какие нечетные. Найдите произведение нечетных чисел. Вывести соответствующие сообщения.24Введите трехзначное число. Найти среди цифр этого числа цифры кратные пяти и вычислить их сумму.25Введите 3 числа A, B, C. Напишите программу для определения большего и меньшего из них и их суммы.
Документ
Категория
Рефераты
Просмотров
69
Размер файла
305 Кб
Теги
lab, rab
1/--страниц
Пожаловаться на содержимое документа