Помогите,плиз! Задача на паскль! Решение линейных уравнений методом Гаусса!

[vdv08]

Решение линейных уравнений с помощью метода Гаусса,и вывод собщения конечная матрица необратима!и еще что бы там был типизированый фал?!
Зарание всем от души спс!удачи во всем!

[mihali4]

Введите в строку поиска по форуму слово "гаусса". Миллион раз обсуждалось!

[vdv08]

Сообщение от mihali4

Введите в строку поиска по форуму слово "гаусса". Миллион раз обсуждалось!

А можнос делать ее попроще?и чтобы в проге был типизированый файл и матрица что бы была не совместной!
Зарание спс,и оч благодарен

[puporev]

1.Попроще нельзя. Попробуй решть систему из 4 уравнений вручную, поймешь почему.
2.Для чего тебе типизированный файл?
3. Чтобы была несовместной, надо ввести соответствующие коэффициенты, а в программе написать, что если после всех перестановок главный элемент (a[k,k] )все-таки=0, то вывести сообщение о несовместности.
Трудитесь батенька и воздастся.

[vdv08]

Сообщение от puporev

1.Попроще нельзя. Попробуй решть систему из 4 уравнений вручную, поймешь почему.
2.Для чего тебе типизированный файл?
3. Чтобы была несовместной, надо ввести соответствующие коэффициенты, а в программе написать, что если после всех перестановок главный элемент (a[k,k] )все-таки=0, то вывести сообщение о несовместности.
Трудитесь батенька и воздастся.

типизированный фал нужне по заданию!!!!
РЕШЕНИЕ ЛИНЕЙНЫХ УРАВНЕНИЙ МЕТОДОМ ГАУССА!!!И как добавить в прогу проверку о том совместна матрица или не совместима?и как добавить в нее типизированый файл?

var r,i,j,k,n: integer;
max,c,m,s:real;
a: array[1..100,1..100] of real;
x,b: array[1..100]of real;
begin
{ввод элементов массива}
write (‘Введите размерность');
read (n);
for i:=1 to n do begin
for j:=1 to n do begin
write ('a[',i,',',j,']=');
read (a[i,j]);
end;
writeln;
write ('b[',i,']=');
readln(b[i]);
end;
{прямой ход метода Гаусса}
for k:=1 to n do begin
max:=abs(a[k,k]);
r:=k;
for i:=k+1 to n do
if abs(a[i,k])>max then
begin
max:=abs(a[i,k]);
r:=i; end;
for j:=1 to n do begin
c:=a[k,j];
a[k,j]:=a[r,j];
a[r,j]:=c;
end;
c:=b[k];
b[k]:=b[r];
b[r]:=c;
for i:=k+1 to n do begin
m:=a[i,k]/a[k,k];
for j:=k to n do
a[i,j]:=a[i,j]-m*a[k,j];
b[i]:=b[i]-m*b[k];
end;
end;
{вывод треугольной матрицы}
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:1:2,' ');
writeln(b[i]:1:2);
end;
{Обратный ход метода Гаусса}
if a[n,n]=0 then
if b[n]=0 then writeln ('Бесконечное множество решений')
else writeln ('Нет решений')
else for i:=n downto 1 do begin
s:=0;
for j:=i+1 to n do begin
s:=s+a[i,j]*x[j]; end;
x[i]:=(b[i]-s)/a[i,i];
writeln('x(',i,')=',x[i]:1:2);
end;
end.
Проверьте и подскажите что икак подправить!!!!и пожалуйсиа помогите сделать типизированный файл с пояснениями,и как сделать чтобы рапзмерность и индексы матрицы вводить с клавиатуры???.....спс от души