Найти решение треугольной системы линейных уравнений

@ReviZing · Регистрация: 25.03.2019

По заданным коэффициентам а11, а12,.., а1n,..., a 22,..., Ann, (aii<>0) и правым частям b1, b2,..., bn найдите решение треугольной системы уравнений:
a11*x1+a12*x2+... +a1n*xn=b1,
a22*x2+... +a2n*xn=b2,
....,
ann*xn=bn.
P. S. Никак не могу подобрать циклы, чтобы считал правильно.

@Puporev · 25.03.2019, 18:48

Это обратный ход Гаусса.
Алгоритм, оформление программы за Вами.

Pascal

var a:array[1..10,1..10] of real;
    b,x:array [1..10] of real;
    n,i,j,k:byte;
    s:real;
begin
randomize;
repeat
write('Введите количество уравнений от 2 до 10 n=');
readln(n);
until n in [2..10];
for i:=1 to n do
 begin
  for j:=1 to n do
  if j>=i then a[i,j]:=5*random;
  b[i]:=30*random;
 end;
write('Коэффициенты');
writeln('Свободные члены':5*n);
for i:=1 to n do
 begin
  for j:=1 to n do
  if j<i then write(' ':5)
  else write(a[i,j]:5:2);
  writeln(b[i]:9:2);
 end;
//вычисление корней
for k:=n downto 1 do
 begin
  s:=0;
  for j:=k+1 to n do
  s:=s+a[k,j]*x[j];
  x[k]:=(b[k]-s)/a[k,k];
 end;
writeln('Корни системы:');
for i:=1 to n do
writeln('x[',i,']=',x[i]:0:2);
end.

@ReviZing 0 / 0 / 0 Регистрация: 25.03.2019 Сообщений: 2
		1
	Найти решение треугольной системы линейных уравнений 25.03.2019, 16:34. Просмотров 1466. Ответов 1 Метки нет (Все метки) По заданным коэффициентам а11, а12,.., а1n,..., a 22,..., Ann, (aii<>0) и правым частям b1, b2,..., bn найдите решение треугольной системы уравнений: a11x1+a12x2+... +a1nxn=b1, a22x2+... +a2nxn=b2, ...., annxn=bn. P. S. Никак не могу подобрать циклы, чтобы считал правильно. 0

Опции темы

Найти решение треугольной системы линейных уравнений

Решение