Очень надеюсь на вашу помощь! Подскажите ход решения задачи! Надо изобразить на экране прямую, вращающуюся в плоскости экрана вокруг одной из своих точек. Цвет прямой должен меняться при переходе от предыдущего положения к следующему. Заранее спасибо!
klem4
18.05.2007 11:34
uses crt, graph;
var
gd, gm, cx, cy, len, angle: Integer;
begin
gd := detect; initgraph(gd, gm, '');
randomize;
cx := GetMaxX div2; cy := GetMaxY div2;
len := 200; angle := 90;
repeat
SetColor(random(16) + 1);
line
( cx,
cy,
round(len * cos(angle * pi / 180) + cx),
round(len * sin(angle * pi / 180) + cy)
);
delay(30);
SetColor(black);
line
( cx,
cy,
round(len * cos(angle * pi / 180) + cx),
round(len * sin(angle * pi / 180) + cy)
);
inc(angle);
if angle > 360then angle := 0;
until keypressed;
closegraph;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.