Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 02.11.2012, 16:41   #1
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию Нарисовать круговую диаграмму

Нарисовать круговую диаграмму по результатам сдачи экзамена по матану.
рисовать в abcpaskal,
дано 12 человек:
4-отличника;
3-хорошиста;
5-троишников;
Proskurina вне форума Ответить с цитированием
Старый 07.11.2012, 22:19   #2
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию

помогите плизз
Proskurina вне форума Ответить с цитированием
Старый 08.11.2012, 07:50   #3
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Да нате Вам

Код:
uses GraphABC;

const marks: array [1..3] of byte=(5,3,4);
      colors: array [1..3] of integer=(clRed,clYellow,clGreen);
      CenterX=300;
      CenterY=300;
      Radius=200;

var i:integer;
    grad:real;
    proc,oldproc: real;
begin
  grad:=360/12;
  oldproc:=0;
  For i:=1 to 3 do begin
    SetBrushColor(colors[i]);
    proc:=grad*marks[i];
    Pie(CenterX,CenterY,Radius,oldproc,oldproc+proc);
    oldproc:=proc+oldproc;
  end;
end.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построить круговую диаграмму! gylayko Помощь студентам 1 17.12.2011 20:30
нарисовать круговую диаграмму в паскале vbchristy46 Помощь студентам 2 28.06.2010 19:33
Создаю круговую диаграмму. Подскажите что не так? Reanim Паскаль, Turbo Pascal, PascalABC.NET 3 03.07.2009 17:37
Интересует такой вопрос. Как создать круговую диаграмму в Дельфи Grisha248 Компоненты Delphi 6 26.05.2009 17:06


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS