Hogy kell Delphi-ben megoldani?

function hatvany(alap: real; kitevo: integer) : real;

var

x: real;

begin

Result := 1;

x := alap;

while kitevo > 0 do

begin

if kitevo mod 2 = 1 then

Result := Result * x;

x := x * x;

kitevo := kitevo div 2;

end;

end;

Ha valami nem követi a szokásos kódolási konvenciókat azt légyszi nézd el, mert nagyon régen nem használtam delphit.

Csak egész kitevőkre ?? mert akkor ennyi:

function hatvany(const alap, kitevo : integer) : integer;

var i: integer;

begin

Result := alap;

for i := 2 to kitevo do Result := Result * alap;

if kitevo = 0 then Result := 1;

end;

Hibakezelés nélkül :)

a negatív számra való hatványozás kimaradt a kódokból, [link]

ez alapján meg már megírható

Jó, ennyi erővel a valós, complex és mártix hatványkitevők is kimaradtak.

negativnal ennyit kell csinálni (csak pseudokód):

func hatvany2(alap, kitevo)

ha kitevo < 0

return 1/hatvany(alap, -kitevo)

egyebkent

return hatvany(alap, kitevo)