Ko’rildi” O’quv ishlari bo’yicha direktor o’rinbosari: A. Niyozov

Label2.Caption:='Shar_hajmi:'+FloatToStr(4/3*pi*sqr(StrToFloat(Edit1.Text))*StrToFloat(Edit1.Text));
Label3.Caption:='Sfera_yuzasi:'+FloatToStr(4*pi*sqr(StrToFloat(Edit1.Text)));

F9 tugmasini ikki marta bosib, ilovani ishga tushiramiz. Dastlab kiritish maydonchasiga 1 ni kiritib, Hisobla tugmasini bosamiz, keyin esa radiusi 3 ga teng shar hajmi va sfera yuzini hisoblaymiz. Ilovaning ishi natijalari quyidagi rasmlarda ko‘rsatilgan.
3. Ilovalarda o‘zgaruvchilardan foydalanish. Oxirgi ikki satr juda murakkab ko‘rinishga ega bo‘lib, ularni kiritishda xato o‘tkazib yuborish hech gap emas. Sharning hajmi va sfera yuzasi ; formulalar bilan hisoblanishini inobatga olsak, yuqoridagi formulalar rostdan ham g‘aliz chiqqanligi yaqqol ko‘rinib qoladi.
Bu kamchilikni bartaraf qilishning yo‘li bormi? Albatta bor. Buning uchun qo‘shimcha o‘zgaruvchilardan foydalanish kerak bo‘ladi. O‘zgaruvchilar dastur matniga qanday kiritilishini eslash uchun dastur kodi oynasi va undagi dastur matni bilan yaqindan tanishib chiqamiz.
4. Butun sonlar yig‘indisi ilovasi. va butun sonlar berilgan bo‘lsin. Ular va ular orasidagi barcha butun sonlar yig‘indisini topadigan ilova yaratamiz. Buning uchun yangi ilova yaratamiz va unga uchta Label, ikkita Edit va bitta Button obyektini joylaymiz. Ularning joylashishi va xossalari quyidagi rasmda berilgan.
Sonlar yig‘indisini hisoblash Button1 tugmasini bosganda amalga oshadi. Uni ilovaga kiritish uchun bu tugmani ikki marta bosamiz. Natijada ekranda dastur matni oynasi paydo bo‘ladi. undagi yozuvlar bilan tanishaylik:

procedure TForm1.Button1Click(Sender: TObject); begin end;
Bu Paskal tilida yozilgan oddiy protsedura bo‘lib, hozircha u bo‘sh. Demak, biz ilova oynasi Form1 ga joylangan Button1ni bosganimizda ilova boshqaruvni TForm1.Button1Click nomli protseduraga o‘tkazar ekan. Bu protseduraga u qilishi kerak bo‘lgan ishni bajaradigan operatorlarni kiritamiz: protseduraning to‘liq ko‘rinishi quyida keltirilgan: