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

Tamposhka

Народ, помогите плиз, необходимо решить систему нелинейных уравнений методом простых итераций: (x-3)^2+(y+4)^2=9 -13x+4y=12 Вот то что у меня получилось:
Uses crt;
Var x,y,xn,yn,d,e,f,g,h,i:real;
BEGIN
 Writeln('Введите начальное значение х');
 Readln(x);
 Writeln('Введите начальное значение y');
 Readln(y);
 Writeln('Введите точность определения корня');
 Readln(e);
 xn:=x; yn:=y;
 d:=x/3; f:=(4+y)/5;
 g:=13/4; h:=0;
     If ((d+f)<1) and ((g+h)<1) then
     writeln('Требование сходимости итерационного процесса выполняется')
     else writeln('Требование сходимости итерационного процесса не выполняется ');
 Readln;
 Repeat
   BEGIN
     x:=xn; y:=yn;
     xn:=(x*x+y*y+8*y+16)/6; yn:=(13*x+12)/4;
                     i:=i+1;
   END;
 until (ABS(xn-x)<=e) and (ABS(yn-y)<=e);
If ((d+f)<1) and ((g+h)<1) then
 writeln(' Мы получили ответ  x=',xn:0:2,'  y=',yn:0:2,
 ' на ',i:0:0,'шаге итерации.') else writeln('нет решений') ;
 Readln;
END.
Одна ошибка в том что у меня почему-то не выполняется условие сходимости, но это не основная проблема. А вторая проблема в вещественном переполнении, хз как исправить. Помогите плиз. Переполнение в строке:
xn:=(x*x+y*y+8*y+16)/6; yn:=(13*x+12)/4;
1 ответ

Tamposhka

Тип ****** Про Real вообще забудь