- •Лабораторная работа №2 Тема: Разработка программ линейной структуры в среде vba.
- •1) Способ представления алгоритма в виде блок-схемы.
- •2) Линейная структура программы в vba.
- •5) Выполните ввод числовых значений:
- •6) Программа выведет на экран монитора диалоговое окно с результатом вычислений:
- •Индивидуальные задания для самостоятельной работы
- •Задание 1. По предложенной блок-схеме разработать программу. Используя функцию Round, округлить результаты вычислений.
- •Варианты задания 3
- •Лабораторная работа №3 Тема: Разработка программ разветвленной структуры в среде vba.
- •1) Понятие разветвленной вычислительной структуры.
- •Индивидуальные задания для самостоятельной работы
- •Лабораторная работа № 4 Тема: Разработка программ циклической структуры в среде vba.
- •1) Понятие циклического вычислительного процесса.
- •2) Реализовать данную программу в среде vba Microsoft Excel:
- •3) Внести изменения в программу Пример4 так, чтобы было возможно вычисление суммы любого количества чисел «2».
- •4) Реализовать данную программу в среде vba Microsoft Excel:
- •7) Реализовать данную программу (рис. 22) в среде vba Microsoft Excel. Выполнить вывод заголовков и результатов в окно Immediate:
- •Индивидуальные задания для самостоятельной работы
- •Лабораторная работа № 5 Тема: Разработка программ обработки информационных массивов в среде vba.
- •1) Порядок обработки информационного массива.
- •4) Реализовать данную программу в среде vba Microsoft Excel:
- •Индивидуальные задания для самостоятельной работы
Индивидуальные задания для самостоятельной работы
Задание 1. По предложенной блок-схеме разработать программу либо c оператором If, либо с оператором множественного выбора Select Case.
1 . Y=
|
2 . Y= |
3. S = |
4. Р = |
|
|
5. Y= |
|
|
6. Вычислить корни квадратного уравнения ax2 + bx + c = 0 |
|
|
|
|
|
7. Z = |
|
|
|
|
|
8 . Z =
|
|
|
9. P = A*B*C. Если P 10, то вывести результат на экран, иначе, выдать сообщение «Произведение меньше 10». |
10. Ввести переменные: А, В, С. Вычислить Х=АВ-2В, Y=(В+С)2-2А. Если X > Y, вывести X, Y и соответствующее сообщение на экран |
|
|
|
Задание 2. Требуется составить и отладить программу на языке VBA c оператором If.
вариант задания |
условие задачи |
1 |
Вычислить: Y= |
2 |
Вычислить: Y= |
3 |
Вычислить: Y= |
4 |
Вычислить: Y= |
5 |
Вычислить: Y= |
6 |
Вычислить: Y= |
7 |
Вычислить: Y= |
8 |
Вычислить: Y= |
9 |
Вычислить: Y= |
10 |
Вычислить: Y= |
Задание 3. Выполнить математическую постановку задачи. По разработанному алгоритму составить и отладить программу на языке VBA и выполнить по ней расчеты на ПЭВМ.
1. Определить, попадает ли точка с координатами x, y в круг радиуса r (уравнение окружности r2 = x2 + y2). Вывести признак N=1, если точка находится внутри круга, и признак N=0, если точка находится вне круга.
Найти квадрат наибольшего из двух чисел a и b и вывести признак N=1, если наибольшим является a, и признак N=2 – в противном случае.
Определить, является ли значение целочисленной переменной х кратным 3. Если является, то вывести значение х на печать, в противоположном случае отпечатать «НЕТ».
Ввести переменные: А; В; С. Вычислить Х=АВ-2В, Y=(В+С)2-2А. Вывести X и Y на печать и вывести признак N=1, если X > Y, и признак N=0, в противном случае.
Ввести переменную А. Вычислить: В=А+5; С=А+В+12; D=А+В+С+8,1; Х=(А+В)2-2С+D. Если Х > 0 , вывести на печать значение переменной Х и перейти к формированию условия А+В < C + D. Если условие выполняется, вывести на печать значение левой и правой частей неравенства.
Вычислить Y= A* sin (1,3). Вывести Y на печать и вывести признак N=1, если Y > 2 , и признак N=0, в противном случае.
Ввести переменные А и В. Если А и В отрицательные, присвоить Y значение -1; если А и В положительные, присвоить Y значение 1.
Ввести переменную х. Если 0,5 < x < 0,7 , присвоить Y значение 1, в противном случае Y=0.
Из двух чисел А и В выбрать наибольшее и вывести его на печать.
10. Из трех чисел A, B и C выбрать наименьшее и вывести его на печать.