Вопрос задан 28.10.2026 в 17:02. Предмет Информатика. Спрашивает Шония Арина.

По данным таблицы постройте столбчатую диаграмму на языке PascalABC.

Перейти к ответам

Отвечу на вопрос мгновенно! Нейросеть ChatGPT. Жми!

Ответы на вопрос

Отвечает Мак Юлия.

Для построения столбчатой диаграммы на языке PascalABC.NET можно использовать графический модуль GraphABC. Он позволяет рисовать оси координат, прямоугольники (столбцы), а также выводить подписи и числовые значения.

Поскольку сама таблица в вопросе не приведена, рассмотрим пример со следующими данными:

Категория	Значение
A	12
B	18
C	9
D	24
E	15

Программа на PascalABC.NET

pascal

uses GraphABC;

const
  n = 5;
  a: array[1..n] of integer = (12, 18, 9, 24, 15);
  names: array[1..n] of string =
    ('A', 'B', 'C', 'D', 'E');

var
  i, x, h, maxValue, scaleMax: integer;
  x0, y0, barWidth, chartHeight: integer;

begin
  SetWindowSize(800, 500);
  SetWindowCaption('Столбчатая диаграмма');
  
  x0 := 70;
  y0 := 400;
  barWidth := 80;
  chartHeight := 300;
  
  maxValue := a[1];
  for i := 2 to n do
    if a[i] > maxValue then
      maxValue := a[i];
  
  scaleMax := ((maxValue + 4) div 5) * 5;
  if scaleMax = 0 then
    scaleMax := 5;
  
  SetFontSize(16);
  TextOut(250, 20, 'Столбчатая диаграмма');
  
  Pen.Color := clBlack;
  Line(x0, 80, x0, y0);
  Line(x0, y0, 750, y0);
  
  SetFontSize(12);
  
  for i := 0 to 5 do
  begin
    TextOut(30, y0 - i * 60 - 8,
      IntToStr(i * scaleMax div 5));
  end;
  
  for i := 1 to n do
  begin
    x := x0 + 40 + (i - 1) * 120;
    h := Round(a[i] * chartHeight / scaleMax);
    
    Brush.Color := clBlue;
    Rectangle(x, y0 - h, x + barWidth, y0);
    
    Brush.Color := clWhite;
    TextOut(x + 30, y0 - h - 25,
      IntToStr(a[i]));
    TextOut(x + 30, y0 + 10, names[i]);
  end;
end.

Как будет выглядеть диаграмма

Столбчатая диаграмма

Объяснение программы

uses GraphABC; — подключает модуль для работы с графикой.
a — массив, содержащий числовые данные таблицы.
names — массив с названиями категорий.
SetWindowSize(800, 500) — устанавливает размер графического окна.
Line — рисует оси координат.
Rectangle — рисует столбцы диаграммы.
TextOut — выводит названия категорий и значения над столбцами.
maxValue и scaleMax — определяют масштаб, чтобы столбцы помещались в графическом окне.

Принцип построения: каждому значению из таблицы соответствует один столбец. Чем больше число, тем выше столбец. Высота вычисляется по формуле:

h=\frac{a[i]\cdot H}{M}

где $a[i]$ — значение из таблицы, $H$ — высота области диаграммы, $M$ — максимальное значение шкалы.

Вывод: программа строит столбчатую диаграмму по значениям массива. Чтобы получить диаграмму по своей таблице, достаточно заменить числа в массиве a и подписи в массиве names на соответствующие данные, а также изменить n, если количество категорий отличается от пяти.