(A B B C C A)
0 0xCC DEBUG
0 0xCC
(fibounacci)
fibounacci
Pascal
Function Factorial(Number:integer):integer;
begin
If ( Number = 1 ) then
Factorial := 1
Else
Factorial := Number * Factorial ( Number – 1 );
end;Pascal
Function Factorial( Number : integer ) : integer;
var
IntermediateResult : integer;
Factor : integer;
begin
IntermediateResult := -1;
For Factor := 2 to Number do
IntermediateResult := InterMediateResult * Factor ;
Factorial := IntermediateResult
end;