Курсовая работа: Современное состояние вычислительной техники

y₁ =(-5-x₂ -x₃ )/3

y₂ =(4-x₁ )/(-6)

y₃ =(7-2x₁ )/(-8)

В качестве начального приближения для х₁ ;x₂ ;x₃ , берётся 0 или 1. Подставляется в правую часть системы, получается новое значение x_i , которое снова подставляется в правую часть и т.д. Пока разность между приближениями не станет меньше d).

<=10^-5

program lin;

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);

x1 =1; x2 =1; x3 =1; x4 =1; e=10-5

end.

Нет

??????:

x1 =y1 ; x2 =y2 ; x3 =y3 ; x4 =y4

x1= -2.99999

x2= 4.00000

x3= 1.99999

b1=x1+2*x2-x3-3*x4

x4= -1.00000

b1= 0.000000

Да

Проверка в ППП "Eureka"

4*x1+x2-x4=-9

x1-3*x2+4*x3=-7

3*x2-2*x3+4*x4=12