10-sinf informatika 16. pdf

Ma'lumotni matn satridan butun son turiga va teskarisiga o'zgartirish. Yodingizda bo'lsa, Pascal dasturlash tilida bir turdagi o'zgaruvchiga ikk:inchi turdagi ifodaning qiymatini berib bo'lmas edi. Delphida ham bu taqiq o'rinli. Uni qanday aylanib o'tish mumkin?

Masalan, Button! obyektining eni (Width xossasi) qancha bo'lishi (butun son turi) Editning Text xossasidan (matn satri turi) olinishi kerak bo'lsa, Buttonl.Width:=Editl.Text operatoridan foydalanish xatoga olib keladi. Natijada ilova dasturi ishlashdan to'xtab, xato to'g'risida ogohlantiradi.

106

Object Pascalda o'zgaruvchini bir turdan ikk:inchi turga o'tkazish uchun bir qator standart funksiyalar mavjud. Ulami quyida keltiramiz:

1. 
   StrTolnt (string to integer) - matn satrini butun songa o'tkazadi;
   
2. 
   IntToStr (integer to string) - butun sonni matn satriga o'tkazadi;
   
3. 
   StrToFloat (string to float) - matn satrini haqiqiy songa o'tkazadi;
   
4. 
   FloatToStr (float to string) - haqiqiy sonni matn satriga o'tkazadi. Yuqoridagi operatomi bu funksiyalardan foydalanib, bexato yozamiz:
   

Buttonl .Width:=StrTolnt(Editl.Text);

2. 
   Shar hajmi va sfera yuzasi ilovasi. Shar hajmi va unga mos sferaning sirtini hisoblaydigan ilova yaratamiz. Buning uchun yangi ilova yaratib, unga uchta Label, bitta Edit va bitta Button obyektlarini joylaymiz. Ilova oynasini va undagi obyektlami quyidagi rasmda ko'rsatilgandek qilib o'zgartiramiz:
   

Ilova oynasidagi Buttonl ni ikk:i marta bosib, hosil bo'lgan dastur kodi oynasiga quyidagi ikk:i satmi kiritamiz. Ulaming har biri ham bitta satrga sig'magan bo'lsa-da, bittadan qatorga kiritilishi kerak. Ikk:ala satr ham nuqtali vergul bilan tugaydi.
Label2.Caption:='Shar_hajmi:'+FloatToStr(4/3*pi*sqr (StrToFloat(Editl.Text))*StrToFloat(Editl.Text)); Label3.Caption:='Sfera_yuzasi:'+FloatToStr(4*pi*sqr (StrToFloat(Editl.Text)));

F9 tugmasini ikk:i marta bosib, ilovani ishga tushiramiz. Dastlab kiritish maydonchasiga 1 ni kiritib, Hisobla tugmasini bosamiz, keyin esa radiusi 3

107

ga teng shar hajmi va sfera yuzini hisoblaymiz. Ilovaning ishi natijalari yuqoridagi rasmlarda ko'rsatilgan.

3.