Delphi 递归

末蓝、 2022-04-16 05:40 127阅读 0赞

由于delphi的过程比较简单，因此重点学习函数，函数中最难的是递归，本文通过实例来学习。

框图界面如下：

![20181117212020596.png][]

代码如下：

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
    
        function Fibonacci(n:integer):integer;
        procedure Edit1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
         str1:string;
         ff:Integer;
    begin
         str1:=Edit1.Text;
         ff:=Fibonacci(strtoint(str1));
         //showMessage(inttostr(ff));
         Edit1.Text:=inttostr(ff);
    end;
    
    function TForm1.Fibonacci(n:integer):integer;
    begin
      if n<1 then result:=1                         //result 是返回值
      else result:=Fibonacci(n-1)+Fibonacci(n-2)
    end;
    procedure TForm1.Edit1Click(Sender: TObject);
    begin
        Edit1.Text:='';
    end;
    
    end.

运行结果如下：

![20181117212105874.png][]

[20181117212020596.png]: /images/20220416/5cbbaa8ef9af425f99cebf45f42f4937.png
[20181117212105874.png]: /images/20220416/12de7219c1714b31b1b6500ce93cc7c6.png

发表评论取消回复

表情：

评论列表（有 0 条评论，127人围观）

还没有评论，来说两句吧...

相关阅读

相关递归---从台阶问题学习递归、递归优化和非递归

> 递归就是将大问题划分为若干个子问题，各个问题是嵌套关系，最小的那个问题的结果是已知的，大问题不断分解直到达到最小问题的过程叫做“递”，小问题的解释已知的，然后根据这个解回过

电玩女神/ 2023年06月17日 06:57/ 0 赞/ 20 阅读

相关递归

递归算法基本思想：找出递归子结构性质（原问题的解包含了子问题的解）、用子问题的解来递归定义原问题的解、找出递归终止条件。示例：例1 阶乘函数阶乘函数可

╰半橙微兮°/ 2022年06月09日 09:14/ 0 赞/ 298 阅读

相关递归——线性递归与二分递归

递归线性递归例子1：数组求和 int sum( int A[], int n) { //数组求和算法：线性递归版 if

向右看齐/ 2022年05月21日 04:41/ 0 赞/ 342 阅读

相关递归

递归优点：代码简单代码量少递归缺点：不易理解用递归解决问题时，主要思路： 1.将一个大问题分解成子问题 2.子问题除了问题规模会变小，和原问题解决的思路是一

向右看齐/ 2022年05月03日 10:28/ 0 赞/ 224 阅读

相关 Delphi 递归

由于delphi的过程比较简单，因此重点学习函数，函数中最难的是递归，本文通过实例来学习。框图界面如下： ![20181117212020596.png][]

末蓝、/ 2022年04月16日 05:40/ 0 赞/ 128 阅读

相关递归

1. public class HelloWorld \{ 2. public static void main(String\[\] args)\{ 3. // Sca

女爷i/ 2022年04月12日 10:50/ 0 赞/ 339 阅读

相关递归

递归Recursion 递归要求 1. 递归一定要有退出条件，递归调用一定要执行到这个退出条件。没有退出条件的递归调用，就是无限调用 2

雨点打透心脏的1/2处/ 2022年02月19日 05:39/ 0 赞/ 312 阅读

相关递归

问题描述任何一个正整数都可以用2进制表示，例如：137的2进制表示为10001001。将这种2进制表示写成2的次幂的和的形式，令次幂高的排在前面，可得到如下表达式：13

冷不防/ 2021年12月24日 08:43/ 0 赞/ 318 阅读

相关递归

递归递归就是一个函数直接或间接的调用自己.一般来说,递归需要有边界条件,递归前进段和递归返回段.当边界条件不满足的时,递归前进,当边界条件满足的时候,递归返回. 递归就

﹏ヽ暗。殇╰゛Y/ 2021年12月12日 06:53/ 0 赞/ 246 阅读

相关递归

递归只是让你解决方案更加清晰，并没有性能上的优势。实际上，在有些情况下，使用循环的性能更好。正如，在Stack Overflow 上，Leigh Caldwell　说了一句话：

男娘i/ 2021年09月13日 23:58/ 0 赞/ 373 阅读