Dim N As Integer

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

'заполнение формы после ее загрузки. сетка в графическом поле

Picture1.Refresh

Picture1.Scale (0, 20)-(20, 0)

For I = 1 To 20

Picture1.Line (I, 0)-(I, 20), RGB(200, 200, 200)

Next I

For I = 1 To 20

Picture1.Line (O, I)-(20, I), RGB(200, 200, 200)

Next I

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

If N = 0 Then

X1 = CInt(X * 10) / 10

Y1 = CInt(Y * 10) / 10

Picture1.PSet (X, Y)

N = N + 1

ElseIf N = 1 Then

X2 = CInt(X * 10) / 10

Y2 = CInt(Y * 10) / 10

Picture1.PSet (X, Y)

N = N + 1

Else

X3 = CInt(X * 10) / 10

Y3 = CInt(Y * 10) / 10

Picture1.PSet (X, Y)

N = N - 2

End If

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

' очистим поле построим сетку

Picture1.Refresh

Picture1.Scale (0, 20)-(20, 0)

For I = 1 To 20

Picture1.Line (I, 0)-(I, 20), RGB(200, 200, 200)

Next I

For I = 1 To 20

Picture1.Line (O, I)-(20, I), RGB(200, 200, 200)

Next I

'построим треугольник по указанным точкам и вычислим площадь

Picture1.Line (X1, Y1)-(X2, Y2), RGB(0, 0, 255)

Picture1.Line (X1, Y1)-(X3, Y3), RGB(0, 0, 255)

Picture1.Line (X3, Y3)-(X2, Y2), RGB(0, 0, 255)

'покажем координаты

TxtX1_m.Text = X1: TxtY1_m.Text = Y1

TxtX2_m.Text = X2: TxtY2_m.Text = Y2

TxtX3_m.Text = X3: TxtY3_m.Text = Y3

TxtS_m.Text = S_Tr(X1, Y1, X2, Y2, X3, Y3)

'построим треугольник по указанным точкам и вычислим площадь

X1 = Val(TxtX1_k.Text)

Y1 = Val(TxtY1_k.Text)

X2 = Val(TxtX2_k.Text)

Y2 = Val(TxtY2_k.Text)

X3 = Val(TxtX3_k.Text)

Y3 = Val(Txty3_k.Text)

Picture1.Line (X1, Y1)-(X2, Y2), RGB(255, 0, 0)

Picture1.Line (X1, Y1)-(X3, Y3), RGB(255, 0, 0)

Picture1.Line (X3, Y3)-(X2, Y2), RGB(255, 0, 0)

TxtS_k.Text = S_Tr(X1, Y1, X2, Y2, X3, Y3)

7. Создайте вызываемую функция, которая по координатам вершин треугольника вычисляет площадь треугольника по формуле Геррона, для этого:

- откройте окно программного кода (для любого объекта;

- в списке Object выберите General

- наберите следующее:

Function S_Tr(a1, b1, a2, b2, a3, b3 As Single) As Single

'определяем длины сторон

dlina1 = Sqr((a1 - a2) ^ 2 + (b1 - b2) ^ 2)

dlina2 = Sqr((a1 - a3) ^ 2 + (b1 - b3) ^ 2)

dlina3 = Sqr((a3 - a2) ^ 2 + (b3 - b2) ^ 2)

'определяем полупериметр

p = (dlina1 + dlina2 + dlina3) / 2

S_Tr = Sqr(p * (p - dlina1) * (p - dlina2) * (p - dlina3))

End Function

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

- введите координаты вершин треугольника с клавиатуры (текстовые окна справа)

- щелчком мышки в графическом окне отметьте вершины другого треугольника

- для построения треугольников и определения площади каждого, щелкните по командной кнопке

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

Тема: Рекурсивные функции и процедуры

Цель: Закрепить навыки создания вызываемых процедур и функций

Часть

Постановка задачи: разработать приложение, вычисляющее факториал числа.

(Факториал числа– это произведение всех целых чисел от 1 до указанного числа.)

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

1. Установите на форме следующие объекты и измените им свойства:

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

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