مرجع توابع دلفی

[دلفــي]

// a  به توان b

function Pow(a,b: Integer):Real;

begin

if b=0 then Pow := 1 else

Pow := a*Pow(a,b-1);

end;

 

 

// فاكتوريل

function Fact(n: Integer):Real;

begin

if n-1=1 then Fact := n else

Fact := n*Fact(n-1);

end;

 

 

// a ضربدر b

function Mul(a,b: Integer):Real;

begin

if b=1 then Mul := a else

Mul := a+Mul(a,b-1);

end;