Código
var
ind, resultado: integer;
begin
resultado := base;
for ind := 1 to (potencia -1) do
resultado := resultado * base;
Result := resultado;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009