Basis hoch irgendetwas nicht nur hoch 2

[simonko]

ja natürlich oder auch


a^n

Delphi-Quellcode:

for i:=1 to n do
  res:=mul(res,a);

...

function mul(res,a : integer) : integer;
var
  i,erg : integer;
begin
  erg:=0;
  for i:=1 to a do
    erg:=erg+res;
  result:=erg;
end;

spasti