[tcjkjl]

Здравствуйте! Помогите пожалуйста, решить задачу.
Нужно делить окружность на сектора, количество которых задается в SpinEdit.
Заранее благодарю

[lmikle]

вся окружность - 360 градусов (2PI радиан).
соотв. делим на кол-во секторов, далее в цикле рисуем...

[chainik]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

var R,              X0,Y0:integer;  Fi:extended;   procedure TForm1.SpinEdit1Change(Sender: TObject); var i:integer; begin R:=100; Y0:=Image1.Height div 2; X0:=Image1.Width div 2; with Image1.Canvas do     begin     Ellipse(X0-R, Y0-R, X0+R, Y0+R);     MoveTo(X0,Y0);LineTo(X0+R,Y0);     for i:=0 to SpinEdit1.Value-1 do         begin         Fi:=2*Pi*i/SpinEdit1.Value;         MoveTo(X0,Y0);LineTo(X0+round(R*cos(Fi)),Y0-round(R*sin(Fi)));         end;     end;   end;