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


var Buffer:array [0 .. 1023] of Byte; const


Download 1.74 Mb.
bet16/96
Sana30.04.2023
Hajmi1.74 Mb.
#1413831
1   ...   12   13   14   15   16   17   18   19   ...   96
Bog'liq
Turbo Pascal назария

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));

  • белгиларнинг бир ўлчовли массиви:


Download 1.74 Mb.

Do'stlaringiz bilan baham:
1   ...   12   13   14   15   16   17   18   19   ...   96




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