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


 
В этот день много лет назад...
16 января. В 1969 году (50 лет назад) - Первая стыковка на околоземной орбите двух пилотируемых космических кораблей "Союз-4" с космонавтами Б.В. Волыновым, Е.В. Хруновым и А.С. Елисеевым и "Союз-5" с космонавтом В.А. Шаталовым. Первый переход космонавтов из одного космического корабля в другой через открытый космос (Е.В. Хрунов и А.С. Елисеев переходят из "Союз-5" в "Союз-4"). В течение 4 часов два космических корабля совершают полет как один объект, образуя первую экспериментальную космическую станцию.
 
 

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;




HOME