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

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

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

Процедура GetArcCoords.

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

    Procedure GetArcCoords(Var ArcCoords : ArcCoordsType);

  • Описание:

    Возвращает координаты последней команды Arc.

  • Замечания:

    Процедура GetArcCoords возвращает переменную типа ArcCoordsType. GetArcCoords возвращает переменную, содержащую координаты центра (X, Y), координаты начальной точки (XStart, YStart) и координаты конечной точки (XEnd, YEnd), полученные при последнем обращении к процедурам Ellipse и Arc.

    Эти значения могут быть полезны, если вам нужно соединить линию с одной из крайних точек дуги окружности или эллипса.

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

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

  • Пример:

    { Пример программы для процедуры GetArcCoords }
    Uses Graph;
    Var Gd, Gm : Integer;
    ArcCoords : ArcCoordsType;
    Begin
    Gd := Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    Arc(100, 100, 0, 270, 30);
    GetArcCoords(ArcCoords);
    With ArcCoords Do Line(Xstart, Ystart, Xend, Yend);
    ReadLn;
    CloseGraph;
    End.



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