Shofirkon maishiy xizmat kasb hunar kolleji «dasturlash asoslari»

CASE OF [ELSE]END.
Bu erda CASE, OF, ELSE, END - rezerv so`zlar (hol, [un]dan, aks holda, tamom);
- tanlov kaliti;
- bir yoki bir nechta quyidagi ko`rinishdagi konstruktsiya;
: ;
- ifodasi turi bilan bir xil bo`lgan o`zgarmas;
- Turbo Paskalning ixtiyoriy operatorlari.
Tanlov operatori quyidagicha ishlaydi:
Avval ifodasining qiymati hisoblanadi, keyin operatorlari ketma-ketligidan, oldida hisoblangan qiymatga teng bo`lgan o`zgarmas yozilgan operator izlanadi. Topilgan operator bajariladi va tanlov operatori o`z ishini tugatadi. Agar tanlov ro`yxatida hisoblangan qiymatga teng o`zgarmas topilmasa, boshqarish ELSE so`zidan keyingi operatorga uzatiladi. ELSE qismini tashlab Yuborish mumkin. Unda ro`yxatdan kerakli o`zgarmas topilmagach, hech narsa sodir bo`lmaydi, tanlov operatori o`z ishini tugatadi.
Quyida CASE operatori ishlatilishiga misol qilib dasturlar keltiramiz:
8.5.-dastur
Program Tanlash
var
x,y:real; ch:char;
begin
Readln (x,y);
case ch of
#72: y:=y-1;
#80: y:=y+1;
#75: x:=x-1;
#77: x:=x+1
end
end.
Tanlov ro`yxatidagi operatorldardan ixtiyoriysiga bir emas, balki bir nechta, bir-biridan vergul bilan ajratilgan, tanlov o`zgarmaslari to`g`ri kelishi mumkin. masalan, quyidagi dastur belgilardan biri kiritilganda (u yoki U) «Ha» yoki (n yoki N) «Yo`q» so`zlarini ekranga chiqaradi:
8.6.-dastur
var
ch:char;
begin
Readln (ch);
Case ch of
`n`, `N`:writeln (`Yo`q`);
`y`, `Y`:writeln (`Ha`)
end
end.

8.5. Nishonalar (metka) va o`tish operatorlari

Tasnifli dasturlashning hozirgi zamon texnologiyasi «GOTOsiz dasturlash» tamoyiliga asoslangan, chunki o`tish operatorini ko`p ishlatish dasturni tushunishni qiyinlashtiradi, uni chalkashtirib, xatolarini tuzatishni murakkablashtiradi.
Shunday bo`lsa ham, ba`zi bir hollarda o`tish operatorini ishlatish dasturni soddalashtirishi mumkin.