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