Йўналиши ўқув режаси ва дастури асосида тайёрланди

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(ЪТенглама ҳақиқий ечимларга эга эмас.Ъ) 
Аммо, биринчи вариант қулайроқ, чунки, унда алгоритм структураси яхшироқ 
кўринади.
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