Метод Зейделя

@ВладПРО · Регистрация: 27.03.2013

Author24 — интернет-сервис помощи студентам

Вот код программы. Здесь уже есть приведённая матрица . Как работает сам метод Зейделя я понимаю и могу на листке всё это разложить по полочкам, но вот как это написать в программу я никак не могу придумать. Если можно помогите. Буду благодарен.

Pascal

Program Zeyden;
const e=0.0001;
var 
 b:array[0..4,1..4] of real;
 a:array[1..4] of real;
 i,j:integer;
 x1,x2,x3,x4:real;
begin
a[1]:=-0.475;
a[2]:=0;
a[3]:=18/64;
a[4]:=1.6;
 
b[1,1]:=0;             b[1,2]:=-0.275;     b[1,3]:=0;      b[1,4]:=0;
b[2,1]:=-0.18;         b[2,2]:=0;           b[2,3]:=0;      b[2,4]:=0.08;
b[3,1]:=-0.109375;     b[3,2]:=-0.078125;  b[3,3]:=0;      b[3,4]:=0;
b[4,1]:=0;             b[4,2]:=-0.1125;    b[4,3]:=0.0875; b[4,4]:=0;
for i:=1 to 4 do 
 begin
  writeln(); 
  for j:=1 to 4 do 
  write(b[i,j]:4:4,'   ');
 end;
x1:=-0.475-0.275*b[2,2];
x2:=0.08*b[4,4]-0.18*x1;
x3:=b[3,2]*x2-b[3,2]*x1;
x4:=1.6-b[4,2]*x2+b[4,3]*x3;
writeln();
write(x1,' ',x2,' ',x3,' ',x4);      
end.

	02.12.2013, 13:20