Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/33: Рейтинг темы: голосов - 33, средняя оценка - 4.55
botkin
0 / 0 / 0
Регистрация: 07.02.2011
Сообщений: 2
1

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

10.02.2011, 20:39. Просмотров 5959. Ответов 1
Метки нет (Все метки)

Привести систему к виду, подходящему для метода простой итерации. Рассчитать аналитически количество итераций для решения системы линейных уравнений методом простой итерации с точностью до 0.0001 для каждой переменной. Написать программу решения системы линейных уравнений методом простой итерации с точностью до 0.0001 для каждой переменной. Вывести количество итераций, понадобившееся для достижения заданной точности, и приближенное решение системы

Ни как не могу разобраться как правильно назначить переменные, если разделить на две части (1- решение системы 2 - вывести кол-во итерации) программу то все работает, а собрать не могу
Pascal
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
program LAB_2;
uses
  crt;
const
  N=2;
  E=0.0001;
type
  Tmas=array[1..4,1..4] of real;
  Tresult=array[1..4] of real;
var
  Mas,C:tmas;
  B:Tresult;
  i,j,:integer;
  k,S,Sx,Bmax,Cmax,R:real;
begin
Mas[1,1]:=0.95+0.1*N;
Mas[1,2]:=0.26+0.1*N;
mas[1,3]:=-0.17+0.1*N;
Mas[1,4]:=0.27+0.1*N;
Mas[2,1]:=-0.15+0.1*N;
Mas[2,2]:=1.26+0.1*N;
Mas[2,3]:=0.36+0.1*N;
Mas[2,4]:=0.42+0.1*N;
Mas[3,1]:=0.26+0.1*N;
Mas[3,2]:=-0.54+0.1*N;
Mas[3,3]:=-1.76+0.1*N;
Mas[3,4]:=0.31+0.1*N;
Mas[4,1]:=-0.44+0.1*N;
Mas[4,2]:=0.29+0.1*N;
Mas[4,3]:=-0.78+0.1*N;
Mas[4,4]:=-1.78+0.1*N;
k[1]:=2.48;
k[2]:=-3.16;
k[3]:=1.52;
k[4]:=-1.29;
 
 for i:=1 to 4 do
begin
  for j:=1 to 4 do
  begin
    C[i,j]:=Mas[i,j]/Mas[i,i];
  end;
end;
 for i:=1 to 4 do
  C[i,i]:=0;
for i:=1 to 4 do
begin
  for j:=1 to 4 do
    write(Mas[i,j]:7:2);
  writeln;
end;
writeln;
 for i:=1 to 4 do
begin
  for j:=1 to 4 do
    write(C[i,j]:7:2);
  writeln;
end;
 S:=0;
Cmax:=0;
for i:=1 to 4 do
begin
  for j:=1 to 4 do
  begin
    S:=S+abs(C[i,j]);
  end;
  Sx:=S;
  S:=0;
  if Sx>CMax then CMax:=Sx;
end;
writeln;
S:=0;
for i:=1 to 4 do
  if Bmax<B[i] then Bmax:=B[i];
writeln;
Writeln('C=',Cmax:7:2);
writeln;
writeln('B=',Bmax:7:2);
if Cmax<1 then writeln('Сходится')
  else writeln('Расходится');
readln;
end;
 
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if i=j then continue;        {Выражаем x1,x2,x3:из системы}
mas[i,j]:=-mas[i,j]/mas[i,i];
end;
k[i]:=k[i]/mas[i,i];
mas[i,i]:=0;
end;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(mas[i,j]:4:2,'  ');
writeln(k[i]:4:2);
end;
for i:=1 to n do
x[i]:=0;
write('tochnost=');     {Вводим точность}
readln(eps);
repeat
for i:=1 to 4 do
begin
for j:=1 to 4 do
Tresult [i]:= Tresult [i]+mas[i,j]*x[j];        {алгоритм решения}
Tresult [i]:= Tresult [i]+k[i];
end;
 
for i:=1 to n do
if abs(Tresult[i]-x[i])<eps then pr:=true;
 
for i:=1 to n do
begin
x[i]:= Tresult[i];
Tresult[i]:=0;
end;
until pr;
for i:=1 to n do
writeln(x[i]:4:3);      {Вывод результата}
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2011, 20:39
Ответы с готовыми решениями:

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

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

Решение системы линейных уравнений методом Гауса
даны 2 текстовых файла 22,3 -1 0 2 3 24,3 4 1 2...

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

Решение системы линейных уравнений методом Крамера
Программа практически написана , но выдает ошибку - несоответствие типов.......

1
botkin
0 / 0 / 0
Регистрация: 07.02.2011
Сообщений: 2
23.02.2011, 10:10 2
тема закрыта
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2011, 10:10

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

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

Метод простой итерации, решение системы.
Люди добры, есть две системы, записанные в матричном виде. Нужно решить методом...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru