Лекция: Команда ветвления IF

Задание 1

Public Class frmXY

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click

Dim X, Y As Single

X = Convert.ToDouble(txtX.Text)

lblY.Text = ""

If X <= 10 And X <> 5 Then

Y = 1 / (X — 5)

Else

If X > 15 Then

Y = Math.Cos(X)

Else

lblY.Text = «Не определено»

End If

End If

If lblY.Text = "" Then lblY.Text = «Y=» & Y

End Sub

End Class

Задание 2

Составить программу, при помощи которой можно вычислить значение данной функции при любом значении X (действительное число). В случае, если функция при данном значении X не определена, вывести ответ «функция не определена».

Задание 3

Компьютер задумывает объем куба (используя датчик случайных чисел Rnd(n)). Зная исходные данные (вводятся с использованием окна редактирования) для определения объема данного тела определите, задуманный объем равен, меньше или больше вашего.