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

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

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

Процедура PutPixel.

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

    Procedure PutPixel(X, Y : Integer; Color : Word);

  • Описание:

    Ставит точку в позиции (X, Y).

  • Замечания:

    Ставит точку цветом, определенным параметром Color в позиции (X, Y).

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

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

  • Пример:

    { Пример программы для процедуры PutPixel }
    Uses Crt, Graph;
    Var Gd, Gm : Integer;
    Color : Word;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    Color:=GetMaxColor;
    Randomize;
    Repeat
    PutPixel(Random(100), Random(100), Color); { Рисуем зведочки }
    Delay(10);
    Until KeyPressed;
    ReadLn;
    CloseGraph;
    End.



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