Sub grafik(z1, z2, z3, z4)

PicDraw.Cls

PicDraw.Scale (z1, z2)-(z3, z4)

PicDraw.Line (z1, 0)-(z3, 0)

PicDraw.Line (0, z2)-(0, z4)

End Sub

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

Call grafik(-10, 100, 10, -10)

For x = -10 To 10 Step 0.1

y = x ^ 2

PicDraw.PSet (x, y)

Next x

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

Call grafik(-10, 2, 10, -2)

For x = -10 To 10 Step 0.1

y = Sin(x)

PicDraw.PSet (x, y)

Next x

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

Call grafik(-10, 10, 10, -10)

For x = -10 To 10 Step 0.1

y = Abs(x)

PicDraw.PSet (x, y)

Next x

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

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

Тема: Процедуры общего назначения

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

Постановка задачи: По заданным координатам построить два треугольника и определить их площадь, используя вызываемую функцию, цель которой – вычисление площади треугольника

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

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

2.

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

Dim X1, Y1, X2, Y2, X3, Y3 As Single