Олий ва ўрта махсус таълим вазирлиги Наманган давлат университети

begin
ostiga yozilgan. 
begin
va 
end
lar orasida buyruqlar 
begin
ga nisbatan bir-birining ostida, bir masofada 
chekintirib joylashtirilgan.
YUqoridagi buyruqlarni quyidagicha ham yozish mumkin: 

---

if 
d >

 
0
then begin 
x1:

(-b

Sqrt(d))

(2*a); x2:

(-b-Sqrt(d))

(2*a);
 
ShowMessage(x1

b 

FloatToStr(xl) 

x2

b 

FloatToStr(x2)) ;
end
else 
ShowMessage(‘Tenglama haqiqiy echimlarga ega emas.’) 
Ammo, birinchi variant qulayroq, chunki, unda algoritm strukturasi yaxshiroq 
ko‘rinadi. 
Delphi da Begin bo‘yicha misollar 
Begin1. 
Kvadratning tomoni a berilgan. Uning peremetrini
aniqlansin. P=4*a
procedure TForm1.Button1Click(Sender: TObject);
var a,p:real;
begin
a:=strTofloat(Edit1.text);
p:=a*4;
edit2.Text:=floatTostr(p);
end;
Begin2. Kvadratning tomoni a berilgan. Uning yuzasi aniqlansin.
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. To‘g‘ri to‘rtburchakning tomonlari a va b berilgan. Uning 
yuzasi S = a * b; va P = 2 * (a + b) peremetri aniqlansin.
procedure TForm1.Button1Click(Sender: TObject);
var a,b,S,P:real;
begin
a:=strTofloat(edit1.text);
b:=strTofloat(edit2.text);
P:=2*(a+b);