putpixel.pas

{PutPixel.PAS}
 
{ Пример программы для процедуры 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.