Эллипс_Т

@Leshiy1 · Регистрация: 03.04.2010

Author24 — интернет-сервис помощи студентам

здравствуйте, не понятно что

Pascal

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.

Пытаюсь нарисовать эллипс не понятно что не нравится

@Leshiy1 · 11.12.2010, 19:31 **[ТС]**

Begin SetColor (col); Ellipse (x,y,U1,U2,xr,yr); End; вот в это строчке просит поставить точку после слова Ellipse

@Puporev · 11.12.2010, 19:37

Имя программы смени, оно у тебя совпадает с именем процедуры, вообще выкинь имя, нафиг оно нужно?

Добавлено через 1 минуту
Программа оригинальная, столько кода чтобы красную линию нарисовать....

@Leshiy1 · 11.12.2010, 19:45 **[ТС]**

Pascal

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,30,12);
   VEllipse.Show;
   ReadKey;
   CloseGraph;
 End.

Программа запустилась. Но там не эллипс, а полоска только

@Puporev · 11.12.2010, 19:51

Leshiy1, Это уж твои проблемы, ты писал....

@Leshiy1 · 11.12.2010, 19:52 **[ТС]**

Все рисует эллипс(цифры поменял). Какой дурной я сегодня

@Leshiy1 0 / 0 / 0 Регистрация: 03.04.2010 Сообщений: 153
	11.12.2010, 19:31 [ТС]	2
	Begin SetColor (col); Ellipse (x,y,U1,U2,xr,yr); End; вот в это строчке просит поставить точку после слова Ellipse 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.12.2010, 19:37	3
	Имя программы смени, оно у тебя совпадает с именем процедуры, вообще выкинь имя, нафиг оно нужно? Добавлено через 1 минуту Программа оригинальная, столько кода чтобы красную линию нарисовать.... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.12.2010, 19:51	5
	Leshiy1, Это уж твои проблемы, ты писал.... 1

@Leshiy1 0 / 0 / 0 Регистрация: 03.04.2010 Сообщений: 153
	11.12.2010, 19:52 [ТС]	6
	Все рисует эллипс(цифры поменял). Какой дурной я сегодня 0