Procedure direct(var x: matrice; t: integer); label linie_urmatoare;
var k, l: integer; r: real;
begin
for i: integer :=1 to t-1 do
begin
if x[i,i]=0 then
begin
k:=i;
for j: integer := i+1 to n do if x[j,i] <> 0 then k:=j;
if k = i then goto linie_urmatoare
else for j: integer :=1 to t+1 do
begin
r := x[i,j];
x[i,j] := x[k,j];
x[k,j] := r;
end;
end;
for j: integer :=i+1 to t do
begin
r := -x[j,i] / x[i,i];
for k:= i to t+1 do x[j,k] := x[j,k] + x[i,k] * r;
end;
linie_urmatoare: end;
end;

решить проблему с "Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла" (ошибка в строке - for k:= i to t+1 do x[j,k] := x[j,k] + x[i,k] * r;)

98675423    1   21.01.2021 21:54    0