|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.06.2009, 18:01 | #1 |
Новичок
Джуниор
Регистрация: 26.06.2009
Сообщений: 5
|
Создаю круговую диаграмму. Подскажите что не так?
Здравствуйте! Не могу понять, что он от меня хочет. Помогите разобраться. Вот код:
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: integer; Begin GraphDriver:=detect; InitGraph(GraphDriver, GraphMode,'..\BGI'); x:=200; y:=200; r:=100; circle(x,y,r); a:=0; i:=0; for i:=1 to 10 do begin b:=360/(4*z[i]); PieSlice(x,y,a,b,r); SetColor(Red); a:=b; i:=i+1; end; readln; CloseGraph; End. |
03.07.2009, 13:33 | #2 | ||
Форумчанин
Регистрация: 07.04.2009
Сообщений: 245
|
Такие действия :
Цитата:
Цитата:
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
Последний раз редактировалось Anatole; 03.07.2009 в 13:47. |
||
03.07.2009, 18:19 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
У тебя в принципе неправильно идут вычисления и построения.
Вот пример для 4х значений, посмотри принцип и сделаешь в цикле для 10. Код:
|
03.07.2009, 18:37 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот твой вариант.
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подскажите, что не так | SWAT | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 15.06.2009 15:15 |
Интересует такой вопрос. Как создать круговую диаграмму в Дельфи | Grisha248 | Компоненты Delphi | 6 | 26.05.2009 18:06 |
Подскажите что не так... | SynonymMixer | Работа с сетью в Delphi | 10 | 26.01.2009 23:49 |
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" | MAcK | Компоненты Delphi | 11 | 24.10.2007 10:49 |