У ПРОГРАМІ:
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
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;
ВИСНОВОК
Мені була поставлено завдання скласти програму для розрахунку початкового базису збалансованої транспортної задачі, де сумарні запаси постачальників рівні сумарним запитам споживачів.
Програма реалізована на мові програмування Паскаль.
Все що вводяться дані і початковий базис виводяться у вигляді таблиці.
У програмі зручний і зрозумілий інтерфейс. Для введення даних використовується клавіатура. Дані, виведені програмою, відповідають тим, що отримані при розрахунках без використання комп'ютера. Таким чином, поставлене завдання було виконана.
СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ
1 Загальний курс вищої математики для економістів. Підручник/за ред В.І. Єрмакова. - М.: інфа - М. - 656 с. - (Серія В«вища освітаВ»). p> 2 Збірник завдань і вправ з вищої математики: математичне програмування: підручник посібник/О.В. Кузнєцов, В.А. Сакович, Н.І. Холод та ін; МН.: Виш. ик., 2002. - 447с.: Іл. p> 3 Т.Л. Партикіна, І.І. Попов Математичні методи: підручник. - М.: ФОРУМ: інфа-М, 2005. - 464 с.: мул - (професійна освіта)
4. І.Г. Семакін Основи програмув...
