sector.pas

Пример программы для процедуры Sector.

Код примера
 {Sector.PAS}
 
 { Пример программы для процедуры Sector }
 
 Uses Graph;
 
 Const R = 50;
 
 Var Driver, Mode : Integer;
       Xasp, Yasp : Word;
 Begin
  { Инициализируем графику }
  Driver:=Detect;
  InitGraph(Driver, Mode, '');
  If GraphResult < 0 Then Halt(1);
  Sector(GetMaxX Div 2, GetMaxY Div 2, 0, 45, R, R);
  { Рисуем эллипс в виде окружности }
  GetAspectRatio(Xasp, Yasp);
  Sector(GetMaxX div 2, GetMaxY div 2, 180,
         135, R, R * LongInt(Xasp) Div Yasp);
  ReadLn;
  CloseGraph;
 End.

Скачать sector.pas