Coding Delphi Land: Fungsi Faktorial

Senin, 16 November 2009

Function Faktorial(A: Integer): LongInt;
Var B: Integer;
begin
Result:=1;
if A=0 then Exit;
for B:=1 to n do
Result:=Result*B;
end;

Unknown mengatakan...: for B:=1 to n do
Result:=Result*B;

itu "n" nya dari mna om :ngakak:; 28 Maret 2010 pukul 20.18
Unknown mengatakan...: function faktorial(number:integer):LongInt;
begin
result:=number;
if result >1 then
result:=number * faktorial(number-1)else
begin
result:=number;
end;
end;; 28 Maret 2010 pukul 20.30