Invalid floating operation

[DjoNik135]

Помогите исправить ошибку при вычислении.Ввожу данные A=-1 и B=0 и точность=0,0001,нажимаю пуск и ошибка Invalid floating operation.Уже менял значения real на double и т.д. не помогает. В задаче Метод Хорд.

[evg_m]

Ввожу данные A=-1 и B=0 и точность=0,0001

А вы попробуйте при вводе выделять дробную часть не запятой, а точкой (или наборот). можно еще такую замену (точка/запятая) делать в программе, но оно вам надо?

[DjoNik135]

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

А вы попробуйте при вводе выделять дробную часть не запятой, а точкой (или наборот). можно еще такую замену (точка/запятая) делать в программе, но оно вам надо?

И точкой выделил и запятой,без разницы попрежнему та же ошибка,думал может в самой программе переменная X не описанна,проверил вроде всё в порядке,3ий день не могу понять в чем проблема,да же если ввести не эти значения,результат такой же-ошибка.

[_SERGEYX_]

Ну, не знаю... Была ошибка Invalid floating operation. Но после того, как я перекомпилировал программу у себя она исчезла.

данные
A=-1 и B=0 и точность=0,0001
Результат получился
-0,999999596138927

[DjoNik135]

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

Ну, не знаю... Была ошибка Invalid floating operation. Но после того, как я перекомпилировал программу у себя она исчезла.

данные
A=-1 и B=0 и точность=0,0001
Результат получился
-0,999999596138927

Да так и должно получиться,так а мне что сделать что бы заработала?Делфи только учусь,так что могу кое что не понимать или незнать.

[evg_m]

Вы уверены что ввели ВСЕ числа. У меня ваш код сработал.
если все заполнить, и нет если не все. (Delphi7).

[DjoNik135]

[IMG][/IMG]
[IMG][/IMG]

Вот ввёл все данные.

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

Вы уверены что ввели ВСЕ числа. У меня ваш код сработал.
если все заполнить, и нет если не все. (Delphi7).

А не может быть такого что у меня эта ошибка вылазит из за того что ОС Widnows 7 на компе стоит?

[evg_m]

Была ошибка Invalid floating operation. Но после того, как я перекомпилировал программу у себя она исчезла.

я это сделал сразу.
попробуй удалить файлы dcu и exe из папки с проектом. и скомпилируй заново.

А не может быть такого что у меня эта ошибка вылазит из за того что ОС Widnows 7 на компе стоит?

чуть попозже попробую.

[DjoNik135]

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

я это сделал сразу.
попробуй удалить файлы dcu и exe из папки с проектом. и скомпилируй заново.



чуть попозже попробую.

Файлы удалил,скомпилировал и опять та же ошибка. Показывает что возможна ошибка в строке y:=10*x*x*x+x*x+10*x+1, но в ней все переменные описанны

[LiuLiuJons]

Хм.. У меня тоже всё идёт.
Единственное за что цепляется взгляд - вот тут:

label
nazad;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
t:=strtofloat(edit3.Text);
f:=10*a*a*a+a*a+10*a+1;
y:=10*x*x*x+x*x+10*x+1;

Вы считаете y с использование x, а этот самый x считается строчкой ниже:

nazad:  x:=a-((b-a)*y)/(f-y);

Попробуйте задавать x до того, как его используете в вычислениях.

Компиляторы всё-таки разные, по идее большинство последовательно строки читают, или я ошибаюсь?