Курсовая работа: Решение транспортных задач

Данная программа реализуется с помощью процедурного языка TurboPascal 7.0, используется текстовый режим.

5.1 ТРЕБУЕМЫЕ ИНФОРМАЦИОННО–ВЫЧИСЛИТЕЛЬНЫЕ СРЕДСТВА:

1) техническое обеспечение: IBMPC\XT совместимые машины

а) оперативная память – не менее 8Мб

б) свободное место на жестком диске – не менее 60Кб

в) центральный процессор – от Intel 8088 до семейства Pentium или совместимых с ним

2) информационные средства для нормального функционирования программы достаточно иметь информационную систему MSDOS

5.2 ТИПЫ ПЕРЕМЕННЫХ, ИСПОЛЬЗОВАННЫХ В ПРОГРАММЕ:

constn=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 ПРОЦЕДУРЫ

procedurevvod_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;