Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

Нарисовать столбиковую диаграмму по результатам сдачи экзамена по матану



Кросспостинг (это создание одинаковых тем и сообщений) СТРОГО ЗАПРЕЩЁН правилами форума!

Модератор

Внимание! Вам до бана не хватает одного нарушения..
Ещё одно нарушение и ваш аккаунт будет заблокирован!

Последний раз редактировалось Serge_Bliznykov; 24.10.2012 в 13:45.
Proskurina вне форума Ответить с цитированием
Старый 24.10.2012, 16:08   #2
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию

рисовать в abcpaskal;
в группе 12 человек из них
4-отличника;
3-хорошиста;
5-троишников;
Proskurina вне форума Ответить с цитированием
Старый 24.10.2012, 20:03   #3
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

рисуете прямоугольники различной (пропорциональной оценкам) высоты, что конкретно не получается?
Есть вопросы, пишите в ЛС.
rubius2008 вне форума Ответить с цитированием
Старый 24.10.2012, 20:30   #4
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию

я не понимаю как это всё делать..
покажите плиззз
Proskurina вне форума Ответить с цитированием
Старый 24.10.2012, 20:48   #5
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);
      ed=25;
      x0=300;
      y0=200;

var i,x,y: integer;

begin
  x:=x0;
  y:=y0;
  Line(x,y,x,y-150);
  Line(x,y,x+300,y);
  x:=x+10;
  for i:=1 to 3 do begin
    SetBrushColor(colors[i]);
    FillRect(x,y,x+ed,y-ed*marks[i]);
    x:=x+ed+10;
  end;
end.
Вот так. Комментировать не буду, уж извините. Расшифровать сие послание сможете, почитав про PascalABC, конкретно - про работу с графикой.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 25.10.2012, 19:03   #6
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию

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

как это сделать чтобы при запуске на графике было всё написано где результат какой оценки?
Proskurina вне форума Ответить с цитированием
Старый 02.11.2012, 18:52   #8
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);
      ed=25;
      x0=300;
      y0=200;

var i,x,y: integer;
    s:string;

begin
  x:=x0;
  y:=y0;
  Line(x,y,x,y-150);
  Line(x,y,x+300,y);
  x:=x+10;
  for i:=1 to 3 do begin
    SetBrushColor(colors[i]);
    FillRect(x,y,x+ed,y-ed*marks[i]);
    Str(marks[i],s);
    TextOut(x,y-ed*marks[i]-TextHeight(s)-1,s);
    x:=x+ed+10;
  end;
end.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 07.11.2012, 23:14   #9
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию

спасибо большое)
Proskurina вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нарисовать столбиковую диаграмму Proskurina Помощь студентам 2 24.10.2012 13:40
Запрос на выявление должников по дате сдачи экзамена. gromila_psix SQL, базы данных 1 21.04.2011 09:38
Нарисовать диаграмму сравнения методов Gebbellz Помощь студентам 0 15.12.2010 17:52
Нужен помощник для сдачи экзамена gx5rmsu8x Помощь студентам 0 30.01.2010 18:05