|
Procedure Tform1.Button1click(Sender:Tobject)
|
| bet | 6/9 | | Sana | 20.12.2023 | | Hajmi | 1,17 Mb. | | #124712 |
Bog'liq Amanova Ozoda M Ish Ekologiya va tabiatni muhofaza qilish, 5 - sinf informatika konspekt TAYYOR, Bekatov Nodir Laboratriya 4, Bekatov Nodir Laboratriya 5, Genetika bo`limi bo`yicha test, AXP 111, 1-mavzu dtmlardan, 1-247-2023-04299US, 12506, Ikkilamchi elektron emissiyasi, 9.8.42 2021-04-19 13 35 30, FIZIKA AMALIY 0173-22 NAZAROV QAHRAMON, 3-savol Tizimlarni faoliyatni va rivojlanish xarakterlovchi asosiy tushunchalar xolati o\'zni tutish muozanati, Ma, 111111111Procedure Tform1.Button1click(Sender:Tobject);
Var
A,B,C:Real;
D:Real;
X1,X2:Real;
S1,S2:String[7];
Code:Integer;
Begin
Val(Edit1.Text,a,Code);
Val(Edit2.Text,b,Code);
Val(Edit3.Text,c,Code);
If a=0
Then
Label6.Caption:=’Xato! ’+Shr(13)
+’No’malum ikkinchi darajasi koeffisenti’
+Chr(13)+’nolga teng’
Else Begin
d:=b*b-4*a*c;
x1:=(-b+Sqrt(d))/(2*a);
x2:=(b+Sqrt(d))/(2*a);
Str(x1:7:3,S1);
Str(x2:7:3,S2);
Label6.Caption:=’Tenglama ildizlari:’
+Chr(13)+’x1=’+S1
+Chr(13)+’x2=’+S2;
End;
End;
Loyihani saqlash. Ilovani kompilyasiya qilish va ishga tushirish. Loyihani saqlashda Delphi bir necha fayl tashkil qiladi. Ayrimlari loyiha butun loyihani tavsiflashni, boshqalari forma va dastur modulini tavsiflashni o’z ichiga oladi. Agar hali saqlanmagan loyiha bo’lsa Fayl (File) menyusidan Soxranit proekt (Save Project) buyrug’i beriladi va keyin dastur moduli va proekt nomi beriladi.
Loyihani bog’lab bo’lgandan so’ng Compile menyusidan compile (Kompilirovat) buyrug’i beriladi. Agar dasturda sintaksik xato bo’lmasa ekranda kompilyasiya to’g’ri o’tganligi haqida xabar beriladi. Agar kompilyasiya dasturda qandaydir xatoni topsa xato haqida ekranga ma’lumot beradi. Kompilyasiyadan to’g’ri o’tgan dastur uchun maxsus - .exe kengaytmali fayl tuzib beradi va u faylni Delphi tizimisiz ishlatish mumkin.
Delphi tizimidan chiqmasdan turib ilovani ishga tushirish mumkin, buning uchun Run menyusining Run buyrug’ini yoki F9 tugmachasini bosish kifoya bo’ladi. Yuqoridagi misol uchun ilova ishga tushirilib a, b va c qiymatlari kiritilib “xisob” tugmasi bosilsa dastur quyidagi natijani ekranga chiqadi.
Prosedura TForm1.Button2Click “yangi” tugmachasini sichqonchada chiqillatish bilan ishlaydi va taxrirlash maydoniga kursorni koeffisient qiymatlarini kiritish uchun olib kelib qo’yadi.
Prosedura TForm1.Button3Click “tamom” tugmachasini sichqonchada chiqillatish bilan ishlaydi va formani yopadi.
Button1click funksiyasi tezlikni hisoblab, natijani Label4 maydoniga chiqaradi. Boshlang’ich qiymatlar Editl va Edit2 taxrirlash maydonlarining Text xossasiga murojaat qilish yordamida kiritiladi. Text xossasi foydalanuvchi kiritgan simvollardan iborat satrni o’z ichiga oladi. Satrni sonlarga aylantirish uchun StrToInt va StrToFloat funksiyalaridan foydalaniladi. StrToInt funksiyasi Edit1.Text ga kiritilgan satrni, tekshirib, agar simvollar raqamlardan iborat bo’lsa butun songa aylantirib dist. o’zgaruvchisiga qiymat sifatida beradi. Shu kabi StrToFioat funksiyasi Edit2.Text kiritilgan satrni haqiqiy songa aylantirib t o’zgaruvchisiga qiymat sifatida beradi.
So’ngra Trunc funksiyasi t o’zgaruvchisining butun qismini ajratadi — bu minutlarga mos keladi. So’ngra Trunc(t*100) mod 100 ifodasi sekundlarni ajratadi.
Tezlik km/soat birlikda aniqlangani uchun, metr va sekundlar kilometr va soatlarga aylantiriladi.
Hisoblangan tezlik qiymati Label4 maydonida Caption xossasi yordamida akslantiriladi. Sonni satrga aylantirish uchun IntToStr va FloatToStr funksiyalaridan foydalaniladi.
Chiqish tugmasini bosilganda dastur ishini to’xtatadi. Buning uchun close usuli yordamida dastur oynasi berkitiladi.
|
| |
