А. А. Медатов, М. З. Носиров, М. К


Мустахкамлаш учун саволлар


Download 392.5 Kb.
bet17/39
Sana20.12.2022
Hajmi392.5 Kb.
#1034416
1   ...   13   14   15   16   17   18   19   20   ...   39
Bog'liq
Turbo Pascal услубий кулланма

Мустахкамлаш учун саволлар.
1. Қандай боғланиш рекуррент боғланиш дейилади?
2. Фибоначчи кетмакетлигида сонлар бир бири билан қандай боғланган?


Таянч тушунчалар: рекуррент боғланиш, фибоначчи кетмакетлиги.


Адабиётлар: [1],[2],[3],[5],[6],[7],[8],[9],[10]


Case  танлаш оператори
Режа:
1. Case операторининг бичими.
2. Case операторига мисол.

Танлаш фармойиши ҳам тармоқ фармойиши каби бир марта бажарилади.


Бичими:
Case n of
A1: <фармойиш1 >
A2: <фармойиш2 >
A3: <фармойиш3 >
………
Ak: <фармойишk >
else <фармойишk >
end;
Бунда case  танлаш фармойиш номи, n қиймати ҳисобланадиган ифода ёки ўзгарувчи, of (дан)  ёрдамчи сўз, A1, A2, … Ak  n нинг қиймати билан солиштириладиган константалар; фармойиш1, фармойиш2, …, фармойишk  фармойишлар.
Бу фармойишлар қайси бирининг константаси n билан тенг бўлса ўша фармойиш бажарилади.
Агар n нинг қиймати a1, a2, …, ak ларнинг бирортасига тенг бўлса, else ёрдамчи сўзидан кейин еклувчи фармойиш бажарилади.
Танлаш фармойишдаги else тармоғи ёзилмаслиги ҳам мумкин. Else ёзилмаган ҳолда n нинг қиймати a1, a2,…ak ларнинг бирортасига ҳам тенг бўлмаса, бу фармойиш бажарилмайди.
Агар константаларнинг бир неча қийматлари учун умумий бўлган битта фармойишнинг бажарилиши талаб қилинса, бундай константаларни бир қаторга вергул билан ажратиб ёзилиб, икки нуқтадан сўнг улар учун умумий бўлган фармойиш ёзилади.
Масалан,
case n of
0,2,4,6,8: writeln(‘жуфт’)
1,3,5,7,9: writeln(‘ток сон’)
10..100: writeln(’10 дан 100 гача бўлган сонлар’);
end;
Масала. Ой номерига кўра ой ва фаслни аниқловчи
Case n of
1: write (‘Январь’);
2: write (‘Февраль’);
3: write (‘Март’);
4: write (‘Апрель’);
5: write (‘Май’);
6: write (‘Июнь’);
7: write (‘Июль’);
8: write (‘Август’);
9: write (‘Сентябрь’);
10: write (‘Октябрь’);
11: write (‘Ноябрь’);
12: write (‘Декабрь’); else writeln(‘Бундай ой йўқ’);
end;
case n of
1,2,12: writeln(‘, Қиш фасли’);
3..5:writeln(‘, Баҳор фасли’);
6..8:writeln(‘, Ёз фасли’);
9..11: writeln (‘, Куз фасли’);
end;



Download 392.5 Kb.

Do'stlaringiz bilan baham:
1   ...   13   14   15   16   17   18   19   20   ...   39




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling