Информатика. Часть 2. Мойзес О.Е - 140 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

140
assign(f1,'dzeidel.pas');
assign(f2,'rzeidel.pas');
reset(f1);
rewrite(f2);
for i:=1 to n do
begin
for j:=1 to n+1 do
read(f1,a[i,j]);
readln(f1);
end;
close(f1);
writeln(f2,' Решение системы линейных уравнений методом Зейделя');
for i:=1 to n do
begin
s:=0.0;
for j:=1 to n do
if i<>j then s:=s+abs(a[i,j]);
if abs(a[i,i])< s then
begin
writeln(f2,' Условие сходимости метода не выполняется');
goto 1;
end;
end;
for i:=1 to n do
begin
x[i]:=0.0;
x1[i]:=0.0;
end;
2: for i:=1 to n do
begin
s:=0.0;
for j:=1 to n do
if i<>j then s:=s+a[i,j]/a[i,i]*x[j];
x[i]:=a[i,n+1]/a[i,i]-s;
end;
for i:=1 to n do
if abs(abs(x[i])-abs(x1[i])) > eps then
begin
for j:=1 to n do
x1[j]:=x[j];
goto 2;
end;
writeln(f2,' Значения неизвестных');
for i:=1 to n do
writeln(f2,' x',i,'=',x[i]:7:3);
1: close(f2);
end.
3. Программа расчета коэффициентов параболической
аппроксимации по методу наименьших квадратов с применением
метода Гаусса для решения системы линейных уравнений
Program Parabol;
Const n=3;m=9;
Var aa:array[1..n,1..n+1] of real;
a:array[1..n+1] of real;
x,y,yr:array[1..m] of real;
as:real;
s1,s2,s3,s4,s5,s6,s7:real;

Страницы