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

UptoLike

ВУЗ: 

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

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

Рубрика: 

55
End;
If D<>0 Then Begin
Writeln (’
Система
имеет
единственное
решение
.’);
Write (’
Задайте
точность
расчета
Е
:’);
Readln (E); {E=0,001}
Write(’
Введите
начальное
приближение
х
10:’);
Readln(C1); {x10
≈
xm=36 (
см
.
рис
. 3.2)}
Write (’
Введите
начальное
приближение
х
20:’);
Readln (C2); {x20
≈
ym=63 (
см
.
рис
. 3.2)}
Repeat
x1:=(1/a[1,1])*(b[1]-a[1,2]*C2);
x1:=(1/a[2,2])*(b[2]-a[2,1]*x1);
Del1:=Abs(x1-C1);
Del2:=Abs(x2-C1);
C1:=x1;
C2:=x2;
Until (Del1<=E) And (Del2<=E);
xm:=x1;
ym:=x2;
Write (’
Координаты
точки
М
:’);
Writeln (’
хм
= ’,xm:5:3,’,
ум
= ’,ym:5:3’.’);
Write(’
Погрешность
расчета
:’);
E1:=Abs((a[1,1]*xm+b[1])-ym);
E2:=Abs((a[2,1]*xm+b[2])-ym);
Writeln(’E1 = ’,E1:6:5,’, E2 = ’,E2:6:5,’.’);
End Else Begin
Writeln (’
Требуется
коррекция
коэффициентов
.’);
Goto 1; End;
Readkey;
End.

Страницы