Mail

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

Turbo Pascal Documentation

Функция Ptr

     Функция: Преобразует адрес, заданный  в  виде  базового
сегмента и смещения, в значение типа указатель.
     Описание: Рtr(сегм, смещ : word)
     Примечания: Параметры "сегм" и "смещ" представляют  со-
бой выражения длиной в слово. Результатом является указатель
на адрес, заданный параметрами "сегм" и "смещ". Как и указа-
тель типа nil, результат функции Рtr совместим по присваива-
нию с указателями любых типов.
     Результат функции можно проанализировать, например:

if Prt(40, 49)^ = 7 then
    Writeln('видеорежим = моно');

     Прочее: См. также функцию Addr.
     Пример:

var
   p : ^byte;
begin
   p := Ptr(40, 49);
   Writeln('Текущим видеорежимом является ', p^);
end;