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.

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