Ўзбекистон Республикаси Олий ва Ўрта Махсус таълим вазирлиги Фаргона политехника институти

2.2Константалар ва узгарувчилар

Константа, узгарувчи, типлашган константа

Хар кандай дастур кандайдир берилганлар билан ишлаган такдирдагина манога эга булади. Худди бошка дастурлаш тиллари каби , Паскаль тили хам константа ёки узгарувчи куринишидаги берилганлар билан иш олиб боради. Шундай килиб ,дастурдаги хар бир элемент узгарувчи ёки константа булади. Константа ва узгарувчилар узларининг идентификаторлари (номлари) оркали аникланади ва шу номлар оркали уларга мурожат этилади.

Константалар деб дастур бошида эълон килинган ва дастур охиригача узгармайдиган кийматларга айтилади. Константани
аниклаш учун резервлашган CONST сузидан фойдаланамиз.
Ёзилишит: CONST
<идентификатор> = <константанинг киймати>;
Масалан.
CONST
Max = 1000;
Vxod = 'Сегмент 5';
Шундай константалар хам борки, уларга константалар кийматини олдиндан аникламасдан туриб хам мурожат этиш мумкин. Уларнинг бази бирлари 2.1- таблицада келтирилган.
2.1.-табл. Резервлашган константалар.

Идентификатор	Тип	Киймат	Ёэилиши
True False Maxint	Boolean Boolean Integer	True False 32767	“Рост” “Ёлгон” Максималбутун

Узгарувчиларнинг консантанталардан фарки шундаки ,улар уз кийматларини дастур иши давомида узгартириши мумкин. Хар кандай узгаривчилар ва константалар аник бир берилганлар типига киради. Константалар типини автоматик тарзда копмеляторлар ёрдамида аникланади. Узгаручиларнинг типи улар билан ишлашдан олдин эълон килиниши зарур. Узгарувчиларни эълон килиш учун VAR сузи кулланилади.
Ёзилиши: VAR
<идентификатор> : <тип>;
Масалан.
VAR
Sum1,Sum2: real;
Узгарувчининг номи "кобик" хисобланиб, уни кийматлар билан тулдириш мумкин, лекин константалар билан буни килиб булмайди.
Константа ва узгарувчилардан ташкари иккала узгаривчи оралигида кулланиладиган типлашган костанталар мавжуд. "Типлашган" сузи константаларни эълон килишда узгарувчилардаги каби контантанинг типи хам курсатилиши кераклигини билдиради.
Ёзилиши: CONST
<идентификатор>:<тип>=<киймат>;
Масалан.
CONST
VideoSeg : word = $B800;