Паскаль. Построение диаграмм

[NoTes]

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

[Сильванович Михаил]

Перефразируй - не понятно, чего именно ты хочешь.

[pu4koff]

ну а ты их как-то выводишь, чтобы они показывались? в паскакале есть процедура для вывода текста: TextOutXY( или чет такое, точно не помню уже).

[NoTes]

Сообщение от Сильванович Михаил

Перефразируй - не понятно, чего именно ты хочешь.

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

[NoTes]

Сообщение от pu4koff

ну а ты их как-то выводишь, чтобы они показывались? в паскакале есть процедура для вывода текста: TextOutXY( или чет такое, точно не помню уже).

так оно выводиться, только не там где надо... в том то и дело что я не зню как опредилить эти ху координаты... как эти координаты с сектором связать?

[pu4koff]

ну если я не ошибаюсь, то сектор выводится по углам (начальному и конечному). находишь биссектрису угов ну и дальше на нужном расстоянии от центра на этой биссектрисе выбираешь точку...

[Сильванович Михаил]

Неприятная картина будет наблюдаться, если секторов будет, ммм, скажем, 50.

Мож, лучше внизу экрана отрисовать таблицу обозначений?

[NoTes]

driver:=detect;
initGraph(driver,mode,' ');
setcolor(3);

started:=140;
centerx:=getmaxx div 2;
centery:=getmaxy div 2;
direction:=true;

while direction=true do
begin
if keypressed then

key:=readkey;
if key=#27 then break;
if key=#77 then
begin
centerx:=centerx+2;
if centerx=570 then centerx:=70;
end;
if key=#75 then
begin
centerx:=centerx-2;
if centerx=70 then centerx:=570;
end;
if key=#80 then
begin
centery:=centery+2;
if centery=410 then centery:=70;
end;
if key=#72 then
begin
centery:=centery-2;
if centery=70 then centery:=410;
end;
setfillstyle(0,0);
bar(0,0,getmaxx,getmaxy);

started:=started+20;
if started>=360 then started:=0;
current:=base;
prevangl:=0;
nextangl:=started;
colori:=1;
while(current<>nil) do
begin

if colori>=15 then colori:=1;
colori:=colori+1;
if colori=3 then colori:=4;
prevangl:=nextangl;
if prevangl>=360 then prevangl:=prevangl-360;
nextangl:=prevangl+round(current^.p ercent*360);
setfillstyle(1,colori);
if nextangl>=360 then
begin
pieslice(centerx,centery,prevangl,3 60,70);

setcolor(colori);
setlinestyle(0,0,0);
line(centerx+1,centery,centerx+69,c entery);

nextangl:=nextangl-360;
prevangl:=0;
end;
pieslice(centerx,centery,prevangl,n extangl,70);

xy:=centerx+round(50*cos((nextangl-10)*pi/180));
yy:=centery-round(50*sin((nextangl-10)*pi/180));

setcolor(1);
str(current^.i,chi);
moveto(xy,yy);
outtext(chi);
current:=current^.next;
end;
delAY(10000);



вот часть кода... код рабочий... только он с ошибкой... диаграмма по нажатию стрелки должна изменить 1 раз сваю координату центра... но она зациклина и по нажадию стрелки диограмма движется в ту сторону пока не нажмется другая клавиша... как это исправить помогите пожалуйста! если надо скину весь код программы!

[InternetStranger]

Задачи по физике любишь решать?! Вот и введи угловую W и линейные скорости V. V = W*R.

А еще лучше перейди от декартовой системы координат (Oxy), в полярную! (там вместо двух точек, координаты задаются радиус- вектором и его отклонением, "азимутом" так сказать).

[InternetStranger]

Нипонял ничего в твоей проге. потому свою настряпал!
Только вот упорно ничего не помню из Паскаля - как там эти флуудфилы работают. не закрашивается короче.
Исходники:
delphi3 (сделано в пайнтбоксе, потому ничего не закрашивается)
tp7