Lab3_Delphi

Program Lab3;
Uses
  System.SysUtils;

Var
    X,Y,Y0,EPS : Real;
    It : Integer;
    IsCorrect : Boolean;
Begin
    Writeln( 'Эта программа вычислит значение кубического корня с точностью EPS с использованием итерационной формулы Ньютона' );
    Writeln( 'Введите X и EPS' );
    Repeat
        IsCorrect := true;
        Try
            Readln( X, EPS );
            If ( EPS < 0 ) Or ( EPS > 1 ) Then
            Begin
                Writeln( 'Введите допустимую погрешность(от 0 до 1)' );
                IsCorrect := False;
            End;
            If ( X > 10000000 ) Or ( X < -10000000 ) Then
            Begin
                Writeln( 'Введите допустимое значение X(от -10000000 до 10000000)' );
                IsCorrect := False;
            End;
        Except
            Writeln( 'Данные введены неверно, повторите ввод' );
            IsCorrect := False;
        End;
    Until ( IsCorrect );
        Y := 1;
        It := 0;
        Y0 := 0;
        While( abs(Y - Y0) > EPS ) Do
        Begin
            Y0 := Y;
            Y := (2 * Y0 + X / Y0 / Y0) / 3;
            Inc(It);
        End;
        Writeln( 'Значение кубического корня : ', Y );
        Write( 'Количество итераций : ', It );
        Readln;
End.