Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Извлечь квадратный корень

Автор: asdnmg7sdkw 30.10.2007, 11:05

При извлечении квадратного корня вылетает ошибка "invalid floating point operation".

Код


var
  x2,x1,y2,y1,aa,bb : integer;
begin
  x2 := 144299;
  x1 := 85708;
  y2 := 118994;
  y1 := 147703;
  bb := SQR(x2 - x1) + SQR(y2 - y1);
  aa := round(int(SQRT(bb)));

Помогите избежать этой ошибки.

Автор: hihi 30.10.2007, 11:09

y1 больше чем y2 smile

Автор: Alexeis 30.10.2007, 11:14

hihi, а сколько будет (-1) * (-1) ?

Автор: Rennigth 30.10.2007, 11:14

asdnmg7sdkw, нельзя корень из отрицательного вычислять, сохраняй знак.

Автор: Alexeis 30.10.2007, 11:17

Цитата(Rennigth @ 30.10.2007, 11:14

)

нельзя корень из отрицательного вычислять, сохраняй знак.

А откуда ему взяться?

Автор: Rennigth 30.10.2007, 11:20

Цитата(Alexeis @ 30.10.2007, 11:17

)

А откуда ему взяться?

Я просто под отладкой посмотрел, получается отрицательным, сейчас внимательней пример посмотрел, походу переполняется Integer.

Добавлено через 2 минуты и 46 секунд
или не... чем голова с утра тупит, но bb отрицательное smile

Автор: Alexeis 30.10.2007, 11:30

Цитата(Rennigth @ 30.10.2007, 11:20

)

походу переполняется Integer.

Точно! Числа больше 32000 нельзя в квадрат возводить..

Автор: Rennigth 30.10.2007, 11:33

Вот:

Код


var
  x2, x1, y2, y1, aa, bb : Extended;
begin
  x2 := 144299;
  x1 := 85708;
  y2 := 118994;
  y1 := 147703;
  bb := SQR(x2 - x1) + SQR(y2 - y1);
  aa := Round(Sqrt(bb));
end;

Добавлено через 2 минуты и 53 секунды

Цитата(Alexeis @ 30.10.2007, 11:30

)

Числа больше 32000 нельзя в квадрат возводить

Не, можно (покрайней мере в турбе), единственное странное что Int64 непомог, только Extended... ?

Автор: Alexeis 30.10.2007, 12:02

Хм.. странно пишут, что есть 3 перегрузки

Код


1 function Sqr ( Number : Integer ) : Integer;
2 function Sqr ( Number : Int64 ) : Int64;
3 function Sqr ( Number : Extended ) : Extended;

Автор: Rennigth 30.10.2007, 12:09

Цитата(Alexeis @ 30.10.2007, 12:02

)

Хм.. странно пишут, что есть 3 перегрузки

В семерке пишут что две:

Цитата

function Sqr(X: Extended): Extended;
function Sqr(X: Integer): Integer;

в турбе вообще что одна:

Цитата

[Delphi] function Sqr(X: Real): Extended;

Ты где смотрел?

Автор: Alexeis 30.10.2007, 12:13

фууу какой позор! функция function Sqr ( Number : Int64 ) : Int64; не вызывается вообще! Вместо нее вызывается function Sqr ( Number : Integer ) : Integer; ! Вправду говорят, что Int64 в делфях глючный!

Добавлено через 1 минуту и 23 секунды

Цитата(Rennigth @ 30.10.2007, 12:09

)

Ты где смотрел?

Да погуглил в книжке одной. Справка вообще тут не рулит. На самом деле Sqr это вообще не функция, а макрос...

Автор: Rennigth 30.10.2007, 12:18

Цитата(Alexeis @ 30.10.2007, 12:13

)

фууу какой позор! функция function Sqr ( Number : Int64 ) : Int64;

мдя... Кстати точно такая же ситуация была с функцией val в шестерке.

Автор: asdnmg7sdkw 30.10.2007, 17:19

Спасиб за помощь smile

. Что-то про переполнение переменной я не подумал.