Question

Найдите ошибку, рисунок должен быть симметричным
uses graphABC,crt;
VAR t: integer;
procedure lin( x,y,a,h: integer);
begin
t:= a- x;
if ( h> 0) then
begin
line ( x,y,a,y);
lin (x+ t div 4,y+ h, a- t div 4, h div 2);
lin (x+ t div 4,y- h, a- t div 4, h div 2);
end;
end;
BEGIN
lin ( 20, 100, 80,20);
END.

Answer 1

uses graphABC;
procedure LineFamily(x, y, a, h: integer);
var
    t: integer;
begin
    t := a - x;
    if (h > 0) then
    begin
        Line(x, y, a, y);
        LineFamily(x + t div 4, y + h, a - t div 4, h div 2);
        LineFamily(x + t div 4, y - h, a - t div 4, h div 2);
    end;
end;

begin
    LineFamily(20, Window.Height div 2, Window.Width - 20, Window.Height div 4);
end.

нечего использовать глобальные перемены в процедуре

Answer 2

Спасибо огромное !