Процедура Arc — Pascal(Паскаль)

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

Leave a Comment

30 − 29 =