Question

Помогите написать программы в Delphi для возведения числа в степень.

Answer 1

function Pow(x, y: real): real;
var
  PowTmp: real;
begin
  if (x < 0) then 
    PowTmp := (-1) * Exp(y * Ln(Abs(x))) 
  else if (x > 0) then 
    PowTmp := Exp(y * Ln(Abs(x))) 
  else PowTmp := 0; 
  if not (odd(round(y))) then PowTmp := Abs(PowTmp); 
  if (y = 0) then PowTmp := 1; 
  Pow := PowTmp; 
end;

Вот функция, приклейте, куда нужно:)