Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лабораторные работы по VBA.doc
Скачиваний:
5
Добавлен:
17.04.2019
Размер:
730.11 Кб
Скачать

Индивидуальные задания для самостоятельной работы

Задание 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, если точка находится вне круга.

  1. Найти квадрат наибольшего из двух чисел a и b и вывести признак N=1, если наибольшим является a, и признак N=2 – в противном случае.

  2. Определить, является ли значение целочисленной переменной х кратным 3. Если является, то вывести значение х на печать, в противоположном случае отпечатать «НЕТ».

  3. Ввести переменные: А; В; С. Вычислить Х=АВ-2В, Y=(В+С)2-2А. Вывести X и Y на печать и вывести признак N=1, если X > Y, и признак N=0, в противном случае.

  4. Ввести переменную А. Вычислить: В=А+5; С=А+В+12; D=А+В+С+8,1; Х=(А+В)2-2С+D. Если Х > 0 , вывести на печать значение переменной Х и перейти к формированию условия А+В < C + D. Если условие выполняется, вывести на печать значение левой и правой частей неравенства.

  5. Вычислить Y= A* sin (1,3). Вывести Y на печать и вывести признак N=1, если Y > 2 , и признак N=0, в противном случае.

  6. Ввести переменные А и В. Если А и В отрицательные, присвоить Y значение -1; если А и В положительные, присвоить Y значение 1.

  7. Ввести переменную х. Если 0,5 < x < 0,7 , присвоить Y значение 1, в противном случае Y=0.

  8. Из двух чисел А и В выбрать наибольшее и вывести его на печать.

10. Из трех чисел A, B и C выбрать наименьшее и вывести его на печать.