2.1.3 Пример на использование условного оператора:

Написать программу, определяющую - принадлежит ли точка с заданными координатами (x,y) выделенной области на графике (включая границы области) (рис.11)

Рис.11. Область выделения.

Данная область ограничивается графиками двух функций (четверть окружности) и y = x - 6. Разобьем данную область на две части: четверть окружности и треугольник. Для того чтобы точка принадлежала четверти окружности, ее координаты должны удовлетворять условиям:,36. Для того чтобы точка принадлежала треугольнику, должны выполнятся следующие условия: x0,,. Запишем первое условие принадлежности точки части окружности в виде логического выражения:

f1 = (x > =0) and (y >= 0) and (<=36).

Знак “” – знак логической операции конъюнкции (“и”).

Переменная f1 примет значение “True” (“истина”), если координаты точки будут удовлетворять заданным условиям.

Аналогичным образом зададим логическую переменную f2:

f2 = (x >= 0) and(y<=0) and( y >= x – 6).

Для того чтобы точка принадлежала рассматриваемой области, ее координаты должны удовлетворять либо первому условию, либо второму (т.е. точка должна принадлежать либо четверти окружности, либо треугольнику). Запишем это условие с помощью логической переменной f3:

f3 = f1 or f2.

2.1.4 Задание на использование условного оператора:

Написать подпрограмму, которая выводит в первом случае в окно сообщения, во втором – в ячейку листа 3 сообщение «Точка не принадлежит заданному интервалу», если точка, заданная координатами х,у не принадлежит заштрихованной области, в противном случае вывести сообщение «Точка принадлежит заданному интервалу».

Варианты задания:

1		6
2		7
3		8
4		9
5		10

3. Оператор выбора

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

Синтаксис оператора выбора следующий:

Select Case «сравниваемое Значение»

Case «Значение 1»

«блок операторов 1»

Case «значение 2»

«блок операторов 2»

Case Else

«альтернативный блок операторов»

End Select

В начале оператора расположены ключевые слова select case, указывающие, что следующий за с ними параметр «сравниваемое значение» будет проверяться на несколько значений. Далее следуют группы операторов, начинающиеся с ключевого слова Case. Если параметр «сравниваемое_значение» равен значению, указанному в текущем операторе case, то будут выполняться команды, расположенные между этим и следующим ключевым словом case. После завершения выполнения этих команд управление будет передано оператору, следующему за ключевым словом End Select.

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

Создайте на листе3 следующую таблицу (рис.11):

Рис. 11 Вид таблицы для примера использования оператора выбора.

Напишите макрос, имитирующий работу калькулятора, ввод данных осуществляется из ячеек электронной таблицы в соответствии с рис.11, расположенным ниже. Вывод реализован в ячейки электронной таблицы.

Наберите в редакторе VBAтекст макроса и выполните его.

Sub калькулятор()

Dim x As Double, y As Double, z As Double

Dim m As Integer

m = Worksheets("лист3").Cells(7, 3)

x = InputBox("введите первое число")

y = InputBox("введите второе число")

Select Case m

Case 1

z = x + y

Case 2

z = x - y

Case 3

z = x * y

Case 4

z = x / y

Case 5

z = x ^ y

Case Else

MsgBox "вы забыли выбрать действие ,либо номер действия указан неверно"

End Select

Worksheets("лист3").Cells(9, 3) = x

Worksheets("лист3").Cells(10, 3) = y

Worksheets("лист3").Cells(11, 3) = z

End Sub