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

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

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

Процедура LineRel.

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

    Procedure LineRel(Dx, Dy : Integer);

  • Описание:

    Рисует линию относительно текущего указателя (CP) и перемещает CP в точку с координатами (X1, Y1).

  • Замечания:

    Рисует линию из CP (X0, Y0) в точку (X1, Y1), где

    X1 = X0 + Dx
    Y1 = Y0 + Dy

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

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

  • Пример:

    { Пример программы для процедуры LineRel }
    Uses Graph;
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    MoveTo(1, 2);
    { Рисуем линию в точку (101,102) }
    LineRel(100, 100);
    ReadLn;
    CloseGraph;
    End.



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