Низомий номидаги тошкент давлат педагогика

Delphi дa Begin бўйича мисоллар 
Begin1. Квадратнинг томони а берилган. Унинг переметрини 
аниқлансин. P=4*a 

---

142 
procedure TForm1.Button1Click(Sender: TObject); 
var a,p:real; 
begin 
a:=strTofloat(Edit1.text); 
p:=a*4; 
edit2.Text:=floatTostr(p); 
end; 
Begin2. Квадратнинг томони а берилган. Унинг юзаси аниқлансин. 
S=a
2
procedure TForm1.Button1Click(Sender: TObject); 
var a,s:real; 
begin 
a:=strTofloat(Edit1.text); 
s:=a*a; 
edit2.Text:=floatTostr(s); 
end; 
Begin3. Тўғри тўртбурчакнинг томонлари a вa b берилган. Унинг 
юзаси S = a * b; вa P = 2 * (a + b) переметри аниқлансин. 
procedure TForm1.Button1Click(Sender: TObject); 
var a,b,S,P:real; 
begin 
a:=strTofloat(edit1.text); 
b:=strTofloat(edit2.text); 
P:=2*(a+b); 
S:=a*b; 
edit3.text:=floattostr(p); 
edit4.text:=floattostr(S); 
end; 
Begin4. Иккита манфий бўлмаган сон a вa b берилган. Уларнинг ўрта 
геометриги аниқлансин n=sqrt(a*b). 
procedure TForm1.Button1Click(Sender: TObject); 
var a,b,n:real; 
begin 
a:=strTofloat(edit1.text); 
b:=strTofloat(edit2.text); 
n:=sqrt(a+b); 
edit3.text:=floattostr(n); 
end; 

---

143 
Begin 5. Айлананинг узунгили L берилган. Уларнинг радиусини R вa 
юзаси S аниқлансин L = 2*pi*R*S =pi*R
2
pi= 3.14 
procedure TForm1.Button1Click(Sender: TObject); 
var s,l,r:real;