ання: підручник для середовищ. проф. Освіти/І.Г. Семакін, А.П.Шестаков. - 2-е вид., Стер, - М.: Видавничий центр В«АкадеміяВ», 2003.-432 с.
5 Федосєєв В.В. і ін Економіко-математичні методи і прикладні моделі: навчальний посібник для ВУЗів. - М.: Юніті, 2002. p> 6 Коршунов Ю.М. математичні основи кібернетики: навчальний посібник для ВНЗ. - М.: Вища школа, 1987. p> ДОДАТОК А
Лістинг програми
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
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
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
begin
writeln ('помилка введення, перевірте баланс ');
readln;
halt; p> end;
if (S2
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...
