_Height: = 4; (D, _Width); i: = Low (D) to High (D) do (D [i], 2 * _Height - 1); [0,0]: = '4 ' ; D [1,0]: = '5 '; D [2,0]: = '3'; [0,1]: = '5 '; D [1,1]: = '4'; D [ 2,1]: = '6 '; [0,2]: = '4'; D [1,2]: = '5 '; D [2,2]: = '5'; [0,3] : = '4 '; D [1,3]: = '5'; D [2,3]: = '6 '; [0,4]: = '6'; D [1,4]: = ' 5 '; D [2,4]: = '5'; [0,5]: = '7 '; D [1,5]: = '5'; D [2,5]: = '7 '; [0,6]: = '6 '; D [1,6]: = '8'; D [2,6]: = '7 '; [3,0]: = '5'; D [4, 0]: = FORBIDDEN; [3,1]: = '6 '; D [4,1]: = '7'; [3,2]: = '5 '; D [4,2]: = FORBIDDEN; [3,3]: = '6 '; D [4,3]: = '8'; [3,4]: = '7 '; D [4,4]: = FORBIDDEN; [3,5]: = '8 '; D [4,5]: = '9'; [3,6]: = '7 '; D [4,6]: = FORBIDDEN; (P, _Width); i: = Low (P ) to High (P) do (P [i], _Height); i: = Low (P) to High (P) doj: = Low (P [i]) to High (P [i]) do begin (i = 0) and (j = 0) then begin [i, j]: = '0 ';;; (i = 0) then begin [i, j]: = IntToStr (StrToInt (P [i, j-1] ) + StrToInt (D [i, 2 * j-1]));;; (j = 0) then begin [i, j]: = IntToStr (StrToInt (P [i-1, j]) + StrToInt (D [i-1, 2 * j]));;;: = StrToInt (P [i, j-1]) + StrToInt (D [i, 2 * j-1]);: = StrToInt (P [i- 1, j]) + StrToInt (D [i-1, 2 * j]); Weight1 1) and (Y <> 1) do beginD [X-1-1, 2 * Y-1- 1] <> FORBIDDEN then X: = X - 1Y: = Y - 1;: = '(' + IntToStr (X) + ';' + IntToStr (Y) + ') ->' + S;; : = '(1; 1) ->' + S; (S);;.
Лінійне програмування. Метод Джордана-Гаусса
Методи лінійного програмування - чисельні методи вирішення оптимізаційних завдань, cводящіхся до формальних моделям лінійного програмування <# "265" src = "doc_zip29.jpg"/>
Divide (var V: Vector; D: real): boolean;: Integer;: = true; I: = Low (V) to High (V) do (V [I] = 0) and (D = 0 ) then V [I]: = 0 elseD <> 0 then [I]: = V [I]/DResult: = false;; Multiply (var V: Vector; K: real);: Integer; I: = Low (V) to High (V) do [I]: = V [I] * K;; Subtract (var V1, V2: Vector);: Integer; I: = Low (V1) to High (V1) do [I ]: = V1 [I] - V2 [I];; TForm1.Button2Click (Sender: TObject);: Matrix;, j: integer;: real;: TStringList; (M, StringGrid1.RowCount-1); I: = Low (M) to High (M) do (M [I], StringGrid1.ColCount-1); I: = Low (M) to High (M) doJ: = Low (M [I]) to High (M [ I]) do [I, J]: = StrToInt (StringGrid1.Cells [J +1, I +1]);: = TStringList.Create;. Add ('. matrix {text-align: right; pa...
