Mail

В этот день много лет назад...
30 апреля. В 1945 году (80 лет назад) - Бойцы 1-го стрелкового батальона 756-го полка, которым командует капитан С. А. Неустроев, устанавливают на крыше рейхстага красный флаг. В ночь на 1 мая по приказанию командира 756-го полка полковника Ф. М. Зинченко принимаются меры по водружению на здание рейхстага знамени, врученного полку Военным советом 3-й ударной армии. Группу бойцов возглавляет лейтенант А.П. Берест. Ранним утром 1 мая на скульптурной группе, венчающей фронтон здания, уже будет развеваться Знамя Победы: его водрузили разведчики сержанты Михаил Егоров и Мелитон Кантария. Уже давно нет в живых героев-разведчиков, а совсем недавно скончался и полковник Неустроев. Почти всем участникам водружения Знамени Победы будет присвоено высокое звание Героя Советского Союза, потом ветераны войны обратились с просьбой посмертно присвоить звание Героя Российской Федерации и Алексею Бересту.

Turbo Pascal Documentation

Процедура 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.