Процедура Arc(X, Y, StAngle, EndAngle, Radius) рисует дугу окружности из точки с координатами XY начиная с угла StAngle и заканчиваю в EndAngle радиусом Radius.
Объявление:
Procedure Arc(X, Y : Integer; StAngle, EndAngle, Radius : Word);
Режим:
Real, Protected
Ограничения:
Нужно быть в графическом режиме.
Пример:
{Пример программы для процедуры Arc}
Uses Graph;
Var Gd, Gm : Integer;
Radius : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);
For Radius:=1 To 5 Do Arc(100, 100, 0, 90, Radius * 10);
ReadLn;
CloseGraph
End.