Изобразить на экране две точки, движущиеся по окружности с постоянной угловой скоростью в разных направлениях - Free Pascal
Формулировка задачи:
Изобразить на экране две точки (круга), движущиеся по окружности с постоянной угловой скоростью в разных направлениях. В центре неподвижно находится жёлтый круг.
Решение задачи: «Изобразить на экране две точки, движущиеся по окружности с постоянной угловой скоростью в разных направлениях»
textual
Листинг программы
{$mode tp} uses graph, crt; var xc,yc,x,y,r:integer; x1,y1: integer; u,u1:real; begin initgraph(x,y,''); xc:=getmaxX div 2; yc:=getmaxY div 2; r:=yc-100; u:=pi/2; u1:=pi/2; outtextXY(xc-50,20,'Exit any key'); setfillstyle(1,12); setcolor(12); fillellipse(xc,yc,100,100); repeat x:=xc+round(r*cos(u)); y:=yc-round(r*sin(u)); setfillstyle(1,14); setcolor(14); fillellipse(x,y,5,5); x1:=xc+round(r*cos(u1)); y1:=yc-round(r*sin(u1)); setfillstyle(1,10); setcolor(10); fillellipse(x1,y1,5,5); delay(50); setfillstyle(1,0); setcolor(0); fillellipse(x,y,5,5); setfillstyle(1,0); setcolor(0); fillellipse(x1,y1,5,5); u:=u-0.02; u1:=u1+0.03; until keypressed; end.