Скачиваний:
16
Добавлен:
06.02.2016
Размер:
1.22 Кб
Скачать
uses crt, Arrays;
const n=40;
var

b,x:array [1..n] of real;
a:array [1..n,1..n] of real;
i,j: integer;
E,R,S,d,W: real;
f,f1,f2: text;
Label 1;

Begin
var start:=System.DateTime.Now;

assign(f,'исходная матрица.txt');
Reset(f);
assign(f1,'корни уравнений.txt');
rewrite(f1);
assign(f2,'сходимость.txt');
rewrite(f2);

//считывание исходной матрицы
for i:=1 to n do
begin
for j:=1 to n do
read(f,a[i,j]);
readln(f,b[i]);
end;

E:=1E-6;
1:
R:=0;
for i:=1 to n do begin
s:=0;
for j:=1 to n do
if i<>j then S:=S+a[i,j]*x[j];
W:=(b[i]-S)/a[i,i];
d:=abs(W-x[i]);
if R<d then begin R:=d;
x[i]:=W;
end
else x[i]:=W;
end;
writeln(f2,R);

if R>E then goto 1;
for i:=1 to n do
writeln(f1,'x[',i,'] = ',x[i]);

close(f);
close(f1);
close(f2);

var finish:=System.DateTime.Now;
writeln('Время выполнения = ',(finish - start).TotalSeconds,' секунд');

End.
Соседние файлы в папке 3