Лабораторная работа - Фракталы
Подождите немного. Документ загружается.
Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
var
t,x,y,p:Real;
k,z:integer;
mx,my,u:integer;
begin
mx:=200;
my:=500;
u:=50;
Randomize;
for k:=1 to strtoint(Form1.Caption) do
begin
p:=Random;
t:=x;
if p<=0.85 then
begin
x:=0.85*x+0.04*y;
y:=-0.04*t+0.85*y+1.6;
end
else
if p<=0.92 then
begin
x:=0.20*x-0.26*y;
y:=0.23*t+0.22*y+1.6;
end
else
if p<=0.99 then
begin
x:=-0.15*x+0.28*y;
y:=0.26*t+0.24*y+0.44;
end
else
begin
x:=0;
y:=0.16*y;
end;
Image1.Canvas.Pixels[mx+round(u*x),my-round(u*y)+5]:=clred;
end;
end;
end.
Треугольник Серпинского
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
toch=record
x,y:integer;
end;
poch=^och;
och=record
a,b,c:toch;
next:poch;
end;
TForm1 = class(TForm)
Image1: TImage;
procedure int();
procedure pop();
procedure push(a,b,c:toch);
procedure ris(a,b,c:toch);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c,v,m:toch;
pbegin,pend,p:poch;
implementation
{$R *.dfm}
procedure TForm1.int();
begin
new(p);
p.a.x:=200;
p.a.y:=0;
p.b.x:=400;
p.b.y:=400;
p.c.x:=0;
p.c.y:=400;
p.next:=pend;
pend:=p;
pbegin:=p;
Image1.Canvas.MoveTo(p.a.x,p.a.y);
Image1.Canvas.LineTo(p.b.x,p.b.y);
Image1.Canvas.LineTo(p.c.x,p.c.y);
Image1.Canvas.LineTo(p.a.x,p.a.y);
end;
procedure Tform1.pop();
begin
a:=pbegin.a;
b:=pbegin.b;
c:=pbegin.c;
pbegin:=pbegin.next;
end;
procedure Tform1.push(a,b,c:toch);
begin
new(p);
p.a:=a;
p.b:=b;
p.c:=c;
if pbegin=nil then
begin
p.next:=pend;
pend:=p;
pbegin:=p;
end
else
begin
pend.next:=p;
pend:=p;
end;
end;
procedure Tform1.ris(a,b,c:toch);
begin //Image1.Canvas.MoveTo(100,200);
v.x:=round((a.x+b.x)/2);
v.y:=round((a.y+b.y)/2);
Image1.Canvas.MoveTo(v.x,v.y);
m.x:=round((a.x+c.x)/2);
m.y:=round((a.y+c.y)/2);
Image1.Canvas.LineTo(m.x,m.y);
push(a,m,v);
end;
procedure TForm1.FormShow(Sender: TObject);
var
i:integer;
begin
int();
for i:=1 to 40 do
begin
pop();
ris(a,b,c);
ris(b,c,a);
ris(c,a,b);
end;
end;
end.
Хаос
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
type
kor=record
x,y:integer;
end;
var
a,b,c,z:kor;
i,f:integer;
begin
f:=1;
a.x:=200*f;
a.y:=0*f;
b.x:=400*f;
b.y:=400*f;
c.x:=0*f;