... Y - Size); paintBox1.Canvas.MoveTo(X - Size div 2, Y - Size div 2) ; paintBox1.Canvas.LineTo(X + Size div 2, Y - Size div 2) ; if Size > 2 then begin fractal(X - Size div 2, Y - ... div 2, Y - Size div 2, Size div 2) ; fractal(X + Size div 2, Y - Size div 2, Size div 2) end end; procedure TForm1.Button1Click(Sender: TObject); begin fractal (20 0, 20 0, 150) end; ... Delphi; Biên dịch bởi Lê Khắc Như; website: http://www/lkn.b4.to 2/ 21/04 Le Khac Nhu Website : http://www.lkn.b4.to Page 22 2/ 21 /20 04 Reviewed by NGUYEN, Ba Thanh Distributed by Diễn đàn Tin...