Mail

В этот день много лет назад...
26 ноября. В 1718 году (306 лет назад) - Петр I издает указ "О назначении рынков в Санкт-Петербурге, о наблюдении чистоты торгующими съестными припасами и о ношении ими белых мундиров". По этому указу запрещается торговля вдоль больших улиц, поскольку "проезд по большой дороге от тесноты за многолюдством весьма труден". На городских рынках всем торговцам в мясном и рыбном рядах надлежит под страхом крупного штрафа носить белые мундиры. Пусть немного на военный манер, но Петр I все же продемонстрировал свое желание решать вопросы гигиены в своем невском "парадизе".

Turbo Pascal Documentation

Процедура Move

     Функция:  Копирует заданное число непрерывных байтов из
заданного диапазона в указанный диапазон.
     Описание: Моvе(var исх_диап, цел_диап; счетчик word)
     Примечания: Параметры "исх_диап" и "цел_диап"
представляют собой ссылки на переменные любого типа.
Параметр
"счетчик" представляет собой выражение длиной в слово.
Процедура
Моvе копирует блок байтов, размер которого  (в байтах)
задается параметром  "счетчик", в  блок,  начинающийся с
первого
байта, заданного  параметром "цел_диап". С данной процедурой
следует  работать  аккуратно,  поскольку никаких проверок не
выполняется.

      Замечание:  Когда   области,  задаваемые   параметрами
"исх_диап" и  "цел_диап",  находятся в  одном  сегменте,  то
есть  когда  адреса  сегментов  у них совпадают, то процеду-
ра Моvе автоматически  обнаруживает  и  компенсирует  какие-
либо  перекрытия.  Для статически и динамически  распределя-
емых переменных внутрисегментных перекрытий никогда не  про-
исходят (если только это не  делается  специально) и,  таким
образом, они не могут обнаруживаться.

     Там, где это возможно, для определения параметра "счет-
чик" следует использовать функцию SizeOf.

     Прочее: См. также процедуру FillChar.
     Пример:

var
   a : array[1..4] of char;
   b : longint;
  begin
    Move(a, b, SizeOf(a));         { для надежности исполь-
                                     зуется функция SizeOf }
  end.

Процедура MoveRel

Модуль Graph

     Функция: Перемещает текущий указатель (СР) на  расстоя-
ние, заданное относительными координатами от его текущей по-
зиции.
     Описание: MoveRel(Dx, Dy : integer)
     Примечания: Процедура МоvеRеl перемещает текущий указа-
тель  (СР)  в  точку,  заданную   относительным  расстоянием
(Dх,Dy) от точки, в которой находится текущий указатель.
     Относительные  команды  перемещения и рисования полезны
при вычерчивании различных объектов на экране, у которых на-
чальная точка может быть изменена  (чтобы,  например, вычер-
тить ту же самую фигуру в другом месте экрана).
     Ограничения: Должен использоваться графический режим.
      Прочее: См. также процедуры LineRel, LineTo, MoveTo.
     Пример:

uses Graph;
  var
    Gd, Gm : integer;
  begin
    Gd := Detect;
    InitGraph(gd, Gm, '');
    if GraphResult <> 0 then
       Halt(1);
   MoveTo(1,2);
   MoveRel(10,10)     { переместить в точку с координатами
                        (11,12) }
   PutPixel(GeyX, GetY, GetMaxColor);
  Readln;
  CloseGraph;
end.

Процедура MoveTo

Модуль Graph

     Функция: Перемещает текущий графический указатель  (СР)
в точку (x,y).
     Описание: MoveTo(x, y : integer)
     Примечания: Текущий указатель (СР) пермещается в  точку
с  координатами (x,y). Текущий указатель аналогичен курсору,
который используется в текстовом режиме.  Различает  их  то,
что  текущий указатель невидим. Текущий указатель (СР) пере-
мещают следующие процедуры:

     InitGraph, MoveTo, MoveRel, LineTo,  LineRel,  OutText,
SetGraphMode

     Если активна текущая область просмотра, то  СР  зависит
от  данной  области  (значения  x и y будут суммироваться со
значениями x1, y1 текущей области просмотра). В границах те-
кущей области просмотра текущий указатель никогда не отсека-
ется.
     Прочее: См. также процедуры  GeetMaxX,  GetMaxY,  GetX,
GetY, MoveRel.
     Пример:

uses Graph;
  var
    Gd, Gm : integer;
  begin
    Gd := Detect;
    InitGraph(gd, Gm, '');
    if GraphResult <> 0 then
       Halt(1);
MoveTo(0,0);           { левый верхний угол окна }
LineTo(GetMaxX, GetMaxY);
   Readln;
   CloseGraph;
  end.