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

Question

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

Comments

vara,i,b,x:integer;beginread(a,b);x:=a;for i:=2 to b do x:=x*a;write(x);end.Если что, то так...

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;

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