Shofirkon maishiy xizmat kasb hunar kolleji «dasturlash asoslari»

if a ³ 0
then b : = 0
else
if a < 0
then b : = -a
Bu shartli operatorning ikkinchi qismida ortiqcha shartli operator yozilganini sezish qiyin emas, chunki a<0 shartni ikki marta tekshirish sodir bo`ladi.
Shartli operatorni qisqaroq va yaqqolroq yozamiz:
if a ³ 0
then b : = 0
else b : = -a
Boshqa misol ko`ramiz:
for k: = 1 to 100 do
write (a + b)
TSiklning har bir bajarilishida a va b o`zgaruvchilar qiymatlarini yig`indisi hisoblanadi va bosib chiqariladi. Yig`indini hisoblashni tsikldan tashqariga chiqaramiz:
c: = a + b;
for k: = 1 to 100 do
write (c)
Endi o`zgaruvchilarning qiymatlarini qo`shish faqat bir marta bajariladi. Demak, bu dasturni bajarishda mashina vaqti qisqaradi.
Kabisa yillarni aniqlovchi funktsiyadagi shartli operatorni soddalashtirishga harakat qilamiz
if yil mod 100 = 0
then
if y mod 400 = 0
then kabisa:=true
else kabisa:=false
else
if y mod 4=0
then kabisa:=true
else kabisa:=false
Agar yil, berilgan son 400 ga bo`linsa, bunday yil kabisa yili bo`ladi, shuning uchun oldin berilgan sonni 400 ga bo`linishini tekshirish, keyin esa qolgan hollarni ko`rib chiqish kerak:
if y mod 400 = 0
then kabisa:=true
else . . . . . .
Agar son 400 ga bo`linmasdan 100 ga bo`linsa, bu son asrning oddiy yilini belgilaydi. SHartli operatorni yozishni davom ettiramiz:
if y mod 400 = 0
then kabisa: = true
else
if y mod 100=0
then kabisa:=false
else
. . . . .
Qolgan yillar sonining 4 ga bo`linishini tekshiramiz va shartli operatorning oxirini yozamiz:
if y mod 400 = 0