Степень Опции

[BRS]

Как написать функцию которая возводит число в любую степень?
с целыми степенями все вроде понятно...
а если надо посчитать что то вроде x^12.17??? как быть?

[volvo]

Для положительных чисел -

Код

{ только для А > 0 !!! }
function Pwr(a, x: real): real;
 begin
   pwr := Exp(x*Ln(a));
 end;

var x: real;
begin
 x := 5;
 Writeln( x, '^12.17 = ', Pwr(x, 12.17)  );
end.

Сообщение отредактировано: volvo - 26.10.2004 20:25