у меня вопрос. я все-таки не могу разобраться, программа начинает не выполняться уже с самого начала.. когда я только объявляю переменные...
Program Metod_Gaussa;
const
R=6;
var
A:array [1..R,1..R+1]of integer;
i,j,k:integer;
X:array [1..R] of integer;
C:integer; если здесь поставить real то паскаль пишет что "попытка присвоить переменной типа integer выражение типа real", но если ставишь integer, то в C:=A[i,j]/A[j,i]; он пишет такую же ошибку
BEGIN
writeln;
for i:=1 to R-1 do
begin
k:=i;
for j:=i+1 to R do
if abs(A[j,i])>abs(A[k,i]) then
k:=j;
if k<>i then
for j:=i to R+1 do
begin
C:=A[i,j];
A[i,j]:=A[k,j];
A[k,j]:=C;
end;
for j:=i+1 to R do
begin
C:=A[i,j]/A[j,i];
for k:=i+1 to R+1 do
A[j,k]:=A[j,k]*C-A[i,k];
end;
end;
for i:=R downto 1 do
begin
C:=0;
for j:=i+1 to R do
C:=C+A[i,j]*X[j];
X[i]:=(A[i,R+1]-C)/A[i,i];
end;
for i:=1 to R do
writeln('X',i,'=',X[i]:10:6);
writeln;
END.