'Invalid floating point operation'. process stopped. Use Step or Run to continue.

[manick]

Project calcul.exe raised exception class EInvalidOp with massege
'Invalid floating point operation'. process stopped. Use Step or Run to continue.

обьясните пожалуста....

[eoln]

ответы на все вопросы

Проект calcul.exe поднял EInvalidOp исключением класса massege
'Неверный операции с плавающей точкой. процесс остановился. Использование Шаг или Запустить, чтобы продолжить.

Смотрим где в коде с вещественными числами намудрили

[manick]

Сообщение от eoln

ответы на все вопросы

Смотрим где в коде с вещественными числами намудрили

я пытаюсь посчитать арктангенс по ряду тейлора

function arctanT (x:real):real;
var
n:LonGint;
s,z,v:real;
begin
for n:=0 to 1432 do
begin
if odd(n) then s:=s-st(x,n*2+1)/(n*2+1)
else           s:=s+st(x,n*2+1)/(n*2+1);
end;

Result:=s;
end;

считает например когда Х= 0.3 0.5 0.6 0.7
для 0.1 0.2 0.4 0.8 0.9 не хочет

а нужно что бы считало от -1 до 1

[bitSoft]

Таблица 3.2. Вещественные типы данныхТип Диапазон возможных значений Значащих цифр максимально Размер в байтах
Real48 2.9 * 10-39 .. 1.7 * 1038 11-12 6
Real 5.0 * 10-324 .. 1.7 * 10308 15-16 8
Single 1.5 * 10-45 .. 3.4 * 1038 7-8 4
Double 5.0 * 10-324 .. 1.7 * 10308 15-16 8
Extended 3.6 * 10-4951 .. 1.1 * 104932 19-20 10
Comp -263+1 .. 263-1 19-20 8
Currency -922337203685477.5808 .. 922337203685477.5807 19-20 8

Postavi vmesto Real, postavi Currency

[eoln]

Какие доказательства что ошибка здесь? Что за функция st?

[manick]

Сообщение от eoln

Какие доказательства что ошибка здесь? Что за функция st?

function st(x:real;n:longint):real;
var
D:real; i:longint;
begin
if n=0 then
begin
D:=1;
end
else
begin
D:=1;
for i:=1 to n do
begin
D:=D*x;
end;
end;
Result:=D;
end;

доказательств нет.

[manick]

В Build еще пишет
Variable 's' might not have been initialized

[eoln]

От -1 до 1 считает нормально. При других значениях резко возростает и происходит переполнение. Значит ошибка при передаче, функция arctanT получает какие-то другие значения не из интервала [-1, 1]

На счёт Variable 's' might not have been initialized - это неинициализированная переменная. Перед циклом поставить s:=0;

[manick]

Сообщение от eoln

От -1 до 1 считает нормально. При других значениях резко возростает и происходит переполнение. Значит ошибка при передаче, функция arctanT получает какие-то другие значения не из интервала [-1, 1]

На счёт Variable 's' might not have been initialized - это неинициализированная переменная. Перед циклом поставить s:=0;

а как ты сделал?
есть еще такое действие

x:=StrToFloat(form1.Edit1.Text);
y:=arctanT(x)*180/pi;
Form1.Edit1.Text:=FloatToStr(y);

может изза этого

[eoln]

С помощью пошаговой отладки (клавиша F8) пройдись и узнаешь где и когда вылетает программа.
Возможно в Edit1 вовсе не число. Какой разделитель между целой и дробной частью? Возможно вместо запятой точка или наоборот. 0,5 и 0.5 - это разные вещи.