Закрасить сектор круга

@samnik · Регистрация: 06.04.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте,
Есть один вопрос небольшой
Как можно закрасить каждый созданный сектор круга случайным цветом?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses
  graphabc;
var
  a: array[1..100] of integer;
  i, j, n, sum,h: integer;
  q: real;
begin
  writeln('Введите количество элементов: '); 
  read(n);
  for i := 1 to n do
  begin
    a[i] := random(50) + 1;
    inc(sum, a[i]);
  end;
  Circle(250, 250, 100);
  for i := 1 to n do
  begin
    write(i, ': ', a[i]:2);
    q := a[i] / sum * 360;
    a[i] := trunc(q);
    writeln;
  end;
  for i := 1 to 360 do
    for j := 1 to n do
      if a[j] = i then
      begin
        inc(h,a[j]);
        line(250, 250, trunc(100*(sin(h*pi/180)))+250, trunc(100*(cos(h*pi/180)))+250);
      end;
end.

@Puporev · 30.05.2015, 18:25

Посмотрите эту тему
Отображение процентов на круговой диаграмме

@samnik · 30.05.2015, 18:29 **[ТС]**

А можно не через кейсы, а для каждого сектора присвоить случайный цвет?

@Puporev · 30.05.2015, 18:50

Pascal
1
2
SetBrushColor(ClRandom);
Pie(x,y,r,Bangle,Eangle);

Добавлено через 1 минуту
Смысл в том что рисовать нужно сектора, а не линии.

@samnik · 30.05.2015, 18:59 **[ТС]**

А как определить углы A и B?

@Puporev · 30.05.2015, 19:18

Я тебе для чего ссылку дал?

Добавлено через 26 секунд
100%=360 градусов

@samnik · 31.05.2015, 11:03 **[ТС]**

Ах да, извиняйте, не заметил

Добавлено через 15 часов 44 минуты
Получилось вот так, если кому нужно будет:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses
  graphabc;
var
  a: array[1..100] of integer; 
  i,n,sum,bangle,eangle,number,x,y,r: integer; 
begin 
  writeln('Введите количество элементов: '); 
  read(n); 
  for i := 1 to n do
  begin
    a[i] := random(50) + 1; 
    inc(a[i]); 
  end;
  x:=250; 
  y:=250;
  Bangle:=0;
  Number:=0;
  Eangle:=0;
  r:=100;
  for i := 1 to n do 
  begin
    write(i, ': ', a[i]:2); 
    writeln;
  end;
  for i:=1 to n do 
  number:=number+a[i];
      for i:=1 to n do
      begin
       Bangle:=Eangle; 
       Eangle:=Round((a[i]/number)*360)+eangle; 
       SetBrushColor(ClRandom); 
       Pie(x,y,r,Bangle,Eangle); 
      end;
end.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	30.05.2015, 18:25
	Сообщение было отмечено Памирыч как решение Решение Посмотрите эту тему Отображение процентов на круговой диаграмме 0

@samnik 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 9
	30.05.2015, 18:29 [ТС]
	А можно не через кейсы, а для каждого сектора присвоить случайный цвет? 0

@samnik 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 9
	30.05.2015, 18:59 [ТС]
	А как определить углы A и B? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	30.05.2015, 19:18
	Я тебе для чего ссылку дал? Добавлено через 26 секунд 100%=360 градусов 0

Закрасить сектор круга

Решение