Писание программы по листингу

В программе используются две процедуры:

- 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 – Вывод результата

ЗАКОНЧИТЬ ПУНКТ ПРЕДЛОЖЕНИЯМИ:

Тестирование показало, что результаты решения задачи на компьютере совпали с решением контрольного примера. Программа работает в соответствии с заданием.