Graph. Секторная диаграмма

@tkp_xx · Регистрация: 02.12.2009

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

Доброго времени суток дорогие форумчане.

Нужна помощь в написании программы:

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

@SuPeR XaKer · 01.11.2010, 20:27

Комментарий модератора

Ссылки на другие форумы запрещены

.

@Puporev · 01.11.2010, 20:36

Держи для примера.

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.

@WASAW · 25.11.2010, 19:33

А как можно добавить надписи к данным блокам?)

@Puporev · 25.11.2010, 19:37

Pascal

1	OuttextXY(100,100,'Nadpis');

@WASAW · 25.11.2010, 19:45

Да, но а как можно сделать чтобы он автоматически выводил различные надписи около каждого сектора?)

@Puporev · 25.11.2010, 20:09

Рисуешь сектор, выводишь подпись где тебе удобнее

Pascal

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);//8 штук рисуем, подписываем, только подписи должны подчиняться циклу
   b:=a;
 end;
Setfillstyle(1,10);
PieSlice(x,y,b,360,r);//нарисовал, подписал

@tkp_xx 0 / 0 / 0 Регистрация: 02.12.2009 Сообщений: 19
		1
	Graph. Секторная диаграмма 01.11.2010, 20:24. Показов 2759. Ответов 6 Метки нет (Все метки) Доброго времени суток дорогие форумчане. Нужна помощь в написании программы: Секторная Диаграмма - это круг, площади секторов которого пропорцианальны соответсвтующим числовым величинам, взятым из некоторой совокупности. Даны семь действительных положительных чисел. Построить секторную диаграмму для этих значений. Для большей наглядности секторы диаграммы закрасьте в разные цвета. 0

@WASAW 3 / 3 / 0 Регистрация: 10.11.2009 Сообщений: 102
	25.11.2010, 19:33	4
	А как можно добавить надписи к данным блокам?) 0

@WASAW 3 / 3 / 0 Регистрация: 10.11.2009 Сообщений: 102
	25.11.2010, 19:45	6
	Да, но а как можно сделать чтобы он автоматически выводил различные надписи около каждого сектора?) 0

	25.11.2010, 20:09