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

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

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

Процедура PieSlice.

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

    Procedure PieSlice(X, Y : Integer; StAngle, EndAngle, Radius : Word);

  • Описание:

    Рисует и закрашивает сектор окружности.

  • Замечания:

    Точка с координатами (X, Y) - центр окружности. Сектор круга начинается в StAngle и заканчивается в EndAngle. Закраска происходит со стилем и цветом, определенными с помощью обращения к процедуре SetFillStyle.

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

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

  • Пример:

    { Пример программы для процедуры PieSlice }
    Uses Graph;
    Const Radius = 30;
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    PieSlice(100, 100, 0, 270, Radius);
    ReadLn;
    CloseGraph;
    End.



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