2 / 2 / 0
Регистрация: 09.12.2010
Сообщений: 50
1

Решения СЛАУ методом простой итерации

02.04.2011, 08:26. Показов 5494. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Код решения СЛАУ методом простой итерации.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Program Metod_Prostoy_Iteracii ;
Uses crt;
const n=3; e=0.001;
Type matrix= array [1..n,1..n] of real;
Var A:matrix;
i,j,k:integer;
x1,x2,x3:real;
b1,b2,b3:real;
begin
a[1,1]:=2.74; a[1,2]:=-1.18; a[1,3]:=3.17; b1:=2.18;
a[2,1]:=0.18; a[2,2]:=1.27; a[2,3]:=0.76; b2:=3.23;
a[3,1]:=1.12; a[3,2]:=0.83; a[3,3]:=-2.16; b3:=-1.15;
Writeln('исходная матрица');
For i:=1 to n do
begin
For j:=1 to n do
Write(A[i,j]:6:1);
Writeln;
end;
Writeln('b1=' ,b1:3:1,' b2=' ,b2:3:1,' b3=' ,b3:3:1,' ' );
x1:=0; x2:=0; x3:=0;
For k:=1 to 100 do
begin
x1:=(b1-a[1,2]*x2-a[1,3]*x3)/a[1,1];
x2:=(b2-a[2,1]*x1-a[2,3]*x3)/a[2,2];
x3:=(b3-a[3,1]*x1-a[3,2]*x2)/a[3,3];
if abs(x1-x1)<=e Then
if abs(x2-x2)<=e Then
if abs(x3-x3)<=e Then
end;
Writeln('x1=' ,x1:3:6,' x2=' ,x2:3:6,' x3=' ,x3:3:6 );
End.
корни: х1=0,09. х2=1,77. х3=1,26. Решив он-лайн систему, получаются корни 3,1,1.Что же я сделал ни так?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2011, 08:26
Ответы с готовыми решениями:

Решение СЛАУ методом простой итерации или методом Зейделя
Решение СЛАУ методом простоой интерпритации или методом Зейделя. Напишете пожалуйста пример решения

Слау методом простых итерации. Не решаемое??
Здравствуйте все! Есть задание: Решить систему линейных алгебраических уравнений методом...

Решить нелинейное уравнение методом простой итерации
Помогите, пожалуйста, решить уравнение и записать его код в паскале. Очень нужно x^3+cos(8*x)=0 ...

Решение систем линейных уравнений методом простой итерации
Решить систему линейных уравнений методом простой итерации

1
0 / 0 / 0
Регистрация: 05.05.2010
Сообщений: 13
22.05.2012, 20:02 2
Ну если в коде сравнивать 3 раза что 0 меньше 0,001 и заканчивать все end'ом то точно что то не то )
0
22.05.2012, 20:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2012, 20:02
Помогаю со студенческими работами здесь

Решение системы линейных уравнений методом простой итерации
Привести систему к виду, подходящему для метода простой итерации. Рассчитать аналитически...

Составить программу для решения методом Крамера СЛАУ 2×2 с произвольными целыми коэффициентами.
Составить программу для решения методом Крамера СЛАУ 2×2 с произвольными целыми...

Составить программу, для решения СЛАУ методом левой прогонки для 3-диагональной системы
Помогите пожалуйста составить программу,для решения СЛАУ методом левой прогонки для 3-диагональной...

Нахождение корня методом простой итерации
Доброе время суток всем. Помогите разобраться пожалуйста! Мне нужно получить значение переменной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru