Computing Powers

Computing Powers

xp := x; pwork := power; Res := 1;

While pwork > 0 Do

If pwork mod 2 = 1 then

Res := Res * xp;

End If

xp := xp * xp;

pwork := pwork / 2; /* integer division */

End While

Previous slide Next slide Back to the first slide View Graphic Version