Лабораторно-практические работы Общие рекомендации по выполнению работ

1. Выполнение предложенных работ целесообразно проводить после проработки практических работ и заданий для самостоятельного выполнения из 1 и 2 частей учебного пособия;

2. Перед выполнением конкретной практической работы необходимо изучить теоретический материал по тематике работы;

3. Лабораторно-практические работы выполняйте в указанной последовательности;

4. После выполнения каждой работы сформулируйте для себя назначение созданного проекта (если это заранее не определено), а также разберитесь с назначением каждой команды программного кода.

Лабораторно-практическая работа № 1

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

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

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

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

Объект	Свойство	Значение
Рамки	Caption	Длины сторон треугольника
	Caption	Результаты проверки
Текстовые окна	Name	TxtA
	Name	TxtB
	Name	TxtC
Метки	Name	LblInfo1
	Caption	(отсутствует)
	Name	LblInfo2
	Caption	(отсутствует)
	Name	LblInfo3
	Caption	(отсутствует)
	Name	LblInfo4
	Caption	(отсутствует)
Командная кнопка	Name	CmdProverka
	Caption	Проверить

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

3. В окне кода процедуры обработки события Click набрать для объекта cmdProverka

Dim a, b, c As Integer

Dim info As String

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 = "треугольник не существует"

Else

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

End If

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

If a = b And a = c Then

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

Else

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

End If

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

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

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

Else

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

End If

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

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

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

Else

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

End If

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

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

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

Лабораторно-практическая работа № 2

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

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

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

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

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

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

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

Dim k As Integer , otv As Integer

4. В окне кода процедуры обработки события Load набрать для объекта Form

Randomize Timer

otv = Int(Rnd * 100 + 1) 'число загадано

k = 0 ' количество попыток

5. В окне кода процедуры обработки события Click набрать для объекта cmdProverka

x = Val(TxtOtvet.Text)

k = k + 1

If x = otv Then

MsgBox "количество попыток " + Str(k), , "УГАДАНО"

LblMalo.Caption = "0"

LblMnogo.Caption = "100"

MsgBox "загадано новое число", , ""

k = 0

otv = Int(Rnd * 100 + 1)

Exit Sub

End If

If x > otv Then

If x < Val(LblMnogo.Caption) Then LblMnogo.Caption = x

MsgBox "Много", , ""

Exit Sub

End If

If x < otv Then

If x > Val(LblMalo.Caption) Then LblMalo.Caption = x

MsgBox "Мало"

Exit Sub

End If

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

7. Измените программу для того, чтобы :

• после каждого вывода сообщения «Много», «Мало» или «Угадано» содержимое текстового окна удалялось;

• после отгадывания числа выводилось

сообщение «Отлично», если количество попыток меньше 4,

сообщение «Хорошо», если количество попыток от 4 до 7,

сообщение «Слабо!», если количество попыток больше 7.

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