Помогите пожалуйста с задачей!!!

[Aleo13]

Помогите плиз с задачей:
Рассчитать y= корень(x) с точностью "Е", используя соотношение Y(i+1)=0,5(Y(i)+X/Y(i)); E=0,001; X=8,6; Y=2,8
Заранее благодарен

[_Dmitry]

Было, сегодня
http://www.programmersforum.ru/showp...47&postcount=7

[Aleo13]

Она не работает, пишет "Error 116: Must be in 8087 mode to compile this"

[eoln]

Добавьте в самое начало программы строчку {$N+} - это директива компилятора (так же можно изменить в пункте Options - Compile - поставить галочку рядом с 8087)

[Aleo13]

{$N+}
function Radical(x,eps: double): double;
var
  y0,y: double;
begin
  y:=2.8; 
  repeat
    y0:=y;
    y:=(y0+x/y0)/2;
  until abs(y-y0) <= eps;
  Radical:=y;
end;

Программа не работает. Тут надо что-то дописать что-бы оно его как-то вывело???

[puporev]

Это не программа, а только функция, которую нужно вызвать в программе.
Программа пишется так:

Uses Crt; //если используете этот модуль для очистки экрана
//Поскольку у Вас все значения заданы, раздел переменных Var не нужен.
Uses crt; //если используете этот модуль для очистки экрана
{$N+}
function Radical(x,eps: double): double;
var
  y0,y: double;
begin
  y:=2.8; 
  repeat
    y0:=y;
    y:=(y0+x/y0)/2;
  until abs(y-y0) <= eps;
Radical:=y;
end;
begin //начало программы
clrscr; //очищаем экран
write('y=',Radical(8.6,0.001):0:4);//выводим результат
readln  //читаем и выходим из программы
end.

Если работу с функциями еще не проходили, то можно и без нее, даже короче.

uses crt;
{$N+}
var x,y,y0,eps:double;
begin
clrscr;
x:=8.6;
eps:=0.001;
y:=2.8;
repeat
  y0:=y;
  y:=(y0+x/y0)/2;
until abs(y-y0)<=eps;
write('y=',y:0:4);
readln
end.

[_Dmitry]

Одно уточнение: нельзя глобальную директиву компилятора разместить в теле программы, поэтому директива {$N+} должна быть в самой первой строке.

{$N+}
uses crt;
............

[puporev]

Извините, ошибся, никогда ими не пользуюсь, все настроено для работы без директив.