用递归来求阶乘的小程序(delphi版)
2006-03-15 11:09
253 查看
用了delphi 这么长时间,一直做数据库程序,没有做过什么算法,今天做了一个最简单的求阶乘的例子,用的是递归的方法,程序如下
procedure TForm1.Button2Click(Sender: TObject);
function jc(i:integer):integer;
begin
if i>1 then
result:=i*jc(i-1);
end;
var
aaa:integer;
begin
aaa:=strToint(edit1.Text);
edit2.Text:=inttostr(jc(aaa));
end;
procedure TForm1.Button2Click(Sender: TObject);
function jc(i:integer):integer;
begin
if i>1 then
result:=i*jc(i-1);
end;
var
aaa:integer;
begin
aaa:=strToint(edit1.Text);
edit2.Text:=inttostr(jc(aaa));
end;
相关文章推荐
- 递归小程序之求阶乘
- Clojure编写一个阶乘程序 使用递归
- C/C++程序——递归和循环实现阶乘,并比较N!与(2N N)的大小
- 递归:阶乘以及菲波那切数列的程序实现
- delphi 所有程序运行调试都出现cpu窗口,急!
- Delphi 讓程序只運行一次[高人寫的代碼]
- 用Delphi编写Win2000服务程序
- python 递归算阶乘
- delphi程序向另一个可执行程序发消息(使用GetForegroundWindow; 找出当前操作系统中活动的第一个窗口)
- 用Delphi实现开机自动启动程序
- GDI+ 在Delphi程序的应用 -- 图像的透明显示技巧
- Delphi 修改注册表使程序开机启动
- 利用递归方法求5!的阶乘
- 小程序:备考问题&递归实现每天备考时间的分配(含代码)
- 如何编写递归程序(分治法)
- 递归下降语法分析程序设计
- Delphi使用大图标编译程序的方法
- 12.16_实验四 递归下降语法分析程序设计
- Delphi中,让程序只运行一次的方法
- Delphi打开外部程序或文件