/p>
for i: = 1 to StringGrid1. RowCount-2 do
StringGrid1. Cells [0, i]: = 'B' + IntToStr (i);
StringGrid1. Cells [StringGrid1. ColCount-1, 0]: = 'Виробники';. Cells [0, StringGrid1. RowCount-1]: = 'Споживачі';. Cells [StringGrid1. ColCount-1, StringGrid1. RowCount-1]: = 'A';; TForm1. AddElement (u, v: integer);// додаємо індекси елемента в дорогу контуру
begin: = kp +1; [qwe]: = u;: = qwe +1; [kp]: = v;; TForm1. FindPath (i, j: integer);// знаходження шляху: = -1;: = 0; (i, j); not LookHorizontaly (i, j, i, j) then ('Неможливо знайти контур для:' + IntToStr (i) + '' + IntToStr (j));; TForm1. LookHorizontaly (u, v, u1, v1: integer): boolean;// перевіряємо// чи є в рядку осередок яку можна взяти в контур, cc: integer;: = false;: = StringGrid1. colCount; i: = 0 to cc do (i <> v) and (mas [u, i] <> 0) theni = v1 then (u, i);// додавання елементів: = true;// повертаємо true; LookVerticaly (u, i, u1, v1) then (u, i);: = True;;;; TForm1. LookVerticaly (u, v, u1, v1: integer): boolean;// перевіряємо// чи є в стобце осередок яку можна взяти в контур
var, rc: integer;: = false;: = StringGrid1. rowCount; i: = 0 to rc do (i <> u) and (mas [i, v] <> 0) thenLookHorizontaly (i, v, u1, v1) then (i, v);: = True ;;; TForm1. opor_plan (ColCount, RowCount: integer);// опорний план, l, q, i, j, sum, rc, cc, min, k, p, x: integer;, fund: array [1. n] of integer;// масиви споживачів і виробників: arr;: = 0;: = 0;: = StringGrid1. RowCount-2;// рядки: = StringGrid1. ColCount-2;// стобциi: = 1 to rc doj: = 1 to cc do [i, j]: = StrToIntDef (StringGrid1. Cells [j, i], 0);// коефіцієнти [i, j]: = StrToIntDef (StringGrid1. Cells [j, i], 0);// копія коефіцієнтів [i, j]: = 0;// Обнуляємо масив; i: = 1 to cc do [i]: = StrToIntDef (StringGrid1. Cells [ i, rc +1], 0);// коефіцієнти при "споживач" i: = 1 to rc do [i]: = StrToIntDef (StringGrid1. Cells [cc +1, i], 0);// коефіцієнти при "виробник" (ComboBox1. Text = 'Мінімального елемента') then
begin (min <> 999999) do: = 999999; i: = 1 to rc doj: = 1 to cc do (koef2 [i, j] <> 0) and (koef2 [i, j]
k: = i;// перший індекс мінімального елемента: = j;// другий індекс мінімального елемента;; [k, p]: = 0;// в масиві коефіцієнти мінімального елементу присвоюємо 0 щоб програма не брала його знову
if (fund [k] <> 0) and (need [p] <> 0) and (min <> 999999) then
if fund [k]> = need [p] then// кількість виробників> = кількості споживачів
begin [k, p]: = need [p]; [k]: = fund [k] - need [p]; [p]: = 0; i: = k to rc doj : = p to p do [i, j]: = 0; fund [k] = need [p] theno: = k to k dol: = p to cc do
koef2 [o, l]: = 0; ;//кількість виробників <...
