Решить систему линейных уравнений методом простых итераций на Delphi

[Кнопик]

Если кто-нибудь знает как это делать, напишите пожалуйста для Delphi(Осталась только эта задачка, но я понятия не имею как её писать, и нигде тоже не нашла. Спасибо заранее

[LeBron]

В сети есть, искать особо не надо.
Запрос в гугл - "СЛАУ методом простых итераций"

[ОДИНОЧЕСТВО В СЕТИ]

вот для одного уравнения!

var n:integer;
    x0,x,eps,d,y,z,c:real;

begin
 n:=0;x0:=-1;c:=-0.1;x:=x0;eps:=0.001;d:=0.01;
 repeat
  y:=x+c*(exp(x)+x);z:=x;
  n:=n+1;
  writeln(n:3,x:9:5,y:9:5,abs(y-x):9:5,abs(exp(y)+y):9:5);
  x:=y;
 until (abs(z-x)<=eps) and (abs(exp(x)+x)<=d);
end.

ну а вот для системы

var
b1,d,x1,x2,x3,x4,e,y1,y2,y3,y4:real;
begin
x1:=0; x2:=0; x3:=0; x4:=0; e:=1e-5;
repeat
y1:=(-9-x2+x4)/4;
y2:=(-y1+x3-3*x4)/2;
y3:=(-7-x1+3*y2)/4;
y4:=(2-3*x2+2*y3)/4;
d:=sqrt(sqr(x1-y1)+sqr(x2-y2)+sqr(x3-y3)+sqr(x4-y4));
x1:=y1; x2:=y2; x3:=y3; x4:=y4;
until d>E;
b1:=x1+2*x2-x3-3*x4;
writeln('x1= ',x1:8:5,' x2= ',x2:8:5,
'x3= ',x3:8:5,' x4= ',x4:8:5,' b1= ',b1:8:5);
end.