Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно. Вам необходимо обновить браузер или попробовать использовать другой.
uses GraphABC; const cntSlice = 13; // кол-во частей var x0,y0,r,x,y,n:integer;ang,step:real; begin x0 := windowwidth div 2; y0 := windowheight div 2; r := windowheight div 4; setpencolor(clRed); setbrushcolor(clOrange); circle(x0,y0,r); step := 2*Pi/cntSlice; ang := 0; n := 0; while ang <= 2*Pi do begin x := x0 + Round(r * cos(ang)); y := y0 + Round(r * sin(ang)); line(x,y,x0,y0); ang := ang + step; inc; end; end.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.