... 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 - Size div 2, Size div 2) ; fractal(X + Size div ... div 2, Y - Size div 2, Size div 2) end end; procedure TForm1.Button1Click(Sender: TObject); begin fractal (20 0, 20 0, 150) end; end. Những ví d về lập trình bằng Delphi; Biên d ch ... http://www/lkn.b4.to 2/ 21/04 Le Khac Nhu Website : http://www.lkn.b4.to Page 13 2/ 21 /20 04 Reviewed by NGUYEN, Ba Thanh Distributed by Diễn đàn Tin học – http://www.diendantinhoc.net close end end; ...