Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг одной из своих вершин

30.03.2011, 19:20. **Показов** 2923. **Ответов** 0

Студворк — интернет-сервис помощи студентам

Вот собственно условие:
"Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг одной из своих вершин. После каждого оборота цвет прямоугольника должен меняться."
Пытался сделать сам, но тщетно, поэтому прошу помощи у вас, форумчане.

Pascal

program three;
uses crt,Graph;
var
a,b,gd,gm,k,x1,x2,x3,x4,y1,y2,y3,y4,x0,y0: integer;
alpha,beta: real;
begin
clrscr;
gd:=detect;
initgraph(gd,gm,'');
alpha:=0;
x0:=300;
y0:=300;
a:=50;
b:=100;
beta:=arctan(b/a);
setcolor(15);
k:=0;
repeat
k:=k+1;
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x4,y4);
line(x4,y4,x1,y1);
x1:=x0;
y1:=y0;
x2:=x0+round(a*cos(alpha));
y2:=y0+round(a*sin(alpha));
x3:=x0+round(sqrt(sqr(a)+sqr(b))*cos(alpha-beta));
y3:=y0+round(sqrt(sqr(a)+sqr(b))*sin(alpha-beta));
x4:=x0+round(b*cos(alpha-pi/2));
y4:=y0+round(b*sin(alpha-pi/2));
 
alpha:= alpha + 0.01;
setfillstyle(1,5);
floodfill(x3-5,y3-5,7);
if alpha>=2*pi then begin
                    alpha:=0;
                    setcolor(k);
                    end;
delay(10);
cleardevice;
until keypressed;
 
closegraph;
end.

Заранее премного благодарен.

Опции темы