Mail

В этот день много лет назад...
9 декабря. В 1590 году (433 года назад) - Царским указом запрещен переход крестьян от одного хозяина к другому, завершение процесса становления крепостного права на Руси. Отмечавшийся 26 ноября по ст. ст. Юрьев день - церковный праздник в честь св. Георгия - завершал годовой цикл сельскохозяйственных работ и позволял крестьянам, уплатившим пожилое, в период времени за неделю до Юрьева дня и неделю после него уйти от старого хозяина. Запрет перехода породил пословицу: "Вот тебе, бабушка, и Юрьев день!"

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.