Задача 4. Построить спираль вокруг начала координат с N витками и внешним радиусом R

5.1 Постановка задачи

Построить спираль вокруг начала координат с N витками и внешним радиусом R. Начальное направление спирали образует с осью X угол 0 градусов. Параметрическое представление спирали:

X=R*Cos(t); Y=R*Sin(t); R=t/2; 0 <= t <= 2*N*Pi

5.2 Блок-схема:

Рисунок 9 – Блок-схема решения задачи 4

5.3 Текст программы:

Private Sub Command1_Click()

Picture1.Scale (-50, 50)-(50, -50)

Picture1.Line (-50, 0)-(50, 0)

Picture1.Line (0, 50)-(0, -50)

Picture1.DrawWidth = 2

N = 5

For t = 0 To 2 * N * 3.14 Step 0.0002

R = t / 2

x = R * Cos(t)

y = R * Sin(t)

Picture1.PSet (x, y)

Next t

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

Form1.Visible = False

Form2.Visible = False

Form3.Visible = False

Form4.Visible = False

Form5.Visible = True

End Sub

Рисунок 10 – Решение задачи 4

Список литературы

1. Назаров С.В., Мельников П.П. Программирование на MS Visual Basic. -М.: Финансы и статистика, 2006.

2. Браун С. Visual Basic 6: учебный курс. / Пер. с англ. - СПб.: Питер, 2006.

3. Гусева О.Л. Практикум по Visual Basic. – М.: Финансы и статистика, 2007. – 544с.