Рішення транспортних задач

3. ФОРМИ ВИХІДНИЙ ІНФОРМАЦІЇ
Інформація виводиться на екран у вигляді таблиці з введеними даними і допустимий початковий базис

	В1 50	В2 40	В3 30	В4 20	В5 10
А1 10	10	-	-	-	-
А2 20	20	-	-	-	-
А3 30	20	10	-	-	-
А4 40	-	30	10	-	-
А5 50	-	-	20	20	10

4. ІНСТРУКЦІЯ ДЛЯ КОРИСТУВАЧА
Загальні відомості:
Програма робить обчислення припустимого початкового базису
Завдання є збалансованою. Пошук початкового базису відбувається методом «північно-західного кута»
Управління:
Дані вводяться з клавіатури:
Користувач вводить запаси i-го споживача. Після натискання клавіші «0» користувач вводить запити j-го постачальника. Далі на екрані після натискання клавіші «Enter» з'являється таблиця з вводяться даними і початковий базис.

5. ІНСТРУКЦІЯ ДЛЯ ПРОГРАМІСТА
Дана програма реалізується за допомогою процедурної мови Turbo Pascal 7.0, використовується текстовий режим.
5.1 НЕОБХІДНІ ІНФОРМАЦІЙНО-ОБЧИСЛЮВАЛЬНІ ЗАСОБИ:
1) технічне забезпечення: IBM PC \ XT сумісні машини
а) оперативна пам'ять - не менше 8Мб
б) вільне місце на жорсткому диску - не менше 60Кб
в) центральний процесор - від Intel 8088 до сімейства Pentium або сумісних з ним
2) інформаційні засоби для нормального функціонування програми досить мати інформаційну систему MS DOS
5.2 ТИПИ ЗМІННИХ, ВИКОРИСТАНИХ У ПРОГРАМІ:
const n = 20 (рядки)
m = 20 (стовпці)
a: array [1 .. n] of integer; {масив запасів}
b: array [1 .. m] of integer; {масив потреб}
a1: array [1 .. n] of integer; {допоміжний масив запасів}
b1: array [1 .. m] of integer; {допоміжний масив потреб}
c: array [1 .. n, 1 .. m] of integer; {основний масив в який проводиться запис базисного рішення}
i, j, k, x, y, s1, s2: integer;

5.3 ПРОЦЕДУРИ
procedure vvod_klav; (введення даних з клавіатури)
begin
i: = 1;
k: = 0;
s1: = 0;
while (k = 0) and (i <n) do
begin
write ('введіть запaси', i, '-того постачальника:');
readln (a [i]);
if a [i] = 0 then
begin
k: = 1;
i: = i-1;
end
else
begin
a1 [i]: = a [i];
s1: = s1 + a1 [i];
i: = i +1;
end;
end;
j: = 1;
k: = 0;
s2: = 0;
textcolor (5);
while (k = 0) and (j <m) do
begin
write ('введіть запит', j, '-того споживача:');
readln (b [j]);
if b [j] = 0 then
begin
k: = 1;
j: = j-1;
end
else
begin
b1 [j]: = b [j];
s2: = s2 + b1 [j];
j: = j +1;
end;
end;
textcolor (yellow);
k: = 0;
if s1 <s2 then
begin
writeln ('помилка вводу, перевірте баланс');
readln;
halt;
end;
if (s2 <s1) and (k = 0) then
begin
writeln ('помилка вводу, перевірте баланс');
readln;
halt; end;
x: = i;
y: = j;
end;

ВИСНОВОК
Мені була поставлена ​​задача скласти програму для розрахунку початкового базису збалансованої транспортної задачі, де сумарні запаси постачальників рівні сумарним запитам споживачів.
Програма реалізована на мові програмування Паскаль.
Всі дані, що вводяться і початковий базис виводяться у вигляді таблиці.
У програмі зручний і зрозумілий інтерфейс. Для введення даних використовується клавіатура. Дані, виведені програмою, відповідають тим, що отримані при розрахунках без використання комп'ютера. Таким чином, поставлена ​​задача була виконана.

СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ
1 Загальний курс вищої математики для економістів. Підручник / за ред В.І. Єрмакова .- М.: інфа - М. - 656 с. - (Серія «вищу освіту»).
2 Збірник задач і вправ з вищої математики: математичне програмування: підручник посібник / О.В. Кузнєцов, В.А. Сакович, Н.І. Холод та ін; МН.: Виш. ік., 2002. - 447с.: Іл.
3 Т.Л. Партикіна, І.І. Попов Математичні методи: підручник. - М.: ФОРУМ: інфа-М, 2005. - 464 с.: Іл - (професійна освіта)
4. І.Г. Семакін Основи програмування: підручник для середовищ. проф. Освіти / І.Г. Семакін, А. П. Шестаков. - 2-е вид., Стер, - М.: Видавничий центр «Академія», 2003.-432 с.
5 Федосєєв В.В. та ін Економіко-математичні методи і прикладні моделі: навчальний посібник для ВУЗів. - М.: Юніті, 2002.
6 Коршунов Ю.М. математичні основи кібернетики: навчальний посібник для ВУЗів. - М.: Вища школа, 1987.

ДОДАТОК А
Лістинг програми
program sev_zap;
uses crt; {підключення модуля "crt"}
const n = 5; {кількість рядків}
m = 5; {кількість стовпців}
var a: array [1 .. n] of integer; {масив запасів}
b: array [1 .. m] of integer; {масив потреб}
a1: array [1 .. n] of integer; {допоміжний масив запасів}
b1: array [1 .. m] of integer; {допоміжний масив потреб}
c: array [1 .. n, 1 .. m] of integer; {основний масив в який проводиться запис базисного рішення}
i, j, k, x, y, s1, s2: integer;
{Введення з клавіатури}
procedure vvod_klav;
begin
i: = 1;
k: = 0;
s1: = 0;
while (k = 0) and (i <n) do
begin
write ('введіть запaси', i, '-того постачальника:');
readln (a [i]);
if a [i] = 0 then
begin
k: = 1;
i: = i-1;
end
else
begin
a1 [i]: = a [i];
s1: = s1 + a1 [i];
i: = i +1;
end;
end;
j: = 1;
k: = 0;
s2: = 0;
textcolor (5);
while (k = 0) and (j <m) do
begin
write ('введіть запит', j, '-того споживача:');
readln (b [j]);
if b [j] = 0 then
begin
k: = 1;
j: = j-1;
end
else
begin
b1 [j]: = b [j];
s2: = s2 + b1 [j];
j: = j +1;
end;
end;
textcolor (yellow);
k: = 0;
if s1 <s2 then
begin
writeln ('помилка вводу, перевірте баланс');
readln;
halt;
end;
if (s2 <s1) and (k = 0) then
begin
writeln ('помилка вводу, перевірте баланс');
readln;
halt;
end;
x: = i;
y: = j;
end;
begin
textcolor (white);
clrscr; {очищення екрана}
writeln ('Побудова початкового базису в збалансованої транспортної задачі методом північно-західного кута');
writeln;
writeln ('Програму склав: Руднєв Єгор Миколайович');
writeln;
vvod_klav; {процедура введення з клавіатури}
repeat
k: = 0;
if (b [j]-a [i] <0) then
begin
c [i, j]: = b [j];
a [i]: = a [i]-b [j];
b [j]: = 0;
j: = j-1;
k: = 1;
end;
if (b [j]-a [i]> 0) and (k = 0) then
begin
c [i, j]: = a [i];
b [j]: = b [j]-a [i];
a [i]: = 0;
i: = i-1;
k: = 1;
end;
if (b [j]-a [i] = 0) and (k = 0) then
begin
c [i, j]: = a [i];
a [i]: = 0;
b [j]: = 0;
i: = i-1;
j: = j-1;
end;
if (i = 0) or (j = 0) then break;
until false;
{Висновок на екран базисного рішення}
clrscr;
textcolor (white);
for i: = 1 to x do
begin
for j: = 1 to y do
if j = y then write (c [i, j]: 6, '│', a1 [i])
else
write (c [i, j]: 6);
writeln;
end;
write ('');
for i: = 1 to y * 6-4 do
write (# 196);
writeln ('┘');
for j: = 1 to y do
write (b1 [j]: 6);
readln;
end.