Курс лекций по основам алгоритмизации и программирования задач машиностроения. Кравченко Д.В. - 55 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

53
.E|xx|
;E|xx|
;E|xx|
)1к(
n
)к(
n
)1к(
2
)к(
2
)1к(
1
)к(
1
≤−
≤−
≤−
−
−
−
KKKKKKK
Метод
Зейделя
является
одним
из
широко
применяемых
и
легко
програм
-
мируемых
в
группе
итерационных
методов
.
Осуществим
практическую
реализацию
метода
Зейделя
по
постановке
за
-
дачи
(
см
.
пример
9).
Разработаем
блок
-
схему
алгоритма
(
рис
. 3.4)
и
программу
SLU_ZEIDEL
на
языке
TURBO PASCAL
для
решения
системы
:
=+⋅
=+⋅−
950,79
хх
466,0
50
хх
364,0
21
21
,
которая
была
получена
в
результате
ранее
выполненных
преобразований
(
см
.
п
.
3.2,
пример
9),
где
х
1
соответствует
координате
х
м
,
а
х
2
координате
у
м
положе
-
ния
точки
М
(
см
.
рис
. 3.2).
ПРОГРАММА
SLU_ZEIDEL
(
постановка
задачи
см
.
пример
9,
алгоритм
см
.
рис
. 3.4)
Program SLU_ZEIDEL;
Uses crt;
Label 1;
Var i, j: Byte;
D, E, E1, E2, C1, C2, x1, x2, xm, ym, Del1,Del2: Real;
A,B Array[1..5] Of Real;
Begin
Clrscr;
1: Writeln (’
Введите
матрицу
А
совокупности
элементов
а
ij
’);
For i:=1 To 2 Do Begin
For j:=1 To 2 Do Begin
Read (’ ’,a[i,j],’ ’); {a
11
= -0,364, a
12
= 1, a
21
= 0,466, a
22
= 1}
End; End;
Writeln (’
Введите
вектор
-
столбец
В
совокупности
коэффициентов
b
i
. ’);
For i:=1 To 2 Do Begin
Read (’ ’,b[i,],’ ’); {b
1
= 50, b
2
= 79,950}
End;
D:=(a[1,1]*a[2,2])*-(a[2,1]*a[1,2]);
If D=0 Then Begin
Write (’
Система
не
имеет
решения
или
имеет
’);
Writeln (’
бесчисленное
множество
решений
.’);

Страницы