здравствуйте, не понятно что
Код:
Program Ellipse;
Uses CRT, Graph;
Type TFigure=Object
x,y:Integer;
color:Word;
Constructor Init (ax,ay:Integer; col:Word);
Procedure Draw (col:Word); Virtual;
Procedure Show;
Procedure Hide;
Procedure MoveTo (dx, dy:Integer);
End;
TPoint=Object(TFigure)
Procedure Draw (col:Word); Virtual;
End;
TEllipse=Object(TPoint)
U1,U2,xr,yr:Integer;
Constructor Init(ax,ay,axr,ayr,aU1,aU2:Integer; col:Word);
Procedure Draw (col:Word); Virtual;
End;
Constructor TFigure.Init (ax, ay:Integer; col:Word);
Begin x:=ax; y:=ay; color:=col; End;
Procedure TFigure.Draw(col:Word);
Begin End;
Procedure TFigure.Show;
Begin Draw (Color); End;
Procedure TFigure.Hide;
Begin Draw (GetBkColor); End;
Procedure TFigure.MoveTo (dx, dy:Integer);
Begin Hide; x:=x+dx; y:=y+dy; Show; End;
Procedure TPoint.Draw (col:Word);
Begin PutPixel (x, y, col); End;
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,U1,U2,xr,yr); End;
Var driver,mode:integer;
VEllipse:TEllipse;
Begin
Driver:=detect;
initGraph(Driver,Mode,'C\:Pascal');
VEllipse.Init (200,250,0,359,10,20,12);
VEllipse.Show;
ReadKey;
CloseGraph;
End.
Begin SetColor (col); Ellipse (x,y,U1,U2,xr,yr); End; вот в это строчке просит поставить точку после слова Ellipse