var
Buffer:array [0 .. 1023] of Byte;
const
Buffer Ofs:Word = Ofs (Buffer);
Buffer Seg:Word = Seg (Buffer);
Ptr:Pointer = @ Buffer
Кўрсаткичли турдаги турдошлаштирилган ўзгармаслар:
type
Ptr=^Integer;
const
IntPtr:Ptr=nil;
Int1:Integer=0;
Int1Ptr:Ptr=@Int1;
Таснифли турдаги турдошлаштирилган ўзгармаслар:
Турбо Паскал турдошлаштирилган ўзгармасларнинг ќуйидаги таснифли турлари билан иш олиб боради:
«массив» (array) турида;
«тўплам» (set) турида;
«ёзув» (record) турида;
объект (object) турида.
Таснифли турдаги ўзгармасларни баён ќилишда унинг ћар бир аъзосининг ќиймати маълум синтактик ќоидаларга мос равишда кўрсатилади.
«Массив» туридаги турдошлаштирилган ўзгармаслар
Бу турдаги ўзгармаслар ќуйидаги синтактик ќоидаларга кўра баён этилади: уни баён этишда ћар бир ўлчамли массив аъзолари алоћида ќавсларда ёзилади ва бир-биридан вергуллар билан ажратилади. Энг ички ќавсларда жойлашган аъзолар массивнинг охирги (энг ўнгдаги) ўлчамига тўѓри келади.
«Массив» туридаги ўзгармасларга мисоллар:
const
DigVector : array [1 .. 7] of Real=
(0.1, 3.25, 21.32, 55, 11.99, 78.1, 4.5);
икки ўлчамли сонли массив:
const
DigMatrix : array [1..3,1..4] of Integer=
((1,2,3,4) , (2,3,4,5), (3,4,5,6);
Бунинг натижасида ќуйидаги кўринишдаги матрица ташкил бўлади:
1 2 3 4
2 3 4 5
3 4 5 6
const
Dig3D : array [1..4,1..3,1..2] of Byte=
(-((1,2), (1,2), (1,2)), ((1,2), (1,2), (1,2)),
((1,2), (1,2), (1,2)), ((1,2), (1,2), (1,2));
белгиларнинг бир ўлчовли массиви:
Do'stlaringiz bilan baham: |