Квадрат числа

← →
Yanis (2003-04-21 15:35) [0]

Немогу понять в чем дело возвожу число в квадрат и если число длинное, символов так 10, то происходит исключение и меня выкидывает в отладку.
Как возвести большое число в квадрат?

← →
REA (2003-04-21 15:38) [1]

Целое число? Чему результат присваиваешь? Как возводишь?
Вероятно переполнение происходит.
Int64 можно попробовать применить.

← →
Yanis (2003-04-21 16:08) [2]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Label1.Caption:=IntToStr(Sqr(StrToInt(edit1.Text)));
end;
Число вводится целое.
Кстати как возвести дробное число в квадрат и вообще в любую другую степень.

← →
AndrewXXX (2003-04-21 16:23) [3]

Любое число можно возвести в квадрат так: x*x.
Любое число в любую степень: exp(n*ln(x)). x - число, n - степень, только х должно быть положительным.
А ошибка действительно скорее всего вылезает из-за переполнения, тем более если integer используется.

← →
Anatoly Podgoretsky (2003-04-21 16:31) [4]

Почему используешь IntToStr для Sqr, у него же результат Ectended?

← →
Yanis (2003-04-21 16:36) [5]

Anatoly Podgoretsky я с математическими функциями Delphi пока плохо знаком, только начал использовать математические алгоритмы.
Может научишь как и где использовать Sqr.

← →
REA (2003-04-21 17:26) [6]

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

А кстати был прикол в том, что SQR не работало (или выдавало неверный результат), а X*X работало. Возможно это и из области мистики, но мне кажется я такое видел (какая плата и т.п. уже не помню).

← →
Anatoly Podgoretsky (2003-04-21 17:35) [7]

REA © (21.04.03 17:26)
Это появилось в Д6, до этого не было.
Второе результат в этом случае Integer, что означает максимум 2^9

← →
Shirson (2003-04-22 09:41) [8]

Есть функция Power - любую базу возводит в любую степень. Результат, понятное дело, Extended.

← →
tv (2003-04-22 12:16) [9]

А есть IntPower тоже что и Power, только там степень - любое число, а тут - только целое

Квадрат числа Найти похожие ветки