122 lines
2.7 KiB
ObjectPascal
122 lines
2.7 KiB
ObjectPascal
// Õàíîéñêèå áàøíè
|
|
uses GraphABC;
|
|
|
|
type
|
|
/// Òèï äèñêà
|
|
DiskType = record
|
|
/// Äèàìåòð äèñêà
|
|
Sz: integer;
|
|
/// Öâåò äèñêà
|
|
Color: GraphABC.Color;
|
|
end;
|
|
/// Òèï ìàññèâà äèñêîâ íà ñòåðæíå
|
|
DiskArr = array of DiskType;
|
|
|
|
const
|
|
/// Êîëè÷åñòâî äèñêîâ
|
|
CountDisks = 8;
|
|
/// Âûñîòà äèñêà
|
|
DiskHeight = 12;
|
|
/// Ïðèðàùåíèå øèðèíû äèñêà
|
|
DiskWidthDelta = 12;
|
|
h = CountDisks * DiskWidthDelta * 2 + 20;
|
|
/// y-êîîðäèíàòà îñíîâàíèÿ ïèðàìèä äèñêîâ
|
|
y0 = DiskHeight * CountDisks + 80;
|
|
hh = 30;
|
|
/// x-êîîðäèíàòà ïåðâîãî ñòåðæíÿ
|
|
x1 = h div 2 + hh;
|
|
/// x-êîîðäèíàòà âòîðîãî ñòåðæíÿ
|
|
x2 = x1 + h;
|
|
/// x-êîîðäèíàòà òðåòüåãî ñòåðæíÿ
|
|
x3 = x2 + h;
|
|
/// Ïàóçà, ìñ
|
|
delay = 50;
|
|
|
|
var
|
|
/// Ìàññèâ ïèðàìèä äèñêîâ
|
|
Tower: array [1..3] of DiskArr;
|
|
/// Ìàññèâ êîëè÷åñòâ äèñêîâ â ïèðàìèäàõ
|
|
DisksInTower: array [1..3] of integer;
|
|
/// Íîìåð õîäà
|
|
MoveNumber: integer;
|
|
|
|
/// Ðèñîâàíèå ïèðàìèäû
|
|
procedure DrawTower(a: DiskArr; n: integer; x0,y0: integer);
|
|
begin
|
|
Brush.Color := clBlack;
|
|
Rectangle(x0-5,y0,x0+5,y0-DiskHeight*CountDisks-10);
|
|
for var i:=0 to n-1 do
|
|
begin
|
|
Brush.Color := a[i].Color;
|
|
Rectangle(x0-a[i].sz*DiskWidthDelta,y0-DiskHeight*(i-1),x0+a[i].sz*DiskWidthDelta,y0-DiskHeight*i+1)
|
|
end;
|
|
end;
|
|
|
|
/// Ðèñîâàíèå âñåõ ïèðàìèä è èíôîðìàöèîííîé ñòðîêè
|
|
procedure DrawAll;
|
|
begin
|
|
DrawTower(Tower[1],DisksInTower[1],x1,y0);
|
|
DrawTower(Tower[2],DisksInTower[2],x2,y0);
|
|
DrawTower(Tower[3],DisksInTower[3],x3,y0);
|
|
Brush.Color := clWhite;
|
|
TextOut(20,20,'×èñëî ïåðåìåùåíèé äèñêîâ = '+IntToStr(MoveNumber));
|
|
Redraw;
|
|
end;
|
|
|
|
/// Ïåðåìåùåíèå äèñêà ñî ñòåðæíÿ FromN íà ñòåðæåíü ToN
|
|
procedure MoveDisk(FromN, ToN: integer);
|
|
begin
|
|
Inc(MoveNumber);
|
|
Inc(DisksInTower[ToN]);
|
|
Tower[ToN][DisksInTower[ToN]-1] := Tower[FromN][DisksInTower[FromN]-1];
|
|
Dec(DisksInTower[FromN]);
|
|
Sleep(delay);
|
|
ClearWindow;
|
|
DrawAll;
|
|
end;
|
|
|
|
/// Îñíîâíàÿ åêóðñèâíàÿ ïðîöåäóðà àëãîðèòìà "Õàíîéñêèå áàøíè"
|
|
procedure MoveTower(n: integer; FromN, ToN, WorkN: integer);
|
|
begin
|
|
if n=0 then exit;
|
|
MoveTower(n-1, FromN, WorkN, ToN);
|
|
MoveDisk(FromN, ToN);
|
|
MoveTower(n-1, WorkN, ToN, FromN);
|
|
end;
|
|
|
|
/// Èíèöèàëèçàöèÿ ìàññèâîâ
|
|
procedure InitTowers;
|
|
begin
|
|
SetLength(Tower[1],CountDisks);
|
|
SetLength(Tower[2],CountDisks);
|
|
SetLength(Tower[3],CountDisks);
|
|
DisksInTower[1] := CountDisks;
|
|
DisksInTower[2] := 0;
|
|
DisksInTower[3] := 0;
|
|
for var i:=0 to DisksInTower[1]-1 do
|
|
begin
|
|
Tower[1][i].Sz := DisksInTower[1]-i+1;
|
|
Tower[1][i].Color := clRandom;
|
|
end;
|
|
end;
|
|
|
|
/// Èíèöèàëèçàöèÿ îêíà
|
|
procedure InitWindow;
|
|
begin
|
|
SetWindowSize(x3+x1,y0+50);
|
|
CenterWindow;
|
|
Window.Title := 'Õàíîéñêèå áàøíè';
|
|
Font.Size := 14;
|
|
Font.Name := 'Arial';
|
|
end;
|
|
|
|
begin
|
|
InitWindow;
|
|
InitTowers;
|
|
LockDrawing;
|
|
DrawAll;
|
|
MoveTower(CountDisks,1,3,2);
|
|
end.
|
|
|
|
|