Cоставить программу построения на экране ломаной кривой - VB
Формулировка задачи:
Помогите составить программу построения на экране ломаной, длины звеньев которой образует арифметическую прогрессию, а угол поворота каждого последующего звена относительно предыдущего остается неизменным.
Решение задачи: «Cоставить программу построения на экране ломаной кривой»
textual
Листинг программы
Private Sub Form_Click() Cls Dim i As Long CurrentX = ScaleWidth / 2 CurrentY = ScaleHeight / 2 For i = 1 To 500 Line -Step(i * 10 * Sin(i), i * 10 * Cos(i)) Next End Sub