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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

139
1. Программа решения системы линейных уравнений методом
Гаусса
Program Gauss;
Const n=3;
Var a,a1:array[1..n,1..n+1] of real;
x:array[1..n+1] of real;
as:real;
i,j,s,k:integer;
f1,f2:text;
Begin
assign(f1,'dgaus.pas');
assign(f2,'rgaus.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 s:=1 to n do
begin
for j:=s+1 to n+1 do
begin
a[s,j]:=a[s,j]/a[s,s];
for i:=s+1 to n do
a[i,j]:=a[i,j]-a[i,s]*a[s,j];
end;
end;
x[n+1]:=0.0;
for i:=n downto 1 do
begin
as:=0.0;
for k:=i to n do
as:=as+a[i,k+1]*x[k+1];
x[i]:=a[i,n+1]-as;
end;
writeln(f2,' Значения неизвестных');
for i:=1 to n do
writeln(f2,' x',i,'=',x[i]:7:3);
close(f2);
end.
2. Программа решения системы линейных уравнений методом
Зейделя
Program Zeidel;
Label 1,2;
Const n=3; eps=1e-5;
Var a:array[1..n,1..n+1] of real;
x,x1:array[1..n+1] of real;
s:real;
i,j:integer;
f1,f2:text;
Begin

Страницы