Разработать программу, демонстрирующую вращение отрезка относительно своей середины.

[Лолита242424]

Здравствуйте, помогите Разработать программу, демонстрирующую вращение отрезка относительно
своей середины. Желательно с разъяснением.Спасибо

[NetSpace]

да, и как это сделать на языке ЛИСП?

[digitalis]

Ну зачем же так страшно сразу, достаточно на SmallTalk Во ФРИЛАНСЕ. Или к Набокову, он могёт.
Вот сидят тут люди, дурью маются - а пришла Лолита и всех озадачила: займитесь хоть чем полезным, ребяты, решите мои задачи, да побыстрее !

[newerow1989]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var x0,y0,l{длина},a{угол}:integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
   x0:=Width div 2;
   y0:=Height div 2;
   If x0>y0 then
      l:=y0-20 else
      l:=x0-20;
   a:=0;
   Timer1.Interval:=100;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

   procedure Lines(color:tColor);
   var x1,y1:integer;
   begin
      x1:=Round(l*Cos(a*pi/180));
      y1:=Round(l*Sin(a*pi/180));
      With Canvas do
      begin
         Pen.Color:=color;
         Pen.Width:=3;
         MoveTo(x0+x1,y0-y1);
         LineTo(x0-x1,y0+y1);
      end;
   end;

begin
   Lines(Color);
   a:=a+5;
   Lines(clRed);
end;

end.