13.Приведите синтаксис метода pSet. Приведите примеры его использования.

Используется для управления цветом точки. Синтаксис метода: PSet(x,y)[,C]. Метод PSet можно использовать для изображения графиков ф-ций, а также для закраски фигур произвольной формы.

14.Чем отличается растровое изображение от векторного?

Графика бывает двух видов - векторная и растровая. Основное отличие - в принципе хранения изображения. Векторная графика описывает изображение с помощью математических формул. Основное преимущество векторной графики состоит в том, что при изменении масштаба изображения оно не теряет своего качества. Отсюда следует и еще одно преимущество - при изменении размеров изображения не изменяется размер файла.

Растровая графика - это прямоугольная матрица, состоящая из множества очень мелких неделимых точек (пикселей).

15.Что такое графический метод? Назовите графические методы.

Графический метод-метод, который позволяет изображать на объекте данного класса какой-нибудь геометрический элемент, например точку, линию, окружность и т.д. Графический метод ориентирован на абсолютную или относительную систему координат графического объекта. К графическим методам относятся методы line, Circle, PSet.

Раздел 5:

6.Напишите программму построения графика функции с масштабированием.

масштабирование объекта

Picture1.Scale (xn, ymin)-(xk, ymax)

7.Напишите программу построения графика функции.

‘ построение графика функции

For x = xn To xk + dx / 2 Step dx

y = FNy(x)

Picture1.PSet (x, y), vbRed

Next x

End Sub

9.Напишите программу поиска экстремумов функции и масштабирования графического объекта.

‘ поиск максимума и минимума функции

ymax = FNy(xn): ymin = ymax

For x = xn To xk + dx / 2 Step dx

y = FNy(x)

If y > ymax Then ymax = y

If y < ymin Then ymin = y

Next x

1.Напишите алгоритм построения графика функции.

Option Explicit

Const Pi = 3.14159

Private Sub Form_Click() ‘Объявление переменных

Dim x As Single, y As Single, dx As Single

Dim xn As Single, xk As Single

Dim y1 As Single

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then

MsgBox "Нет данных"

Exit Sub

End If

xn = Val(Text1.Text)

xk = Val(Text2.Text)

dx = Val(Text3.Text)

Scale (xn, 10)-(xk, - 5)‘ Построение осей координат

Line (xn, 0)-(xk, 0)

Line (0, -5)-(0, 10)‘ Построение графиков функций

y = Exp(xn) ‘ Вычисление значения первой функции в начальной точке

PSet (xn, y), vbRed ‘Построение начальной точки

For x = xn To xk Step dx ‘ Построение графика функции

y = Exp(x)

If y <= 10 Then

Line -(x, y), vbRed

End If

Next x

y1 = Cos(xn) ‘Вычисление значения второй функции в начальной точке

PSet (xn, y1), vbBlue ‘Построение начальной точки

For x = xn To xk Step dx ‘Построение графика функции

y1 = Cos(x)

Line -(x, y1), vbBlue

Next x

End Sub