1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;
type
{ Драконова ломаная
Чтобы ее нарисовать мы начинае с одного отрезка. Одна из точек этого
отрезка это точка сгиба. Чтобы "разогнуть" этот отрезок нам нужно
нарисовать все что находится по одну сторону от точки сгиба
на другой стороне, но под углом в 90 градусов.
}
{ TForm1 }
TForm1 = class(TForm)
EditK: TEdit;
StartStopBtn: TButton;
Screen: TPaintBox;
procedure ScreenPaint(Sender: TObject);
procedure StartStopBtnClick(Sender: TObject);
private
var x, y: Integer; { Положение "черепашки" }
angle: Real; { и ее направление }
pen: Boolean; { Режим работы (рисовать/не рисовать) }
turns: array of Real;
public
procedure TURTLE_INIT; { Инициализация }
procedure GO(distance: Integer); { Пройти distance пикселов по прямой }
procedure TURN(a: Real); { Повернуться на угол a }
procedure PEN_UP; { Поднять карандаш (не рисовать) }
procedure PEN_DOWN; { Опустить карандаш (рисовать) }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.StartStopBtnClick(Sender: TObject);
var
i, oldIndex, oldSize, newSize, k, j: Integer;
begin
{ Длина массива 2 ^ (k - 1) }
oldSize := 1;
// k = 1
turns := [0];
k := StrToInt(EditK.Text);
if k > 1 then
begin
for j := 2 to k do
begin
newSize := oldSize * 2;
SetLength(turns, newSize);
oldIndex := oldSize - 1;
turns[oldSize] := -90;
for i := oldSize + 1 to newSize - 1 do
begin
turns[i] := -turns[oldIndex];
oldIndex := oldIndex - 1;
end;
oldSize := newSize;
end;
end;
Screen.Invalidate;
Sleep(10);
Application.ProcessMessages;
end;
procedure TForm1.ScreenPaint(Sender: TObject);
var
i: Real;
begin
TURTLE_INIT;
GO(Screen.Height div 2);
Turn(-90);
Go(Screen.Width div 2);
Turn(90);
PEN_DOWN;
for i in turns do
begin
Turn(i);
GO(50);
end;
PEN_UP;
end;
procedure TForm1.TURTLE_INIT;
begin
x := 0; { Начальное положение - левый }
y := Screen.Height; { нижний угол }
angle := PI / 2; { Начальное направление - "вверх" }
Screen.Canvas.Pen.Color := clGreen;
Screen.Canvas.MoveTo(x, y);
end;
procedure TForm1.GO(distance: Integer);
var newx, newy: Integer;
begin
newx := x + Round(distance * Cos(angle));
newy := y - Round(distance * Sin(angle));
if pen = true then
Screen.Canvas.LineTo(newx, newy)
else
Screen.Canvas.MoveTo(newx, newy);
x := newx;
y := newy;
end;
procedure TForm1.TURN(a: Real);
begin
{ Используем формулу радианы = градусы * PI / 180 }
angle := angle + a * PI / 180;
end;
procedure TForm1.PEN_UP;
begin
pen := false;
end;
procedure TForm1.PEN_DOWN;
begin
pen := true;
end;
end.
|
