Круговая диаграмма

@Кетя · Регистрация: 16.05.2010

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

1. Построить круговую диаграмму, отображающую процентное соотношение отличников, хорошистов и прочих. Для заливки секторов использовать различные шаблоны и цвета.

@Puporev · 16.05.2010, 12:10

Вот Вам пример, попробуйте сами нарисовать, ничего сложного.
Всякие процедуры и прочее посмотрите здесь
https://www.cyberforum.ru/atta... 1241779566

Pascal

Program GraphShabl;
Uses Graph;
Const
z: array [1..10] of integer = (5,10,15,20,15,10,5,5,10,15);
Var
GraphDriver,
GraphMode,x,y,r,i,a,b,s: integer;
Begin
GraphDriver:=detect;
InitGraph(GraphDriver, GraphMode,'..\BGI');
s:=0;
for i:=1 to 10 do
s:=s+z[i];
x:=getmaxX div 2;
y:=getmaxY div 2;
r:=150;
b:=round(360*z[1]/s);
Setfillstyle(1,1);
PieSlice(x,y,0,b,r);
for i:=2 to 9 do
 begin
   a:=round(360*z[i]/s)+b;
   Setfillstyle(1,i);
   PieSlice(x,y,a,b,r);
   b:=a;
 end;
Setfillstyle(1,10);
PieSlice(x,y,b,360,r);
readln;
CloseGraph;
End.

@Кетя 1 / 1 / 0 Регистрация: 16.05.2010 Сообщений: 17
		1
	Круговая диаграмма 16.05.2010, 11:16. Показов 3607. Ответов 1 Метки нет (Все метки) 1. Построить круговую диаграмму, отображающую процентное соотношение отличников, хорошистов и прочих. Для заливки секторов использовать различные шаблоны и цвета. 0

Опции темы

Круговая диаграмма

Решение