СКАЧАТЬ:  elmi6.zip [21,11 Kb] (cкачиваний: 70)

Решить систему методом простой итерации с точностью е=0,0001

15x₁-8x₂+x₃=3.2

4x₁+12x₂+x₃=2

x₁+x₂-11x₃=3.4

Program Pr7;

uses crt;

 label metka;

 const n=3 ;

           e=0.0001;

var

i,j: integer;

k,s: real;

a: array [1..n,1..n] of real;

b,x,y: array [1..n] of real;

begin

writeln('vvedi massiv a');

For i:=1 to n do for j:=1 to n do

read (a[i,j]);

  writeln('vvedi massiv b');

for i:=1 to n do

read (b[i]);

for i:=1 to n do x[i]:=0;

for i:=1 to n do x[i]:=1;

 metka:for i:=1 to n do

begin

                    s:=b[i]/a[i,i];

for j:=1 to n do

 if i<>j then

begin

k:=a[i,j]/a[i,i];

s:=s-k*x[j];

end;

y[i]:=s;

end;

s:=0;

for i:=1 to n do

begin

s:=s+abs(y[i]-x[i]);

x[i]:=y[i];

end;

if s<e then

begin

writeln('О Т В Е Т Ы');

writeln;

for i:=1 to n do writeln('x',i,'=',x[i]:5:3,'   ');

end;

if s>=e then goto metka;

writeln;

writeln;

readln;

writeln('ПРОВЕРКА');

for i:=1 to n do

begin

for j:=1 to n do

b[i]:=b[i]-a[i,j]*x[j];

if b[i]<e then writeln(i,'-е уравнение верно.  ')

else write(i,'-е уравнение неверно.  ');

end;

readln;

end.

ОТВЕТЫ: X₁=0.283

                  X₂=0.095

                  X₃= - 0.275