Лабораторная работа

c.y:=400*f;

z.x:=75*f;

z.y:=75*f;

form1.Image1.Canvas.Pixels[a.x,a.y]:=clBlack;

form1.Image1.Canvas.Pixels[b.x,b.y]:=clBlack;

form1.Image1.Canvas.Pixels[c.x,c.y]:=clBlack;

for i:=1 to 100000 do

begin

case random(4) of

1:begin

z.x:=Trunc((z.x+a.x)/2);

z.y:=Trunc((z.y+a.y)/2);

form1.Image1.Canvas.Pixels[z.x,z.y]:=clBlack;

end;

2:begin

z.x:=Trunc((z.x+b.x)/2);

z.y:=Trunc((z.y+b.y)/2);

form1.Image1.Canvas.Pixels[z.x,z.y]:=clBlack;

end;

3:begin

z.x:=Trunc((z.x+c.x)/2);

z.y:=Trunc((z.y+c.y)/2);

form1.Image1.Canvas.Pixels[z.x,z.y]:=clBlack;

end;

end.

Шестиугольник

Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls;

type

kor=record

x,y:integer;

end;

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

a,b,c,d,e,f,z:kor;

i,k:integer;

begin

k:=1;

a.x:=310*k;

a.y:=10*k;

b.x:=610*k;

b.y:=210*k;

c.x:=610*k;

c.y:=610*k;

d.x:=310*k;

d.y:=810*k;

e.x:=10*k;

e.y:=610*k;

f.x:=10*k;

f.y:=210*k;

z.x:=75;

z.y:=75;

Image1.Canvas.Pixels[a.x,a.y]:=clBlack;

Image1.Canvas.Pixels[b.x,b.y]:=clBlack;

Image1.Canvas.Pixels[c.x,c.y]:=clBlack;

Image1.Canvas.Pixels[d.x,d.y]:=clBlack;

Image1.Canvas.Pixels[e.x,e.y]:=clBlack;

Image1.Canvas.Pixels[f.x,f.y]:=clBlack;

for i:=1 to 100000 do

begin

case random(7) of

1:begin

z.x:=Trunc((z.x+a.x)/3);

z.y:=Trunc((z.y+a.y)/3);