Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

var
mem 4 : record
case Byte of
0: (by:array [0 .. 3] of Byte);
1: (wo:array [0 ..1] of word);
2: (lo:longint);
end;
Бу мисолда МЕМ4 ёзув учта вариантдан иборат, уларнинг ћар бири хотирадан 4 байтга тенг битта ва ўша соћани эгаллайди. Дастурда, ёзувнинг ќайси майдонига мурожаат ќилишига ќараб, шу майдон 4 байтдан (BY майдон), иккита WORD туридаги (WO майдон) ёки, нићоят, LONGINT туридаги битта бутун сондан (LO майдон) иборат массив, деб ќаралиши мумкин. Масалан, бу ёзувга аввал узун бутун сифатида ќиймат бериш, кейин эса натижани байтлар ёки сўзлар бўйича таћлил ќилиш мумкин:
var
x:Word;
xb:Byte;
xl:Longint;
begin
……………
with m do
begin
lo:=trunc (2*pi*x);
if wo [1] = 0 then
if by [1] = 0 then
xb:=x[0]
else
x:=wo[0]
else
xl:=lo
end;
…………
end.
Вариант ќисмни очувчи CASE … OF, ифода танлов операторига ўхшайди, лекин, аслида, вариант ќисмнинг бошини кўрсатувчи ўзига хос хизмат сўзи ролини ўйнайди. Айнан шу учун вариант ќисм охирида CASE … OF нинг жуфти сифатида END сўзини ќўйиш керак эмас (чунки вариант ќисми – ёзувда ћамма ваќт охирги, ундан кейин RECORD нинг жуфти сифатида END туради). CASE … OF иборада танлов калити компилятор томонидан эътиборга олинмайди: Турбо Паскал томонидан унга ќўйиладиган ягона талаб шундан иборатки, калит ќандайдир стандарт ёки олдиндан эълон ќилинган тартиб турини аниќлайди. Бу турнинг ўзи эса ќуйида келадиган вариантли майдонларга ћам, танлов ўзгармаси тавсифига ћам ћеч таъсир ќилмайди. Паскалнинг стандарт версиясида танлов калити сифатида тартиб туридаги ќандайдир ўзгарувчини кўрсатиш зарур, бунда дастурнинг бажариладиган ќисмида бу ўзгарувчининг ќийматини ўзлаштириш ва шундай тарзда майдонлар танловига таъсир ќилиш мумкин. Турбо Паскалда, шунингдек, танлов калити майдонида тартиб туридаги ўзгарувчини кўрсатиш ва, ћатто унга, дастурда, ќиймат ћам бериш мумкин, бу майдон танловига таъсир ќилмайди. Турбо Паскалда танлов ўзгармаслари ихтиёрий, шу жумладан, такрорланувчи бўлиши мумкин, масалан: