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

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

16.12.2013, 18:47. Показов 14522. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Решение СЛАУ методом простоой интерпритации или методом Зейделя.
Напишете пожалуйста пример решения
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2013, 18:47
Ответы с готовыми решениями:

Решения СЛАУ методом простой итерации
Код решения СЛАУ методом простой итерации. Program Metod_Prostoy_Iteracii ; Uses crt; const...

Решение СЛАУ методом Зейделя
Доброго времени суток! Помогите пожалуйста написать программу решения систем линейных уравнений...

Решение СЛАУ с n количеством элементов методом Зейделя
Помогите написать программу в turbo pascale по решению СЛАУ с n количеством элементов методом...

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

3
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 21
23.10.2014, 21:26 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
var
  b,x:array [1..4] of real;
  a:array [1..4,1..4] of real;
  i,j,n:integer;
  E,R,S,d,W:real;
 Label 1;
Begin
 a[1,1]:=8.5;
 a[1,2]:=-1.6;
 a[1,3]:=1.9;
 a[1,4]:=1.5;
 a[2,1]:=3.7;
 a[2,2]:=8.9;
 a[2,3]:=1.7;
 a[2,4]:=2.7;
 a[3,1]:=2.2;
 a[3,2]:=2.1;
 a[3,3]:=-9.5;
 a[3,4]:=4.3;
 a[4,1]:=2.5;
 a[4,2]:=2.2;
 a[4,3]:=2.6;
 a[4,4]:=9.8;
 b[1]:=25.07;
 b[2]:=71.05;
 b[3]:=12.97;
 b[4]:=48.26;
 n:=4;
 E:=1E-4;
 1:
 R:=0;
 for i:=1 to n do begin
                   s:=0;
                   for j:=1 to n do
                        if i<>j then S:=S+a[i,j]*x[j];
                   W:=(b[i]-S)/a[i,i];
                   d:=abs(W-x[i]);
                   if R<d then begin R:=d;
                                     x[i]:=W;
                               end
                          else x[i]:=W;
                   end;
 if R>E then goto 1;
 for i:=1 to n do
  writeln('x=', x[i]);
  readln;
End.
0
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
24.10.2014, 10:33 3
Mishe, чем копировать сюда свой код, к тому же не заключив его в соответствующие теги оформления - лучше бы дал ссылку на свою тему!

Решение СЛАУ методом Зейделя
0
0 / 0 / 0
Регистрация: 20.11.2013
Сообщений: 99
25.10.2014, 17:45 4
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
Program Zeudel;
uses crt;
  Var   k:integer;
        e,x1,x2,f1,f2,x11,x21,x01,x02:real;
Begin
clrscr;
Write('Input  x01=');
Readln(x01);
Write('Input  x02=');
Readln(x02);
Write('Input   e= ');
Readln(e);
  k:=0;
  x1:=x01;
  x2:=x02;
  Repeat
       x11:=(8-4*x2)/x1;
       X21:=-3*exp(x1);
       F1:=(x11*x11-4*x21-8);
       F2:=3*exp(x11)+x21;
    k:=k+1;
    x1:=x11;
    x2:=x21;
  Until (abs(f1)<=e) and (abs(f2)<=e);
  writeln('X1 = ',x1:0:5);
  writeln('X2 = ',x2:0:5);
  writeln('Iteraciu k = ',k);
readln;
End.
0
25.10.2014, 17:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.10.2014, 17:45
Помогаю со студенческими работами здесь

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

Решение СЛАУ методом Зейделя
const n=4; eps=0.0001; type matrix=array of real; mas=array of real; var a:matrix; ...

Решение СЛАУ методом Зейделя
Метод Зейделя 13х1 + х2 + 0,4х3 + 0,6х4 + 0,11х5 = 7,6 3х1 + 11х2 – 0,6х3 + 1,3х5 = 8,7 х1 –...

Составить программу решения СЛАУ методом Зейделя
пмогите,пожалуйста,написать программку на паскале для системы уравнений методом ЗЕЙДЕЛЯ......


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

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

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