Графика

[Shenan]

Написать программу, которая выводит на экран приведенный ниже узор, можно через рекурсию
Безымянный.png

[Stilet]

можно через рекурсию

Ок.

procedure TForm1.FormPaint(Sender: TObject);
const h=100;w=50;
var x,y:integer;
begin
 if tag<4 then begin
    with Canvas do begin Brush.Style:=bsClear;
     x:=Width div 2; y:=Height div 2;
     x:=x+(tag*w);   y:=y-(tag*h div 2);
     Rectangle(x,y,x+w,y+h);
    end;
    tag:=tag+1;     FormPaint(self);
 end;
end;

[Shenan]

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