Число в степени

[Pitbull]

Единственное, что ві не учли - єто переполнение Вот Вам пример:

function Power(X, N : real) : extended; var

t : longint;
r : real;
isInteger : boolean;
begin

//если степень ноль, то результат 1
if N = 0 then begin
result := 1.0;
exit;
end;

//если основание числа 1, то единица в любой степени - единица
if X = 1.0 then begin
result := 1.0;
exit;
end;

//если основание ноль, то 
if X = 0.0 then begin
// если степень больше 0, то результат ф-и ноль иначе - безконечность
if N > 0.0 then
begin
result := 0.0;
exit;
end
else
    ShowMessage('Результат - бесконечность');
end;

//если основание больше нуля
if (X > 0) then
try
result := exp(N * ln(X));
exit;
except
    ShowMessage('Результат - переполнение или потеря значимости');
end;


//если X - отрицательный, то мы все еще можем вычислить результат, если n целое. }
{получить целую часть n ,проверяем четности n }


try
t := trunc(n);
if (n - t) = 0 then
isInteger := true
else
isInteger := False;
except
{ Лишний бит может вызвать переполнение или потерю значимости }
r := int(n);
if (n - r) = 0 then
begin
isInteger := true;
if frac(r/2) = 0.5 then
t := 1
else
t := 2;
end
else
isInteger := False;
end;


if isInteger then
begin
{n целое}
if odd(t) then
{n нечетное}
try
result := -exp(N * ln(-X));
exit;
except
    ShowMessage('Результат - переполнение или потеря значимости');
end
else
{n четное}
try
result := exp(N * ln(-X));
exit;
except
    ShowMessage('Результат - переполнение или потеря значимости');
end;
end
else
    ShowMessage('Результат невычисляем');

end;

[puporev]

Докторская диссертация на тему " Неужели 2х2=4?".

[Pitbull]

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

Докторская диссертация на тему " Неужели 2х2=4?".

ну если решать, то решать до конца! перебрать все варианті решений!