Mail

В этот день много лет назад...
16 октября. В 1604-10-16 году (421 год назад) - В Россию вступает с польским войском самозванец, которого принято называть Лжедмитрием I, потому что три года спустя объявится еще и второй. Первый Лжедмитрий выдает себя за сына Ивана Грозного - на самом деле его зовут, скорее всего, Григорий Отрепьев. Его отряды польских и литовских воинов - серьезная сила, да еще к нему переметнулась часть казаков, крестьян и даже горожан. Тем более, что в России смутное время, страной правит Борис Годунов, и многие верят, что самозванец - действительно чудесным образом не то спасшийся, не то воскресший царевич Димитрий. И он захватит российский трон - правда, не надолго. В том же 1605, когда объявит он себя царем, его убьют бояре-заговорщики. Смутное время на Руси будет продолжаться до самого 1613, когда на царство будет избран первый из династии Романовых, Михаил.

Turbo Pascal Documentation

Процедура Arc
Модуль Graph

     Функция: Вычерчивает дугу окружности от начального угла
до  конечного  угла. Точка (x,y) используется, как центр ок-
ружности.
     Описание:    Аrс(Х,Y:integer;    нач_угол,    кон_угол,
радиус:word)
     Примечания: Рисует дугу окружности с  центром  (x,y)  и
радиусом   "радиус".   Дуга   рисуется  от  начального  угла
("нач_угол") до конечного угла ("кон_угол").  При  этом  ис-
пользуется текущий цвет.
     В каждом графическом  драйвере  содержится  коэффициент
относительного удлиннения, который используется в процедурах
Сircle, Аrс и РieSlice.
     Начальный угол, равный 0 и конечный угол,  равный  359,
задают вычерчивание полной окружности.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также Circle, Ellipse, GetArcCoords, GetAs-
pectRatio, PieSlice.
     Пример:

for f := 1 to 5 do
   Arc(100, 100, 0, 89, r*10);

Функция ArcTan

     Функция: Возвращает арктангенс аргумента.
     Описание: ArcTan(x : real)
     Тип результата: Вещественный (real).
     Примечания: Параметр x - выражение вещественного  типа.
Результат  представляет собой главное значение арктангенса x
(в радианах).
     Пример:

var
   r : real;
begin
   r := ArcTan(Pi);
end;