Возведение в нецелую степень
Как реализовать?

A^N = Exp(N * Ln (A)) {для A>0}

Цитата(Romtek @ 27.2.2005, 12:12)

A^N = Exp(N * Ln (A)) {для A>0}

Как будет для А<0?

А для отрицательных чисел операции возведения в степень не существует (кроме частных случаев). Это уже пойдёт переход в комплексную плоскость.

Makaroff!!! ВОТ кое-что написала:
function power(b:real;n:integer):real;
begin
if b=o then power:=0 else
if b<0 then power:= neg(n)*exp(n*ln(-b)) else power:=exp(n*ln(b))
end;(возведение в степень ,n-степень)
function neg( exponent: integer):integer;
begin
if odd(exponent) then neg:=-1 else neg:=1
end;(возведение в степень -1 )

У ти какая умная!!!

+ пользуйся тегами кода!!!!

P. S.
Sorry за оффтоп, не удержался!

Да,да такая!!!!!!!!!!Какие теги????Уже второй раз на форуме спрашиваю -никто не отвечает!!!!А за оффтоп непростительно!!!!!!

[code@=delphi]сам код[/code@]
Без символа @

Это сообщение отредактировал(а) Pakshin A. S. - 27.2.2005, 18:57

Тэги code.

Нажми на кнопку "КОД", и в поле ввода появятся тэги [ code ][ /code ] (без пробелов у квадратных скобок, сейчас вставил пробелы, чтобы форум их не обработал).

Можно тэги вводить просто руками.

Если пользоваться тэгами [ code ][ /code ], то форум подсветит код в соответствии с правилами того языка программирования, которому посвящён форум.

Можно также явно указать язык программирования (стиль подсветки).
Например, [ code=cpp ][ /code ] подсветит код в стиле C++,
[ code=delphi ][ /code ] - в стиле pascal/delphi.

Пример:

Код

program t; begin   write ('Hello, world!'); end.

Код

if b=0 then power:=0 else power:= (n/abs(n))*exp(n*ln(abs(b)));

Цитата(dm9 @ 27.2.2005, 19:00)

(без пробелов у квадратных скобок, сейчас вставил пробелы, чтобы форум их не обработал)

А ещё можно было написать русские символы кое-где...
[cоde=delphi]

[/code]

Ну праильно... давайте придумывать как писать примеры... Для комодеров и выше можно использовать коды [mod][/mod]

По теме:
А как начет того, что отрицательные числа, возведенные в четную степень становятся положительными?
А числа, возведенные в отрицательную степень равны обратному значению положительной степени?
В коде я этого не заметил...

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

Код

function power(b,n:real):real; begin  if b=0 then power:=0 else  if b<0 then power:= neg(n)*exp(n*ln(-b))  else begin    power:=exp(n*ln(b));    if odd(Round(b)) then power:=-power;      end; end;

Вот так он работает и возводит в в нецелую степень.

Это сообщение отредактировал(а) Snowy - 27.2.2005, 20:14

Вот это и есть те исключения

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

Что-то типа так:

Код

angle := 180 * Ord (base < 0) * power; t_angle := Trunc (angle); Result := Exp (power * Ln (Abs (base))); if t_angle mod 360 = 180 then Result := -Result; if (t_angle mod 180 <> 0.0) or (t_angle - angle <> 0.0) then ShowMessage ('Решение существует только в комплексное плоскости');

Могут быть погрешности, но они примерно равны погрешностям определения целости числа power...

base - основание степени.
power - показатель.

Добавлено @ 20:26
Snowy, ну это не серьёзно У тебя код не совсем корректен.

Это сообщение отредактировал(а) dm9 - 27.2.2005, 20:38