Procedure faktorial (input  N : integer,output  Fak :  real)

{I.S. : harga N sudah terdefinisi}

{F.S. : menghasilkan harga faktorial dari N}

Kamus:

     I : integer {pencacah}

Algoritma:

     If  (N=0) or (N=1)

          Then

                Fak  ←   1

           Else

                Fak  ←   1

                For i ← 2 to N do

                     Fak ← Fak * i

                Endfor

     Endif

endprocedure

----- -----------------------------------------------------------

Tmin(n)    = 1

Tmax(n)    = 3n

Tavg(n)    = (1+3n)/2

= 4/2n

= 2n