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

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

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

Процедура Circle.

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

    Procedure Circle(X, Y : Integer; Radius : Word);

  • Описание:

    Рисует окружность текущим цветом, используя точку (X, Y) как центр.

  • Замечания:

    Рисует окружность текущим цветом, установленным обращением к SetColor и радиусом равным Radius (в пикселах), используя точку с координатами (X, Y) как центр. Каждый графический драйвер содержит коэффициент сжатия, используемый процедурами Circle, Arc, и PieSlice.

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

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

  • Пример:

    { Пример программы для процедуры Circle }
    Uses Graph;
    Var Gd, Gm : Integer;
    Radius : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
    If GraphResult<>grOk Then Halt(1);
    For Radius:=1 To 5 Do Circle(100, 100, Radius * 10);
    ReadLn;
    CloseGraph;
    End.



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