Порядок выполнения

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2

End If

Else

End If

Else

End If

Else

End If

Else

Dim info As String

Dim a, b, c As Integer

a = Val(txtA.Text)

b = Val(TxtB.Text)

c = Val(TxtC.Text)

'проверка существует ли треугольник

If (a >= b + c) Or (b >= a + c) Or (c >= a + b) Then

LblInfo1.Caption = "треугольник не существует"

LblInfo1.Caption = "треугольник существует"

'проверка на равенство сторон

If a = b And a = c Then

LblInfo2.Caption = "треугольник равносторонний"

LblInfo2.Caption = "треугольник не равносторонний"

'проверка на равнобедренность

If a = b Or a = c Or b = c Then

LblInfo3.Caption = "треугольник равнобедренный"

LblInfo3.Caption = "треугольник не равнобедренный"

'проверка на наличие прямого угла

If (a ^ 2 = b ^ 2 + c ^ 2) Or (b ^ 2 = a ^ 2 + c ^ 2) Or (c ^ 2 = a ^ 2 + b ^ 2) Then

LblInfo4.Caption = "треугольник прямоугольный"

LblInfo4.Caption = "треугольник не прямоугольный"

4. Проверьте работу программы.

5. Измените приложение так, чтобы оно определяло, умещается ли треугольник с заданными сторонами в окружность заданного радиуса. (самостоятельно).

6. Результат показать преподавателю.

Тема: Условный оператор

Цель: Закрепить навыки использования условного оператора

1. Откройте новый проект, установите следующие объекты и измените им свойства

Объект	Свойство	Значение
Рамки	Caption	Ваше число
	Caption	Диапазон чисел
Текстовое окно	Name	TxtOtvet
Метки	Name	LblMalo
Caption
Name	LblMnogo
Caption
Name	Label1
Caption	Мало
Name	Label2
	Caption	Много
Командная кнопка	Name	CmdProverka
Caption	Проверить

2.

Приведите свою форму в соответствие с образцом

3. В разделе общих объявлений набрать

Дата добавления: 2014-12-25