PascalABC.Net задание

[now2]

I. Напишите программу решения системы линейных уравнений
методом Жордана-Гаусса.
II. Решите систему линейных уравнений и осуществите проверку
найденного решения.
III. Решите систему линейных уравнений, если известно количество
неизвестных и формулы по которым вычисляются элементы
основной матрицы системы ����,�� и столбца свободных членов ���� .
Осуществите проверку найденного решения. Что является точным
решением системы. Обоснуйте полученные результаты.

5. n = 12, ai,j =
−1
i+j
, bi = ai,j
nj
=1 .
5.
4,4x1 − 2,5x2 + 19,2x3 − 10,8x4 = −4,3,
5,5x1 − 9,3x2 − 14,2x3 + 13,2x4 = −6,8,
7,1x1 − 11,5x2 + 5,3x3 − 6,7x4 = 1,8,
14,2x1 + 23,4x2 − 8,8x3 + 5,3x4 = −7,2.

программа

program var5;
var n,m,i, j,p: integer;
A:array [1..30,1..30] of integer;
begin
writeln('vvedi n');
readln(n);
for i:=1 to n do begin
for j:=1 to n+1 do
readln (A[i,j]);
end;
for i:=n downto 1 do begin
for j:=1 to n+1 do
if A[1,j]<>0 then
p:=j;
writeln(p);
end;
end.
readkey;
end.

помогите написать программу. я вот попробовала , но она не работает(((((

[ZX Spectrum-128]

http://www.programmersforum.ru/showthread.php?t=49467

[now2]

program Gauss_Classic;
uses crt;

type vec=array[1..10] of real;
mas=array[1..10] of vec;

var a:mas;b,x:vec;
h:real;
i,j,k,n:integer;

Begin {Начало основной программы}
Clrscr;
write('Введите количество уравнений: ');read(n);
for i:=1 to n do begin
writeln('Уравнение ',i);
writeln('Введите коэффициенты');
for j:=1 to n do begin
write('a[',i,',',j,']=');read(a[i,j]);end;
writeln('Введите правую часть уравнения');
write('b[',i,']=');read(b[i]); end;
Clrscr;
writeln('Исходная матрица');
for i:=1 to n do begin
write(i);
for j:=1 to n do
write(a[i,j]:10:5);
writeln(b[i]:10:5) end;
writeln; writeln; writeln;
{Прямой ход - исключение переменных}
for i:=1 to n-1 do
for j:=i+1 to n do begin
a[j,i]:=-a[j,i]/a[i,i];
for k:=i+1 to n do
a[j,k]:=a[j,k]+a[j,i]*a[i,k];
b[j]:=b[j]+a[j,i]*b[i] end;
x[n]:=b[n]/a[n,n];
{Обратный ход - нахождение корней}
for i:=n-1 downto 1 do begin
h:=b[i];
for j:=i+1 to n do h:=h-x[j]*a[i,j];
x[i]:=h/a[i,i]; end;
writeln('Корни уравнения');
for i:=1 to n do writeln('x(',i,')=',x[i]:10:5);
readkey
end.
спасибо большое , а можете пояснить программу как она работает , просто не понятны некоторые моменты

[now2]

program Gauss_Classic;
uses crt;

type vec=array[1..30] of real;
mas=array[1..30] of vec;

var a:mas;b,x:vec;
h:real;
i,j,k,n:integer;

Begin {Начало основной программы}
Clrscr;
write('Введите количество уравнений: ');read(n);
for i:=1 to n do begin
writeln('Уравнение ',i);
writeln('Введите коэффициенты');
for j:=1 to n do begin
write('a[',i,',',j,']=');read(a[i,j]);end;
writeln('Введите правую часть уравнения');
write('b[',i,']=');read(b[i]); end;
Clrscr;
writeln('Исходная матрица');
for i:=1 to n do begin
write(i);
for j:=1 to n do
write(a[i,j]:10:5);
writeln(b[i]:10:5) end;
writeln; writeln; writeln;
{Прямой ход - исключение переменных}
for i:=1 to n-1 do
for j:=i+1 to n do begin
a[j,i]:=-a[j,i]/a[i,i];
for k:=i+1 to n do
a[j,k]:=a[j,k]+a[j,i]*a[i,k];
b[j]:=b[j]+a[j,i]*b[i] end;
x[n]:=b[n]/a[n,n];
{Обратный ход - нахождение корней}
for i:=n-1 downto 1 do begin
h:=b[i];
for j:=i+1 to n do h:=h-x[j]*a[i,j];
x[i]:=h/a[i,i]; end;
writeln('Корни уравнения');
for i:=1 to n do writeln('x(',i,')=',x[i]:10:5);
readkey
end.
ВОТ ВООБЩЕМ ЧТО ПОЛУЧИЛОСЬ , СПАСИБО ВСЕМ БОЛЬШОЕ)))) А НЕ ПОДСКАЖИТЕ ТРЕТЬЕ ЗАДАНИЕ С НИМ ЧТО ДЕЛАТЬ ???

[now2]

почему корни выдает разные , в программе одни а если решать в инете онлайн то корни совершенно другие и не все отрицательные ??????

[now2]

задание третье
не понимаю к чему это и что с ним надо сделать ((((????

[now2]

задание к этой же системе

[now2]

помогите!!!!!!!ПЛИИИИИИИИИИИИИИИЗЗЗ ЗЗЗЗЗЗЗЗ, что делать с третьим заданием и почему п программе одни корни а решаешь в инете-онлайн другие получаются

[now2]

помогитееееееееееееееееееееееееееее еееееееееееееееееееееееееееееееее плииииииииииииииииииииииииизззззззз зззззззззззззззззззззззззззззз

[Stilet]

Я как-то по матану сам ниче не бэльмэса...