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

UptoLike

ВУЗ: 

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

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

Рубрика: 

44
a1, a2, bb, D, D1, D2, x1, x2, xm, уm, Е1, Е2: Real;
A, B : Array[1..5] of Real;
Begin
Clrscr;
1:Writeln(’Введите матрицу А совокупности коэффициентов a
ij
’);
For i:=1 To 2 Do Begin
For i:=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;
a
1
:=a[1,1]/a[2,1];
a
2
:=a[1,2]/a[2,2];
bb:=b[1]/b[2];
If (a
1
=a
2
) And (a
1
<> bb) And (a
2
<>bb) Then
Begin Writeln(’Система не имеет решения.’);
End;
If (a
1
=a
2
) And (a
1
=bb) And (a
2
=bb) Then Begin
Writeln(’Система имеет бесчисленное множество решений .’);
End;
If (a
1
<>a
2
) Then Begin Writeln(’Система имеет единственное решение.’);
D:=a[1,1]*a[2,2]-a[2,1]*a[1,2];
D1:=b[1]*a[2,2]-b[2]*a[1,2];
D2:=a[1,1]*b[2]-a[2,1]*b[1];
x1:=D1/D;
x2:=D2/D;
xm:=x1;
ym:=x2;
Writeln(’Координаты точки М: ’);
Writeln(’xм =’,xm:5:3,’, yм =’,ym:5:3,’.’);
Writeln(’Погрешность расчета:’);
E1:=Abs((a[1,1]*x1+a[1,2]*x2)-b[1]);
E2:=Аbs((a[2,1]*x1+a[2,2]*x2)-b[2]);
Writeln(’E1 = ’,E1:6:5,’, E2 = ’,E2:6:5,’.’);
End Else Begin
Writeln(’Требуется коррекция значений коэффициентов.’);
Goto 1; End;
Readkey;
End.

Страницы