Delphi tilida

Procedure TForml.Button2Click (Sender: TObject); 
var 
Path: string; begin 
Path := GetPath('Papkani tanlang'); 
if Path <> " 
then Edit2.Text := Path; 
end; 
end. 

Gilbert c t chizig‘i 

Quyidagi rasmda Gilbertning birinchi, ikkinchi va uchinchi darajali 

egri chiziqlari keltirilgan: 

Gilbert egri chizigini chizish algoritmi rekursivdir. Quyida shu 
algoritmga asoslangan dastur matni berilgan. Rasm chizish Chizish 
(buttonl) tugmasini bosib amalga oshiriladi. Tugma bosilgandan so‘ng 
visible xos e xossasiga false qiymati berilgani uchun tugma oynada ko‘rinmay 
qoladi. Quyidagi rasmda dastur ishlashjarayonida chizilgan Gilbertning 
beshinchi darajali chizig‘i aks ettirilgan: 

private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
Var 
Forml: TForml; 
implementation {$R *.dfm} 
Var 
p: integer =5; 
u: integer =7; 
procedure a(i:integer; canvas: TCanvas); forward; 
procedure b(i:integer; canvas: TCanvas); forward; 
procedure c(i:integer; canvas: TCanvas); forward; 
procedure d(i:integer; canvas: TCanvas); forward; 
procedure a(i: integer; canvas: TCanvas); 
begin 
if i > 0 then begin 
d(i-l, canvas); 
canvas.LineTo(canvas.PenPos.X+u,canvas.PenPos.Y); 
a(i-l, canvas); 
canvas.LineTo(canvas.PenPos.X,canvas.PenPos.Y+u); 
a(i-l, canvas); 
canvas.LineTo(canvas.PenPos.X-u,canvas.PenPos.Y); 
c(i-l, canvas);