Основы применения вычислительной техники и программирование. Беспалов В.В. - 70 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

и с последующими значениями X1. В конце каждой итерации произво-
дится переприсвоение значений из последующих в предыдущие:
for k:=1 to m do
begin
z:=k;
for i:=1 to n do
begin
s:=a[i,n+1];
for j:=1 to n do s:=s-a[i,j]*X0[j];
s:=s/a[i,i];
X1[i]:=X0[i]+s;
if abs(s)>e then z:=0
end;
if z<>0 then Break
else
for i:=1 to n do X0[i]:=X1[i];
end;
8.7. Вывод результатов и проверка
Чтобы проверить, правильно ли решена система уравнений, нуж-
но подставить найденные значения x в левую часть каждого уравнения
и найти относительную погрешность между полученным значением
и правой частью этого уравнения:
for i:=1 to n do
writeln(‘X[,i,]=’,X[i]);
writeln(‘Проверка:’);
for i:=1 to n do
begin
s:=0;
for j:=1 to n do s:=s+a[i,j]*X[j];
write(‘Уравнение ’,i,‘ ’,s,‘ = ’,a[i,n+1]);
writeln(‘ Погрешность ’,
abs((s-a[i,n+1])/s));
end;
Замечание
. При решении системы методом Гаусса перед провер-
кой нужно заново произвести ввод исходной матрицы из файла данных.
Это нужно сделать потому, что исходная матрица A была преобразована
в треугольную при прямом проходе и теперь требуется перечитать её
исходное состояние для проведения проверки.
71

Страницы