Построить график кардиоиды - VB
Формулировка задачи:
X=a*cos(t)*(1+Cos(t));
Y=a*Sint(t)*(1+Cos(t));
a=15;
0<=t<=2Pi
Половина программы есть:
не хватает дальнейшего развития, а к зачету нужно это дело завтра. Поэтому прошу помогите
Листинг программы
- Private Sub Command1_Click()
- a=15
- r=2*a*Cos(t)
- For t=0 To 2*3.14
- x= a*Cos(t)*(1+Cos(t))
- y= a*Sin(t)*(1+Cos(t))
Решение задачи: «Построить график кардиоиды»
textual
Листинг программы
- d = Me.Height / 2
- a = 0.5 * d
- For t = 0 To 6.28 Step 0.01
- x = a * Cos(t) * (1 + Cos(t))
- y = a * Sin(t) * (1 + Cos(t))
- Me.PSet (a + x, y + d)
- Next t
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
