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;)
240
431
Ответы на вопрос:
Популярно: Информатика
-
novkristinaa08.07.2020 23:48
-
nerika201723.11.2020 14:01
-
MissMi12.12.2021 10:00
-
kristinalyapina104.01.2021 23:40
-
arturyakovlev170321.02.2023 13:16
-
KIRILLX22825.07.2020 21:32
-
kostyaluch15.01.2023 05:23
-
hollok29.09.2021 22:45
-
tolya2211201610.10.2021 17:08
-
ilonabunduk05.04.2022 02:20