Версия для печати темы

Автор: Pautina 17.05.2007 19:15

Очень надеюсь на вашу помощь! Подскажите ход решения задачи!
Надо изобразить на экране прямую, вращающуюся в плоскости экрана вокруг одной из своих точек. Цвет прямой должен меняться при переходе от предыдущего положения к следующему.
Заранее спасибо!

Автор: klem4 18.05.2007 15:34

uses crt, graph;
var
  gd, gm, cx, cy, len, angle: Integer;

begin
  gd := detect; initgraph(gd, gm, '');

  randomize;

  cx := GetMaxX div 2; cy := GetMaxY div 2;

  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 > 360 then angle := 0;
  until keypressed;

  closegraph;
end.