треугольник серпинского

[kalosha-stepa]

Нарисовать классический фрактал («Ковер Серпинского»). Пользователь задает глубину самоповторения.

Нужно доделать

Uses GraphABC;
type
   Coord = record
   x: real;
   y: real;
end;
 
Const
    MaxX=800;       // Размер графического окна по X
    MaxY=700;       // Размер графического окна по Y
    MinTriWidth=10;   // Размер по оси X минимального треугольника
 
var
   k1, k2, k3: Coord;
 
Procedure DrawTriangle(k1: Coord; k2: Coord; k3: Coord);
var
   k4, k5, k6: Coord;
   col: integer;
begin
   // Расчет новых опорных точек
    k4.x:=(k2.x+k1.x)/2;
    k4.y:=(k2.y+k1.y)/2;
    k5.x:=(k3.x+k2.x)/2;
    k5.y:=(k3.y+k2.y)/2;
    k6.x:=(k3.x+k1.x)/2;
    k6.y:=(k3.y+k1.y)/2;
 
    // Рисуем треугольник 1
    Line(round(k1.x), round(k1.y), round(k4.x), round(k4.y));
    Line(round(k4.x), round(k4.y), round(k6.x), round(k6.y));
    Line(round(k6.x), round(k6.y), round(k1.x), round(k1.y));
    // Рисуем треугольник 2
    Line(round(k4.x), round(k4.y), round(k2.x), round(k2.y));
    Line(round(k2.x), round(k2.y), round(k5.x), round(k5.y));
    Line(round(k5.x), round(k5.y), round(k4.x), round(k4.y));
    // Рисуем треугольник 3
    Line(round(k6.x), round(k6.y), round(k5.x), round(k5.y));
    Line(round(k5.x), round(k5.y), round(k3.x), round(k3.y));
    Line(round(k3.x), round(k3.y), round(k6.x), round(k6.y));
    Sleep(1);         // Задержка,чтобы было видно как рисуется фрактал
 
    // Если не достигнута минимальная ширина треугольника, то рисовать следующую итерацию
    if (Abs(k4.x-k1.x)>MinTriWidth) then DrawTriangle(k1, k4, k6);
 
    if (Abs(k2.x-k4.x)>MinTriWidth) then  DrawTriangle(k4, k2, k5);
 
    if (Abs(k5.x-k6.x)>MinTriWidth) then DrawTriangle(k6, k5, k3);
    end;
end;
 
BEGIN
SetWindowSize(MaxX, MaxY);
    k1.x:=10;
    k1.y:=MaxY-10;
    k2.x:=400;
    k2.y:=MaxY-685;
    k3.x:=790;
    k3.y:=MaxY-10;
    DrawTriangle(k1, k2, k3);
 
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.