{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.