Mail

В этот день много лет назад...
25 апреля. В 1644 году (380 лет назад) - Китайские повстанцы берут Пекин, император кончает самоубийством, положив конец династии Минь.

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;