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

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

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

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

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

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

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

Да нате Вам

Код:
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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


02:58.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.