Лабораторная №5. Задание №1

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"
Лабораторная работа №5. Вариант №3. Задание №1.
Выполнил: ст.гр. МЛ-112, Фомин Александр
г.Новосибирск, 2012г.
}

Program Lab5_3; uses crt;

const eps=1.0e-5; {Точность 0,00001}

var x1,x0:real;
    count:integer;

Function F(x:real):real;
Begin
F:=x-(Sqr(X)*X+Sqr(X)+X+1)/(3*Sqr(X)+2*X+1) {Функция}
end;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
Write(' Введите приближённое значение корня: '); Readln(X1);
Write('--------------------------------------------------------------------------------');
Count:=0; {Начальное значение кол-ва итераций}

Repeat
Inc(Count);
X0:=X1;
X1:=F(X0);
Writeln(' X0= ',X0:8:5,'  X1= ',X1:8:5);
Until (Abs(X1-X0) <= Eps) or (Count=1500); {Проверяем точность}

Write('--------------------------------------------------------------------------------');
Writeln(' Найти корень уравнения методом простых итераций');
Writeln(' Уравнение: X^3+X^2+X+1=0');
Writeln(' На промежутке: [-2; 1]');
Writeln(' Точность: ', Eps:6:5);
Writeln(' Точное значение корня: -1.00000');
Writeln(' Вычисленное значение корня:', X1:8:5);
Writeln(' Число итераций: ', Count);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.