Изобразить на экране две точки, движущиеся по окружности с постоянной угловой скоростью в разных направлениях - 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.

Оцени полезность:

9   голосов , оценка 3.778 из 5
Похожие ответы