Mirsaid Aripov, Nurillo Otaxanov

Yechish g’oyasi: Berilgan nuqtani uchburchakning uchlari bilan tutashtiriladi va bunda bitta o`rniga to`rtta uchburchak hosil bo`ladi: <sub>ABC</sub>, <sub>AOB</sub>, <sub>AOC</sub>, <sub>BOC</sub>. Masala shartida qo`yilgan savolga javob berish uchun bu uchburchaklarning S_ABC, S_AOC, S_AOB, S_BOC yuzalarni hisoblanadi va

S_ABC S_AOC  S_AOB  S_BOC

munosabatni tekshirish lozim bo’ladi. Agar bu munosabat o`rinli bo`lsa, u holda berilgan nuqta uchburchak ichida yotadi, aks holda - yo`q.

Ko`rinib turibdiki, bitta dastur matnida to`rt marta uchburchak yuzini hisoblashga to’gri keladi. Mana shunday hollarda bitta uchburchak uchun formal parametrlar tanlanadi ((a₁, b₁), (a₂, b₂), (a₃, b₃)) va shu parametrlar uchun uchburchak yuzini hisoblash qism-programmasini yoziladi:

begin

a sqrt(sqr(a2-al) sqr(b2-bl)) ;

b sqrt(sqr(a3-a2) sqr(b3-b2)) ;

c sqrt(sqr(a3-al) sqr(b3-bl)) ;

p (a b c) 2 ;

yuza sqrt(p*(p-a) *(r-b) *(r-s)) ;

end ;

Qism-programmalardan foydalanishning afzalligi shundaki, asosiy dasturda takroriy yozilgan buyruqlar ketma-ketligi bo`lmaganligi sababli, dasturni yozish, o`qish, tahlil qilish, tushunish oson bo`ladi.

Qism-programma – bu unchalik katta bo`lmagan dastur bo`lib, umumiy masalaning ma`lum bir qismini yechishga mo`ljallanadi. Delphi da qism-programmalardan ikki hil ko`rinishda foydalanish mumkin: protsedura va protsedura-funksiya (bundan keyin uni osongina qilib funksiya deb ataymiz). Har bir qism-programmaning nomi bo`lib, bu nom unga asosiy dasturdan murojaat qilish uchun xizmat qiladi.