Нарисовать круг, разделённый на N одинаковых частей, окрашенных в разный цвет. Количество частей N вводится с клавиатуры.
Использовать процедуру Pie.procedurePie(x,y,r,a1,a2: integer); Рисует заполненный сектор окружности, ограниченный дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

Пример программы на PascalABC.NET. Она строит круг из \(N\) секторов; для каждого сектора выбирается свой оттенок.

uses GraphABC;

function HueColor(h: integer): Color;
var s, t, p: integer;
begin
  h := h mod 360;
  s := h div 60;
  t := (h mod 60) * 255 div 60;
  p := 255 - t;
  case s of
    0: Result := RGB(255, t, 0);
    1: Result := RGB(p, 255, 0);
    2: Result := RGB(0, 255, t);
    3: Result := RGB(0, p, 255);
    4: Result := RGB(t, 0, 255);
    5: Result := RGB(255, 0, p);
  end;
end;

var n, i, x, y, r, a1, a2: integer;
begin
  Write('Введите число частей: ');
  Readln(n);
  x := 300; y := 250; r := 180;
  SetWindowSize(600, 500);
  SetPenColor(clBlack);
  for i := 0 to n - 1 do
  begin
    a1 := Round(i * 360 / n);
    a2 := Round((i + 1) * 360 / n);
    SetBrushColor(HueColor(i * 360 div n));
    Pie(x, y, r, a1, a2);
  end;
end.

0 0 Пожаловаться