x^y moze da se odradi rekurzivno ali uzastopnim kvadriranjem. Ne znam da li si i ti mislio na ovu verziju stepenovanja ali u svakom slucaju i da nisi evo source-a pa iskoristi ako ti se svidi
Code:
function Stepen (x,y : Integer) : Integer ;
begin
if y = 0 then
Stepen := 1
else begin
pom := Stepen (x, y DIV 2) ;
If Odd ( y ) Then
Stepen := x * pom * pom
else
Stepen := pom * pom ;
end ;
end ;
Kod je napisan u Pascal/Delphi.
Toliko od mene! U zdravlje!
__________________
Che-gevara
Che-mpres
Che-kic
Che-LIK