Inform atika va axborot texnologiyalari

begin
{ Kerakli та jum otlarni kiritish }
a:=StrToFloat(Editl. Text);
b:=StrToFloat(Edit2. Text);
c:=StrToFloat(Edit3. Text);
{ Diskriminantni hisoblash )
d:=b*b-4*a*c;
I f d<0 Then
Begin
LabelS.Caption: = >
q D iskrim inant noldan
424

---

k ic h ik ’+#13+
’Tenglamaning haqiqiy ildizi y o ‘q ’
E nd
Else
Begin
{ Ildizlarni hisoblash }
xl:= (-b-Sqrt(d))/(2 *a);
x2:=(-b+Sqrt(d))/(2*a);
{ x l , x 2 natijani chop etish }
Label5.C aption:= ’Tenglama ild izla ri’
+#13+ ’x l= ’+FloatToStr(xl)
+#13+ ’x2= ’+FloatToStr(x2);
End;
end;
procedure TF orm I .Form Activate (Sender: TObject);
begin
L ab el 1.Caption:= 'Tenglama koeffitsiyentlarini
kiritin g '
+ #13+ ’va H isoblash tugm asini bosing';
end;
procedure TForm I.Button2C lick(Sender: TObject);
begin
Close;
end;
end.
D astur m atni 1 dagi 
TF orm I .Button lC lick(Sender:
TObject)
protsedurasi tenglam a yechim ini hisoblaydi. 
K vadrat tenglam aning a, b, с koeffitsiyentlari 
E ditl,
Edit2, Edit3
larga kiritiladi va tenglam ani yechish uchun 
H isoblash
tugm asi bosiladi. D asturdan chiqish uchun 
Chiqish
tugmasi bosiladi.
425

---

14.3. KON SOLLI ILOVALAR
Delphida dasturchilar uchun 
Read, Readln
klavia- 
turadan berilganlami kiritish va 
Write, Writeln
natijani 
ekranga chiqarish operatorlaridan foydalanish imkoniya- 
ti ham yaratilgan. Bular 
konsolli ilovalar
deb yuritiladi.
Konsolli ilovalar quyidagi ko^inishda yara- 
tiladi: Delphi ishga yuklanganidan so ‘ng, oynada yangi 
F o rm l
formasi bo‘lmasa, 
File
m enyusidan 
New A pplica­
tion
(Yangi ilova) buyrug‘i tanlanadi. Yangi forma hosil 
boNgandan sung, 
Project
(Proyekt) menyusidan 
View
Source
(Kirish) tanlanadi. N atijada 
P roject!.dpr
deb 
nomlangan (14.13-rasm) oyna hosil b o ‘ladi
14.13-rasm.
Eslatma:
Konsolli ilovalarda kirill harflar o'rniga tushunib
bo ‘Imas belgilar chiqib qoladi, sababi konsolli ilovalar
A SC II kodida chop etiladi. Windowsda esa A N SI kodi
ishlatiladi. Shu sababli konsolli ilovalarni lotin xarfida
yozish talab qilinadi. Misol uchun, W riteln(’A sonni kiri-
tin g ).
426

---

D astur m atn 2
da kiritilgan kilogram ni necha funt 
ekanligini k o ‘rsatuvchi dastur ko‘rsatilgan. U nda biror 
buyum ning o g ‘irligi foydalanuvchi tom onidan kilog- 
ram m da kiritiladi. N atija esa kom pyuter tom onidan funt- 
da ekranga chiqariladi.
D astur m atni 2
{SAPPTYPE CONSOLE}
Program Project2;
Var
k,f:Real;
Begin
W riteln(’Buyum ogirlugini kilogramm da k iritin g );
W riteln(’va tugmasini b a sin g );
Write 
);
Readln(k);
f:= k*0.4095;
Writeln(k: 10:4, ’ kilogramm = f : 10:4, ’ fu n t ’);
Readln;
End.
Yuqoridagi dasturda