Модуль Graph

Arc(X, Y, StAngle, EndAngle, Radius) - Рисует дугу окружности из точки с координатами XY начиная с угла StAngle и заканчиваю в EndAngle радиусом Radius.
Объявление:
Procedure Arc(X, Y : Integer; StAngle, EndAngle, Radius : Word);


Режим:
Real, Protected
Ограничения:

Нужно быть в графическом режиме.
Пример: view source

print
?01 {Пример программы для процедуры Arc}
02 Uses Graph;
03
04 Var Gd, Gm : Integer;
05 Radius : Integer;
06 Begin
07 Gd:=Detect;
08 InitGraph(Gd, Gm, '');
09 If GraphResult grOk Then Halt(1);
10 For Radius:=1 To 5 Do Arc(100, 100, 0, 90, Radius * 10);
11 ReadLn;
12 CloseGraph
13 End.