改的要求是:按一下按钮画出一条直线,再按一下那条直线下平均分成三段,去掉中间那段,依次类推,就这样一直 递归下去,这是一个递归算法
下面这个delphi原程序
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;

delphi C ,好象这里的人都不用这个,要调试的话恐怕爱莫能助.
按一下按钮画出一条直线,再按一下那条直线下平均分成三段,去掉中间那段,依次类推,就这样一直 递归下去. 这个说的有点模糊,能否说的更清楚一点,

看不懂`~~！不好意思哈~！！

新开了个C图形专区,给你把帖子转那里去.

[此贴子已经被作者于2006-5-29 9:42:54编辑过]

先帮楼主补充一下三等分Cantor集算法的描述：首先画一条线（一个区间），将其三等分，去掉中间的一段。然后，再将剩下两段进行三等分，将每段的中间部分舍弃……如此不断重复上述过程，其所达到的极限为一个点集，即三等分Cantor集。
我也没学过pascal语言，只是大概的能看懂，算法方面好像没问题。我将你的cantor函数移植到C语言编译环境后得到了如下结果：


可以看到结果正确，虽然最下面一段看上去并未细分，其实实际上细分了，只是运算精度及像素精度不够才导致中间的缝隙没能够表现出来，这个我通过调试模式中的步进运行得到了证实。如果你得到的不是这个答案，那我估计问题不在算法那一块，比如有可能是Round()函数在转换成整数时四舍五入造成的，因为在C编译器中的是直接截断小数点后边的部分转成整数的。我是不很清楚pascal的转换规则，你甚至可以将代码中所有的real实数换成整数试试。

[此贴子已经被作者于2006-5-29 11:30:49编辑过]

Delphi 下显示的与一笔苍穹的一样（Delphi 7）。

[此贴子已经被作者于2006-5-29 18:17:29编辑过]