Пример выполнения лабораторной работы №9

Пример выполнения лабораторной работы №9

Даны показатели среднего времени обслуживания вызова, мин, по годам

Наименование показателя
Среднее время обслуживания вызова, мин	49,09	52,95	47,43	45,77	42,76	44,84	42,75	43,63	44,67

Найти относительный прирост (%) времени обслуживания вызова в каждом году по отношению к предыдущему году. Найти год с максимальным и минимальным показателями. По исходным данным построить гистограмму.

В задаче будем использовать 2 массива – массив с номерами лет, назовем его Year, и массив с показателями времени обслуживания, этот массив назовем TimeO. Количество элементов в массивах – переменная N.

Алгоритм решения задачи показан на рис. Рисунок 0.1.

Рисунок 1. Блок-схема решения задачи

Создаем проект в Delphi, на форму добавляем компоненты Label, Edit, две кнопки Button. Для построения гистограммы добавляем на форму компонент Chart (на вкладке Additional), дважды кликаем по области построения и в открывшемся окне (рис. Рисунок 0.2) нажимаем кнопку Add, затем выбираем вариант Bar.

Рисунок 2. Создание серии на компоненте Chart для построения гистограммы

Изменим свойства объектов в инспекторе объектов, в таблице 1 приведены измененные свойства для таблицы StringGrid1 и графика Chart1.

Примерный вид формы приведен на рисунке 3. Результаты работы программы приведены на рисунке 4.

Таблица 1. Свойства некоторых компонент формы

Компонент	Свойство	Значение
StringGrid1	Visible	False (при запуске программы таблица вначале будет невидима)
	Options ->goEditing	True (разрешаем редактирование в ячейках таблицы)
	RowCount
Chart1	Title	Среднее время обслуживания вызова, мин
	Legend	False, т.к. у нас одна серия. Если в задаче надо построить на гистограмме две и более серий, то легенду следует оставить видимой
	Visible	False (при запуске программы график вначале будет невидим)

Рисунок 3. Форма проекта в Delphi

12 Следующая ⇒