HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 ноября. В 1906 году (111 лет назад) - Публикуется столыпинский земельный закон о выделении крестьян из общины на хутора (создание кулацких хуторских хозяйств) - начало столыпинской реформы.
 
 

Turbo Pascal Documentation

Процедура PutPixel


     Функция: Строит элемент изображения) в точке (x,y).
     Описание: PutPixel(x,y : integer; эл_изображ : word).
     Примечания: Строит в (x,y) точку, цвет которой  опреде-
ляется параметром "эл_изобр".
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetImage, GetPixel,  PutIm-
age.
     Пример:
uses Graph;
var
    p  : pointer;
Color : word;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  ig GraphResult <> grOk then
     Halt(1);
  Color := GetMaxColor;
Randomize;
repeat
   PutPixel(Random(100),Random(100),Color); { строит "звездочки" }
   Delay(10);
until KeyPressed;
Readln;
CloseGraph;
end.




HOME