Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура FillEllipse.

  • Объявление:

    Procedure FillEllipse(X, Y : Integer; XRadius, YRadius : Word)

  • Описание:

    Рисует закрашенный эллипс.

  • Замечания:

    Точка (X, Y) - центр эллипса, XRadius и YRadius - горизонтальный и вертикальный радиусы соответственно. Закраска идет стилем и цветом, определенными обращением к процедуре SetFillStyle.

  • Ограничения:

    Нужно быть в графическом режиме.

  • Пример:

    { Пример программы для процедуры 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.



Вернуться к оглавлению справочника