急~~~毕业设计:用DELPHIC改一个简单分形图,怎么也改不出来,改了一天了还是没改出
改的要求是:按一下按钮画出一条直线,再按一下那条直线下平均分成三段,去掉中间那段,依次类推,就这样一直 递归下去,这是一个递归算法
下面这个原程序
unit contor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
   
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a, b, c, d :real;
  n , m , r , p, q ,k: Integer;
  x , y , x0 , y0 :real;
implementation

{$R *.dfm}
procedure cantor(ax :real;ay : real; bx :real; by :real);
var
  c: Integer; //c 为判断小量，当(bx - ax) < c 时，堆栈释放
  d : Integer; //d为两层线段之间的距离
  cx,cy,dx,dy :real;
  begin
    c := 1;
    d := 20;
    If (bx - ax) < c Then
      begin
        Form1.Canvas.MoveTo(Round(ax),Round(ay));
        Form1.Canvas.LineTo(Round(bx),Round(by));
      end
      Else
      begin
        Form1.Canvas.MoveTo(Round(ax),Round(ay));
        Form1.Canvas.LineTo(Round(bx),Round(by));
        cx := ax + (bx - ax) / 3;
        cy := ay + d;
        dx := bx - (bx - ax) / 3;
        dy := by + d;
        ay := ay + d;
        by := by + d;
        cantor(ax, ay, cx, cy);
        cantor(dx, dy, bx, by);
      end;
    End ;

procedure TForm1.Button1Click(Sender: TObject);
begin

  cantor(100, 40, 500, 40);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;