|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Движение шарика по окружности
Ребят, помогите пожалуйста. Шарик должен двигаться по окружности, причём радиус должен постоянно меняться(r=random) на угол фи=1.57. Ось Ох совпадает с нижней границей форма.
Код:
procedure TForm4.Timer1Timer(Sender: TObject); Var x,r,y,angle :integer; begin Refresh; Canvas.Ellipse(round(x+cos(angle)*r),round(y+sin(angle)*r), round( x+cos(angle)*r+5), round(y+sin(angle)*r+5)); end; end. Последний раз редактировалось Admin, 04.06.2012 в 18:57. |
#2
|
||||
|
||||
Учим геометрию, чо.
|