Рисование звезды - VB
Формулировка задачи:
привет пожайлуста напишите процедуру рисования звезды в бейсике очень надо??
Решение задачи: «Рисование звезды»
textual
Листинг программы
pi = 4 * Atn(1) x0 = 2000: y0 = 2000: r = 2000 For i = -pi / 10 To 4 * pi - pi / 10 Step 4 * pi / 5 Line (x0, y0)-(x0 + r * Sin(i), y0 + r * Cos(i)) x0 = x0 + r * Sin(i) y0 = y0 + r * Cos(i) Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д