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

[Proskurina]

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



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

Модератор

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

[Proskurina]

рисовать в abcpaskal;
в группе 12 человек из них
4-отличника;
3-хорошиста;
5-троишников;

[rubius2008]

рисуете прямоугольники различной (пропорциональной оценкам) высоты, что конкретно не получается?

[Proskurina]

я не понимаю как это всё делать..
покажите плиззз

[Sciv]

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, конкретно - про работу с графикой.

[Proskurina]

спасибки) очень рада что вы мне помогли)

[Proskurina]

как это сделать чтобы при запуске на графике было всё написано где результат какой оценки?

[Sciv]

Добавить вывод соответствующей цифры над столбиком:

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.

[Proskurina]

спасибо большое)