al;
{$ R *. dfm} formirovanie (kol, c: integer); i: = 1 to kol do beginj: = 1 to 2 do begink: = 1 to 2 do begin: = matis [ j, k]; (z> 0) then begin if (czi)> 0 then begin: = z + i; [i, j, k]: = matis [j, k] + ver [1] * v [ l]; end else [i, j, k]: = ci; end; (z <0) then begin if abs (z)> = abs (i) then begin [i, j, k]: =-i ; end else begin
o: = abs (i + z); [i, j, k]: = matis [j, k] + ver [1] * v [o];
end;;;;;; TForm1.Button1Click (Sender: to kol do to kol do begin [i]: = 0;; i: = 1 to 2 do beginj: = 1 to 2 do [i, j]: = strtoint (stringgrid2.Cells [i, j]);; i: = 1 to kol do begin (kol, c, {v}); j: = 1 to kol do j: = 0; (j <= 3) and (i <= 4) do to kol do.Cells [1, i-1]: = floattostr (v [i]);
end;.