K_T

[Leshiy1]

Здравствуйте всем

const speed=1.5;
       one=pi/180;
       step=one*speed;
 Type TPoint=object
      x,y:real; {koordinatu tochki}
      Pcolor:byte; {cvet tochki}
      Constructor Init (xx,yy:real; col:byte); {initialization tochki}
      Procedure Rotate (Osx,Osy:integer); virtual; {koordinatu osi}
      Procedure Show (col:byte); virtual; {cvet osi}
      Destructor Done;
 End;
 
 TEllipse=object(TPoint)
      U1,U2,xr,yr:integer;
      Pcol:word;
      Constructor Init(ax,ay,aU1,aU2,axr,ayr:integer; col:word);
      Procedure Draw(col:word); virtual;
 End;
 {Tpoint}
 Constructor TPoint.Init(xx,yy:real; col:byte);
 begin x:=xx; y:=yy; Pcolor:=col; end;
 
 Procedure TPoint.Rotate(Osx,Osy:integer);
 var xx,yy:real;
 begin
   xx:=(x-Osx)*cos(step)-(y-Osy)*sin(step)+Osx;
   yy:=(x-Osx)*sin(step)+(y-Osy)*cos(step)+Osy;
   x:=xx; y:=yy;
 end;
 
 Procedure TPoint.Show(col:byte);
 begin PutPixel(Round(x),Round(y),Pcolor); end;
 
 Destructor TPoint.Done;
 begin end;
 {TEllipse}
 Constructor TEllipse.Init;
 begin inherited init(ax,ay,col); xr:=axr; yr:=ayr; U1:=aU1; U2:=aU2; end;
 
 Procedure TEllipse.Draw(col:word);
 begin  setcolor(col)Ellipse(x,y,xr,yr,U1,U2); end;
 
 Var Driver,mode;
     Ellipse:TEllipse;
 Uses Graph, Crt;
 begin
   Driver:=Detect;
   InitGraph(Driver,Mode,'C:\Pascal');
 
 End.

Procedure TPoint.Show(col:byte);
 begin PutPixel(Round(x),Round(y),Pcolor); end;

Почему в этом месте просит Put Pixel, Error 3: Unknown identifier

[unbanned]

у тя модуль system в uses есть?
точнее Graph))) чего-то я с delphi перепутал)))