Посмотрите на исходник, где-то ошибка есть, Исходник Опции

[Manner]

Программа должна рисовать катащийся эллипс. Элиппс рисовать вроде получается, а вот дальше непонятно, формулы поворота вроде верны. Но что-то не то получается. У кого есть время гляньте плз.

 
uses graph,crt;

const
sizex=30;
sizey=300;
sizexp=25;
sizeyp=15;
speed=1;
one=pi/180;
t=one*speed;
ms=2000;
Type TEllipse=object
         f1,f2:real;
         angle,xxpp,yypp,xxp,yyp:real;
         x,y:integer;
         Constructor Init (focus1,focus2:integer; xp,yp:integer);
         Procedure show;
         procedure rotate (xO,yO:integer;xp:real);
         Destructor Done;
         end;
TScreen=object(TEllipse)
        Constructor Init(focus1,focus2:integer; xp,yp:integer);
        Procedure GraphInit;
        Procedure Go;
        Destructor Done;
        end;

Constructor TEllipse.Init(focus1,focus2:integer; xp,yp:integer);
            begin
            x:=focus1; y:=focus2;
            f1:=xp;
            f2:=yp;
            fillellipse(x,y,round(f1),round(f2));
            end;
 Procedure TEllipse.Rotate(xO,yO:integer; xp:real);
           begin
           x:=xo;
           y:=yo;
           xxpp:=xo+(xp*(cos(t)));
           yypp:=yo+(xp*(sin(t)));
           fillellipse(x,y,Round(xxpp),Round(yypp));
           end;
procedure TEllipse.show;
          begin
          end;
Destructor TEllipse.Done;
           begin end;

Constructor TScreen.Init(focus1,focus2:integer; xp,yp:integer);
            begin
            x:=focus1;
            y:=focus2;
            f1:=xp;
            f2:=yp;
            fillellipse(x,y,round(f1),round(f2));
            angle:=0;
            end;

Procedure TScreen.GraphInit;
          var gd,gm,ErrorCode:integer;
          begin
          if GetGraphMode=2 then Exit;
          gd:=Detect;
          InitGraph(gd,gm,'');
          ErrorCode:=GraphResult;
          if ErrorCode<>grok then begin
          writeln('Error: ',GraphErrorMsg(ErrorCode));
          Halt(1);
          end;
          end;
procedure TScreen.Go;
          begin
          repeat
           angle:=angle+t;
           rotate(x,y,Round(xxpp));
           delay(ms);
           show;
          until keypressed;
          end;
Destructor Tscreen.done;
           begin CloseGraph; end;

{$I GrInit}
var Screen:Tscreen;
begin
GRInit;
 Screen.Init(sizex,sizey,sizexp,sizeyp);
 Screen.GraphInit;
 Screen.Go;
 Screen.done;
 end.

.

[volvo]

Ну, смотри ...

uses Crt, Graph;

Function max(a, b: Integer): Integer;
Begin
  max := a;
  If a < b Then max := b;
End;

const
  r2d = 180/Pi;
  ms = 5000;

type
  TGraphix = Object
    Constructor Init;
    Destructor Done;
  End;

  TEllipse = Object(TGraphix)
    a, b: integer;
    X0, Y0: Integer;
    Angle: Integer;

    Constructor Init(TheA, TheB, CoordX, CoordY: Integer);
    Destructor Done;

    Procedure Show(Visible: Boolean);
    Procedure Rotate;
  End;

Constructor TGraphix.Init;
Var
  GrDriver, GrMode, ErrCode: Integer;
Begin
  GrDriver := Detect;
  InitGraph(GrDriver, GrMode, '');
  ErrCode := GraphResult;
  If ErrCode <> grOk Then Fail;
End;

Destructor TGraphix.Done;
Begin
  CloseGraph;
End;

{
  TheA, TheB - полуоси эллипса
  CoordX, CoordY - начальные координаты центра
}
Constructor TEllipse.Init(TheA, TheB, CoordX, CoordY: Integer);
Begin
  If not Inherited Init Then Fail;

  a := TheA; b := TheB;
  X0 := CoordX; Y0 := CoordY;
End;
Destructor TEllipse.Done;
Begin
  Inherited Done;
End;

Procedure TEllipse.Show(Visible: Boolean);
Var
  Alpha, Phi, _X, _Y: Real;
  i, X, Y: Integer;
Begin
  If Visible Then Begin

    Alpha := Angle/r2d;
    For i := 0 To 359 Do Begin
      Phi := i / r2d;
      _X := a * Cos(phi);
      _Y := b * Sin(phi);

      X := Trunc(x0 + _X * Cos(Alpha) - _Y * Sin(Alpha));
      Y := Trunc(y0 + _X * Sin(Alpha) + _Y * Cos(Alpha));
      PutPixel(X, Y, White);
    End;

  End
  Else Begin
    SetFillStyle(SolidFill, GetBkColor);
    SetColor(Black);
    FillEllipse(X0, Y0, max(a, b)+10, max(a, b)+10);
  End;
End;
Procedure TEllipse.Rotate;
Begin
  Show(False);
  { А вот на сколько увеличивать Angle и X0 - с этим можно и поиграться... }
  Inc(Angle); Inc(X0);
  Show(True);
End;

Var
  ell: TEllipse;

begin
  If not ell.Init(30, 40, 50, 200) Then Exit;

  Repeat
    ell.Rotate;
    Delay(ms);
  Until KeyPressed;

  While Keypressed Do ReadKey;

  ell.Done;
end.