В программе используются две процедуры:
- procedure FormCreate(Sender: TObject) – процедура заполнения формы;
- procedure Button4Click(Sender: TObject) – процедура выполнения вычислений, вызывается щелчком по кнопке «Расчет».
Рассмотрим операторы, используемые в программе. Вначале выполняется заполнение исходной таблицы:
m:=8 – задание количества поставщиков;
n:=8 – задание количества потребителей.
Задание размеров таблицы:
- StringGrid1.ColCount:=n+2; - задание количества столбцов;
- StringGrid1.RowCount:=m+2; - задание количества строк.
Заполнение шапки таблицы:
StringGrid1.Cols[n+1].Strings[0]:='Запасы';
StringGrid1.Cols[0].Strings[m+1]:='Потребности';
StringGrid1.Cols[0].Strings[0]:='Поставщики';
В цикле записываем номера поставщиков А1 до А8:
for i:=1 to m do
StringGrid1.Cols[0].Strings[i]:='A'+IntToStr(i);
В цикле записываем номера потребителей B1 до B8:
for j:=1 to n do
StringGrid1.Cols[j].Strings[0]:='B'+IntToStr(j);
Для перевода целого значения счетчика цикла в строковое используем метод IntToStr.
Введенные исходные данные выбираем из полей формы и записываем в массивы. Массив а[8] используется для хранения количества запасов груза:
for i:=1 to m do
a[i]:=StrToInt(StringGrid1.Cols[n+1].Strings[i]);
Массив b[8] используется для хранения количества потребностей груза:
for j:=1 to n do
b[j]:=StrToInt(StringGrid1.Cols[j].Strings[m+1]);
ОПИСАТЬ СВОЙ ЛИСТИНГ
ЗАКОНЧИТЬ ПРЕДЛОЖЕНИЕМ:
Листинг программы приводится в приложении Б.
естирование и отладка программы
Выполняем тестирование программы. Запускаем программу и вводим данные контрольного примера.
Вводим количество столбцов:
kol-vo stolbcov= 3
Вводим количество строк:
kol-vo strok= 4
Вводим стремление целевой функции:
E --> max
Вводим коэффициенты целевой функции – это элементы первой строки таблицы:
c[0] = 7
c[1] = -2
c[2] = 5
c[3] = 0
После ввода всех данных программа выполняет расчет, и на экран выводится результат: ………..
ИЛИ
После создания формы, размещения в ней компонентов и создания обработчиков событий запускаем программу командой Run из меню. Для тестирования программы введем данные контрольного примера, который решен ранее.
Имеется восемь поставщиков груза и восемь потребителей. Груз считается однородным. Запасы груза составляют: ………
Вводим данные в таблицу (рисунок 2.4).
Рисунок 2.4 – Ввод исходных данных
Нажимаем кнопку «Расчет». В форму выводится опорный план перевозок, как показано на рисунке 2.5.
Рисунок 2.5 – Вывод результата
ЗАКОНЧИТЬ ПУНКТ ПРЕДЛОЖЕНИЯМИ:
Тестирование показало, что результаты решения задачи на компьютере совпали с решением контрольного примера. Программа работает в соответствии с заданием.
