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

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

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

регистрация в фаберлик бесплатно

блэкджек онлайн

Процедура Ellipse.

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

    Procedure Ellipse(X, Y : Integer; StAngle, EndAngle : Word; XRadius, YRadius : Word);

  • Описание:

    Рисует дугу эллипса.

  • Замечания:

    Рисует дугу из начального угла StAngle к конечному углу EndAngle, используя параметры XRadius и YRadius, как радиусы эллипса, и значения X и Y, как координаты центра.

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

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

  • Пример:

    { Пример программы для процедуры Ellipse }
    Uses Graph;
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
    If GraphResult <> grOk Then Halt(1);
    Ellipse(100, 100, 0, 360, 30, 50);
    Ellipse(100, 100, 0, 180, 50, 30);
    ReadLn;
    CloseGraph;
    End.



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