Правила форума
Fillelps.PASЯзык:
Русский
English
{ Пример программы для процедуры FillEllipse }
uses Graph;
const R = 30;
var
Driver, Mode : Integer;
Xasp, Yasp : Word;
begin
{ Инициализируем графику }
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP'); { Путь к 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.
const R = 30;
var
Driver, Mode : Integer;
Xasp, Yasp : Word;
begin
{ Инициализируем графику }
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP'); { Путь к 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.
::
::
::
