Фрактальные множества

[Оля1185242]

Помогите с реализацией фрактального множества Жюлиа. Очень надо
Есть код, но выдает ошибку

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Image1:TImage;
  gd,gm: integer;
const
  min=1;
 
implementation
 
{$R *.dfm}
 
 procedure Tree(x,y,l,u:real; t:integer);
      begin
        if t>0 then
        begin
          l:=l*0.5;
          Image1.Canvas.MoveTo(round(x),round(y));
          Image1.Canvas.Lineto(Round(x + l * cos(u)),Round(y - l * sin(u)));
          x := Round(x + l * cos(u));
            y := Round(y - l * sin(u));
          Tree(x, y, l, u, t-1);
              Tree(x, y, l, u+pi/4, t-1);
              Tree(x, y, l, u-pi/4, t-1);
        end;
      end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
 
      Tree(20, 30, 150, pi/2,   6);
        Tree(20, 30, 150, 3*pi/4, 6);
        Tree(20, 30, 150, pi/4,   6);
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  halt;
end;
 
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Аватар]

Ошибка конечно секретная ))

[ko568]

Скажите пожалуйста как исправить ошибки?

[evg_m]

Скажите пожалуйста как исправить ошибки?

 procedure Tree(x,y,l,u:real; t:integer);

1.

procedure Tree(canvas: Tcanvas; x,y,l,u:real; t:integer);

2.

procedure TForm1.Tree(x,y,l,u:real; t:integer);

выбирай любой вариант и открывай СВОЮ тему с перечислением СВОИХ ошибок.

[JUDAS]

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   Image1: TImage;
  gd,gm: integer;
const
  min=1;

implementation

{$R *.dfm}
 
 procedure Tree(x,y,l,u:real; t:integer);
      begin
        if t>0 then
        begin
          l:=l*0.5;
          Form1.Image1.Canvas.MoveTo(round(x)+200,round(y)+200);
          Form1.Image1.Canvas.Lineto(Round(x + l * cos(u))+200,Round(y - l * sin(u))+200);
          x := Round(x + l * cos(u));
            y := Round(y - l * sin(u));
          Tree(x, y, l, u, t-1);
              Tree(x, y, l, u+pi/4, t-1);
              Tree(x, y, l, u-pi/4, t-1);
        end;
      end;

procedure TForm1.Button1Click(Sender: TObject);
begin
      Tree(20, 30, 150, pi/2,   6);
        Tree(20, 30, 150, 3*pi/4, 6);
        Tree(20, 30, 150, pi/4,   6);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  halt;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var bmp : TBitmap;
begin
  bmp  := TBitmap.Create;
  bmp.Width  := Image1.Width;
  bmp.Height := Image1.Height;
  Image1.Picture.Bitmap  := bmp;
end;

end.