With Delphi for so long, I have been doing database programs. I haven't done any algorithms. I did an example of the simplest way to take advantage of the flight today. The procedure is as follows.
Procedure TForm1.Button2Click (Sender: Tobject); Function JC (I: Integer): Integer; Begin I> 1 Then Result: = i * JC (I-1); End; Var AAA: Integer; Begin AAA: = STRTOINT (edit1.text); edit2.text: = INTOSTR (JC (AAA));
END;