fillelps.pas

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

Код примера
 {Fillelps.PAS}
 
 { Пример программы для процедуры FillEllipse }
 
 Uses Graph;
 
 Const R = 30;
 
 Var Driver, Mode : Integer;
       Xasp, Yasp : Word;
 Begin
  { Инициализируем графику }
  Driver:=Detect;
  InitGraph(Driver, Mode, 'C:\BP\BGI'); { Путь к BGI-драйверам }
  If GraphResult < 0 Then Halt(1);
  { Рисуем и закрашиваем эллипс }
  FillEllipse(GetMaxX Div 2, GetMaxY Div 2, 50, 50);
  GetAspectRatio(Xasp, Yasp);
  { Эллипс в виде окружности }
  FillEllipse(R, R, R, R * Longint(Xasp) Div Yasp);
  ReadLn;
  CloseGraph;
 End.

Скачать fillelps.pas