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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Ввод матрицы наиболее эффективно реализовать из файла дан-
ных. Для этого потребуется файловый тип и файловая переменная
var f:text;
В основной части программы ввод можно организовать следую-
щим образом:
Write('Введите число уравнений N = '); readln(n);
assign(f,'alex.dat'); {имя файла данных на диске}
reset(f);
for i:=1 to n do
begin
for j:=1 to n+1 do read(f,a[i,j]);
readln(f);
end;
close(f);
Прямой ход метода Гаусса (формирование треугольной матрицы
коэффициентов) может выглядеть так:
for k:=1 to n do
begin
s:=a[k,k];j:=k;
for i:=k+1 to n do
begin
r:=a[i,k];
if abs(r)>abs(s) then
begin
s:=r; j:=i;
end;
end;
if s=0 then
begin
writeln('Переставьте уравнения чтобы на
главной диагонали не было нулевых коэффици-
ентов !');
halt;
end;
if j<>k then
for i:=k to n+1 do
begin
r:=a[k,i]; a[k,i]:=a[j,i];a[j,i]:=r;
end;
for j:=k to n+1 do a[k,j]:=a[k,j]/s;
for i:=k+1 to n do
begin
66

Страницы