Для системы линейных уравнений найти решение методом Гаусса

@tanyhaftv · Регистрация: 09.03.2010

Студворк — интернет-сервис помощи студентам

Для системы линейных уравнений найти решение методом Гаусса (разработать алгоритм-прога на паскале) (учитыыая условия сходимости).
матрица коэффициентов: 3.1 1.5 1 0
1.5 2.5 0.5
1.0 0.5 4.2
столбец свободных членов:10.83
9.20
17.10

@Puporev · 10.12.2010, 09:06

Вашу систему можно решить так.
https://www.cyberforum.ru/pasc... 68325.html

@tanyhaftv · 23.12.2010, 08:15 **[ТС]**

а как модифицировать программу :метод гаусса с выбором главного элемента

Pascal

program gauss;
var a1,b1,c1,d1,
    a2,b2,c2,d2,
    a3,b3,c3,d3,
    x1,x2,x3:real;
begin
{приведение матрицы к треугольному виду}
a1:=3.1;b1:=1.5;c1:=1.0;d1:=10.83;
a2:=1.5;b2:=2.5;c2:=0.5;d2:=9.20;
a3:=1.0;b3:=0.5;c3:=4.2;d3:=17.10;
{обнуляем коэффициенты при х1 во 2 и 3 уравнениях}
b2:=b1+b2*(-a1/a2); c2:=c1+c2*(-a1/a2); d2:=d1+d2*(-a1/a2);
b3:=b1+b3*(-a1/a3); c3:=c1+c3*(-a1/a3); d3:=d1+d3*(-a1/a3);
{обнуляем коэффциет при х2 в третьем уравнении}
c3:=c3+c2*(-b3/b2); d3:=d3+d2*(-b3/b2);
{ищем корни, начиная с последнего}
x3:=d3/c3;
x2:=(d2-c2*x3)/b2;
x1:=(d1-b1*x2-c1*x3)/a1;
writeln('tochnoe reshenie');
write('x1=',x1:0:2,'  x2=',x2:0:2,'  x3=',x3:0:2);
readln;
end.

@tanyhaftv 83 / 3 / 4 Регистрация: 09.03.2010 Сообщений: 195
		1
	Для системы линейных уравнений найти решение методом Гаусса 10.12.2010, 08:50. Показов 2102. Ответов 2 Метки нет (Все метки) Для системы линейных уравнений найти решение методом Гаусса (разработать алгоритм-прога на паскале) (учитыыая условия сходимости). матрица коэффициентов: 3.1 1.5 1 0 1.5 2.5 0.5 1.0 0.5 4.2 столбец свободных членов:10.83 9.20 17.10 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	10.12.2010, 09:06	2
	Вашу систему можно решить так. https://www.cyberforum.ru/pasc... 68325.html 1

	23.12.2010, 08:15

Опции темы

Для системы линейных уравнений найти решение методом Гаусса

Решение