Главная страница
Рефераты
Информатика и ИТ
Паскал программалаш тили
Паскал программалаш тили
Загружено в:
20.09.2019
Скачано:
0
Размер:
533 KB
Скачать
Похожие
Паскал тилининг асосий типлари ва Паскал программанинг структураси
Алгоритмик тилларнинг умумий тавсифи ва металингвистик формулалар тили
Паскал тилининг асосий тушунчалари
Паскал тилининг асосий тушунчалари
Xос чизикли программалаш масалалари
![тў ғ рилигини текширадиган автоматик системалардан фойдаланиш мақсадга мувофиқдир. Албатта, ҳамма ўзгарувчиларни тасвирлашни талаб қилиниши ортиқча бўлиб кўриниши мумкин, лекин программа ёзиш осонлигига қараганда, унинг ишончли бўлиши муҳимроқдир. 1982 йил А. Эддиман раҳбарлигидаги ишчи гуруҳ томонидан Паскал программалаш тилининг Британия стандарти яратилди, у бугунги кунда хал қ аро стандартга ҳам айланди. Турбо паскал тили алфавити Алфавит – бу Паскал тилида ишлатиши мумкин бўлган белги ва символлар тўпламидир. Turb о- Pascal муҳитнинг ҳамма белгилари ASCII ( American Standard Code f о r Inf о rmati о n Interchange ) кодининг стандарт белгиларидан ташкил топган. Туpбо паскал тили алфавитига қуйидагилаp киpади: 1) лотин ха p фла p и : A, B, C, ..., Z ва a,b,c,...,z; 2) а p аб p ақамла p и : 0, 1, 2, ..., 9; 3) махсус белгила p: , -, *, , , [, ], <, >, . , , , (, ), :, ;, @, ^ ,$, ', {, }, #, ( п p обел ) ; 4) арифметик амаллар белгилари: , -, *, , div , m о d ; 5) та ққ ослаш амаллари: <, < , >, > , ,<>; 6) мантиқий амаллар: n о t , and , о r , хо r ; 7) калит сўзла p: absolute, and, array, begin, case, const, constructor, destructor, div, do, downto, else, end, external, file, for, forward, function, goto, if, implementation, in, inline, interface, interrupt, label, mod, nil, not, object, of, or, packed, program, procedure, record, repeat, set, shl, shr, string, then, to, type, unit, until, uses, var, virtual, while, for.](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-6.png)
![2) ишлаётган версияда тўпламга кичкина лотин ҳарфлари киритилган бўлса, улар ва уларнинг тўпламда тартиб номерлари ўсиб бориш тартибида бўлиши шарт; 3) иккинчи қоида катта лотин ҳарфлари учун ҳам ўринли; 4) агар a ва b - белгилар бўлса, ва a>b бўлса, у ҳолда ord(a)>ord(b), агар a<b у ҳолда ord(a)<ord(b), агар a=b у ҳолда ord(a) =ord(b) бўлади. Белги ўзгармасларга қуйидаги мисол бўлади:’р’, ‘_’, '1' Char тури тартибланган тур бўлгани учун, қуйидаги стандарт функцияларини қўллашимиз мумкин: succ(x)- х белгидан кейинги белги, pred(x)- х белгидан олдинги белги, ord(x)- х белгининг тартиб номерини беради. Chr(n)- n- тартиб номерли белгини беради. Белгили турдаги қийматлар учун та ққ ослаш ва қиймат бериш амаллари ишлатилиши мумкин. Белгиларнинг қў штирноқ ичига олинган кетма-кетлиги сатр дейилади ( қў штирноқнинг ўзи кирмайди). Масалан, 'АБВ','', 'adidas' ифодалар сатр ҳисобланади. Бу турдаги ўзгарувчиларни эълон қилиш учун STRING[N]- калит сўзи ишлатилади. Бу ерда N- сатр ўзгарувчисининг узунлиги бўлиб, BYTE туридаги сон қиймат. Сатр бўш бўлиши ёки 255 гача белгидан ташкил топган бўлиши ҳам мумкин. Бўш сатр нол узуликка эга дейилади ва '' деб белгиланади. Энг узун сатр 255 белгидан ташкил топган бўлади ва хотирадан 256 байт жой эгаллайди. Агар берилган сатр ўзгарувчисини қиймати 50 тадан ортиқ белги қ абул қ илмаслиги ани қ бўлса, бу ўзгарувчини STRING[50] деб эълон қилиш мақсадга мувофиқ. Ушбу кўринишда эълон қилиш натижасида хотирадан беpилган ўзгаpувчига ажpатилган жой беш маpта қисқаpади. Сатр ўзгарувчисини хотирадан қанча жой эгаллаганини аниқлаш учун, унинг узунлигига бир байт қўшиш зарур. Ушбу қўшилган байт сатpнинг нолинчи элементи бўлиб, унда сатp узунлиги са қ ланади. Сатр тури устида қўшиш (конкатенация) ва сатрларни та ққ ослаш амаллари аниқланган. қўшиш амалини қуйидаги мисолда кўриб чи қ амиз. Prоgram Satr ;](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-14.png)
![Delete {S3,5,4} Writeln (S3):{123490} Insert (Subs: string ; var s: string ; N: integer) ; процедураси Subs сатрини S сатрининг орасига унинг N-символидан бошлаб жойлаштир и ш учун хизмат қилади. Масалан: S1: “Familasi-sharifi” ; Insert (“Ismi-“ ,10 , 5) ; Writeln (S1) ; {Familasi-Ismi-sharifi} Str (х, w, d: word; var S: string); Процедураси бутун ёки ҳақиқий турдаги Х нинг қийматини сатр турига айлантиради. Бу ерда W , Х-сони учун ажратилган позицияларнинг умумий сони, d -эса каср қисми учун позициялар сони. Val ( s : string ; Var Х: <тури>; Var I : integer ); процедураси рақамлардан ташкил топган string туридаги S сатрини, integer ёки real туридаги сонли қийматга ўзгартиради. Агар алмаштириш тўғри бўлса, I =0 бўлади, акс ҳолда I ўзгаручи ўзгартиришга хала қ ит берган символнинг номерини ифодалайди . Var X:real; S:string; I:integer; ... X:=3.1415926; Str(X:8:4,S); S:=’X=‘+S; Writeln(S); {X= 3.1416} Delete(S,1,2); { 3.1416} Val(S,X,I); if I=0 then Writeln(X:10:4) { 3.1416} else Writeln(‘ Сатрда хато бор ’, S, ‘ символ ’ S[I]);](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-17.png)
![Day: =10; Day: =Day + 12;{Day=22 қ ўшиш амали } Регуляр турлар . Регуляр тур ҳосилавий турлар синфига тегишли , яъни унинг қийматлар тўплами содда бўлмаган берилганлар структурасидан иборат . Жадвал катталик тушунчасини киритамиз . Жадвал катталик - бу чекланган миқдордаги баъзи бир қийматларнинг ( жадвал катталик элементиларининг ) тартибланган тўпламига айтилади . Барча элементлар бир хил турга тегишли бўлиб , улар элементнинг тури ( жадвал катталик учун асос тур ) деб номланади . Ҳар бир жадвал катталикнинг номи бўлиши керак , бу ном тўлиқ ўзгарувчи деб номланади , чунки унинг қиймати жадвал катталикнинг ўзидан иборат . Жадвал катталикнинг ҳар бир элементи унинг номини кўрсатиш орқали эълон қилинган бўлиши , ундан кейин квадрат қавсга олинган индекс - элементнинг селектори келиши мумкин . Шундай қилиб , алоҳида элементга мурожаат қилиш учун қуйидаги ёзув ишлатилади <жадвал катталик номи>[<индекс>] ва бу ўзгарувчига индексли ўзгарувчи дейилади. Умуман олганда индекс сифатида ифода ҳам ишлатилиши мумкин. Индексли ифоданинг тури индекснинг тури деб номланади. Индексли турнинг қийматлар тўплами тартибланган бўлиши керак. Регуляр турни эълон қилишда индекснинг турини эълон қилишдан ташқари элементнинг турини ҳам эълон қилиш керак: <регуляр тур> :: = array [<индекс тури>] of <элементни тури>; Паскал тилида тўлиқ ўзгарувчига фақат қиймат бериш амалини қўллашга рухсат этилган, индексли ўзгарувчига эса <элементни тури> учун ўринли барча амалларни қўллаш мумкин.](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-40.png)
![Паскал тилида элементлар турига хеч қандай чегара қўйилмагани сабабли элемент сифатида регуляр турнинг ўзи ҳам қатнашиши мумкин. Шу йўл билан кўп ўлчовли жадвал катталик ҳосил қилиш мумкин. Жумладан, икки ўлчовли жадвал катталик учун қуйидаги икки хил эълон қилишни ишлатиш мумкин: array[<индекс тури>,<индекс тури>] of <элемент тури> array[<индекс тури>] of array[<индекс тури>] of <элемент тури> Хусусий ўзгарувчи икки ўлчовли жадвал катталик бўлган ҳолда қуйидаги кўринишда бўлади: <жадвал катталик номи>[<индекс>,<индекс>] <жадвал катталик номи>[<индекс>][<индекс>] Қуйида жадвал катталик туридаги ўзгарувчиларни эълон қилиш ва уларга мурожаатга доир мисоллар келтирилган. 1) м: array [1...100] of real ; {m - 1 дан 100 гача номерланган ҳақиқий сонлар жадвал катталиги } 2) v : array [5..20] of integer ; { v - 5 дан 20 гача номерланган бутун сонлар жадвал катталиги } 3) z : array [1..10,1..10] of string [20]; {z - икки ўлчовли сатрлар жадвал катталиги (матрица)} программада конкрет жадвал катталик элементларини ифодалаш учун жадвал катталик номидан сўнг квадрат қавс ичида элемент номери кўрсатилади. Масалан: 1) m[7] : = 4.35; { m жадвал катталикининг еттинчи элементига 4.35 сон қиймати берилди } 2) z[8,6] : = 'араб'; {z-матрицасининг 8 сатр 6 устун кесишуви элементига 'араб' сатри ўзлаштирилади} 3) m[9] : = v[7]; {m жадвал катталикининг тўқкизинчи элементига с жадвал катталикнинг етинчи элементи ўзлаштирилади}. Регуляр турнинг синтаксиси қуйидагича ёзилади:](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-41.png)
![< регуляр турнинг берилиши>:: = type <тур номи> = array [ индекс тури] of <элемент тури>; < индекс тури>:: char boolean санаб ўтилувчи тур чегараланган тур. < элемент тури>:: <ихтиёрий тур бўлиши мумкин> Бир ва икки ўлчовли массивларни қуйидаги тасвирлаш ҳам мумкин: Var <массив номи>: array [<индекснинг ўзгариш чегараси>] of <элемент тури>; < массив номи >: array [< сатрлар диапазони >,< устунлар диапазони >] of < элемент тури > Массивлардан фойдаланишга доир мисоллар келтирамиз: 1- ўлчовли массивларни эълон қилиш : Var A: array [1..4] of real; B: array [1..3] of integer; Type MAS1 array[1..4] of real; MAS2 array[1..3] of integer; Var A: MAS1; B: MAS2; ёки Type I1 1..4; I2 1..3; MAS1 array[I1] of real; MAS2 array[I2] of integer; Var A: MAS1; B: MAS2;](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-42.png)
![2- ўлчовли массивларни эълон қилиш : Var D:array[1..2,1..3] of integer; ёки Type MATR=array[1..2,1..3] of integer; Var D: MATR; Type ST array[1..2] of integer; MATR array[1..3] of ST; Var D: MATR; Бир ўлчовли массивларни киритиш : for I: 1 to 4 do Read(A[I]); ёки for I: 1 to 4 do begin Writeln(‘A[‘,I,’] ’); Read(A[I]) end; Икки ўлчовли массивларни киритиш : for I: 1 to 2 do for J: 1 to 3 do Read(D[I,J]); { Киритиладиган сонлар : 1 3 2 4 6 7} {Икки ўлчовли массив} Бир ўлчовли массивларни чиқариш: for J: 1 to 3 do Write(B[J]:3); for J: 1 to 3 do Writeln(‘B[‘,J,’] = ’,B[J]:3); B(12,34,56) { сатр бўйича 12 34 56} { устун бўйича B[1] 12 B [ 2] 34 B [3] 56}](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-43.png)
![Бир ўлчовли массивларни чиқариш: for I: 1 to 2 do for J: = 1 to 3 do Write(D[I,J]);7 2 6 4 3 1 D ёки for I: =1 to 2 do begin Writeln;{ янги сатрга ўтиш } for J: 1 to 3 do Write(D[I,J]) { сатр элементларини чи қ ариш } end; { натижа : 1 3 2 4 6 7 } Turbo-Pascal 7.0 муҳитида массивларнинг бошлан ғ ич қ ийматлари қ уйидаги келтирилган усулда ҳам киритилиши мумкин . Type MAS2=array [1..3] of integer; MATR=array[1..2,1..3] of integer; Const B:MAS2=(12,34,56);{1 улчовли массив : 12 34 56} D : MATR =((1,3,2),(4,6,7));{2 улчовли массив: 1 3 2 4 6 7} Одатда матрица элементлари оператив хотирада сатр бўйича жойлашган бўлади. Шунинг учун матрица элементларига мурожаатни бир ўлчовли индекс (, IPR ) киритиш ёрдамида осонлаштириш мумкин. Мисол . Var D: array [1..M,1..N] of integer; у ҳолда D[I,J] учун IPR=(I-1)*N + J бўлади . Процедуралар Программалашда шундай ҳолатлар кузатиладики, унда программанинг турли жойларида мазмуни жиҳатидан бир хил алгоритмни бажаришга тўғри келадики, у мустақил қийматга эга, яъни ечилаётган асосий масаланинг](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-44.png)
![Бу ерда <аралаш тур>-яратилаётган тур номи идентификатори, < i - ўзгарувчи>-аралаш тур таркибига кирувчи ўзгарувчи (майдон) номи идентификатори, <тур номи> - ўзгарувчи тури номи. Масалан : data = record kun: 1..31; oy : string[8]; yil : word; end; var sana : data; Аралаш турдаги ўзгарувчиларни ишлатишда ўзгарувчи номи , "." ( нуқта ) ва тур таркибидаги мурожаат қилинаётган ўзгарувчи номи ёзилади . Масалан : sana.kun : = 1; sana.oy : = ' сентябрь '; sana.yil : = 1991; Турбо - Паскал тили мураккаб турлар майдонларига мурожат қилишни яна бир усулини қўллаш мумкин . With махсус калит сўзи аралаш турга бо ғ лик равишда программанинг шундай бир бўлагини аниқлайдики , унда аралаш тур номини ёзмасдан , тў ғ ридан - тў ғ ри унинг таркибидаги ўзгарувчиларга мурожаат қилиш мумкин , масалан : with sana do begin kun: =15; oy : = ' январь '; yil : = 1998 end;](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-54.png)
![Program ARALASH; Type Royhat=Record N:integer; FIS:string[15]; O:integer; Var B: Royhat; begin S1: =0; S2:қ0; For I: =1 to N do begin For K: =1 to M do Read(B.FIS [k]); Read(B,0) ; If B.0қ5 then S1: =S1 + 1; If B,FIS[1] =’A’ then S2: =S2 + 1; end; write(S1,S2) end. Тўплам тури. Паскал тилида фақат элементлари бир хил турга тегишли чекли тўпламларгина қаралади. Тўплам элементининг тури бу тўпламли турнинг асосини ташкил этувчи тур дейилади. Паскалда тўпламли турнинг қиймати тўплам бўлади. Тўпламли турнинг аниқ қиймати (ўзгарувчи ёки ўзгармас) квадрат қавсга олинган тўплам элементларининг рўйхатидан иборат бўлади: <тўпламли тури> :: = <тўпламнинг тузилиши> <тўпламнинг тузилиши> :: = [ ] ёки [< элемент>{,<элемент>}]](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-56.png)
![<элемент> :: = < ифода> ёки <ифода>. . <ифода> Тўплам элементлари асос турдаги ўзгармас ёки шу турга тегишли ифодадан ташкил топган бўлиши мумкин. Тўплам умуман айтганда бўш бўлиши мумкин , у ҳолда тўплам [ ] кўринишда ёзилади. Паскал тилида ёзилган тўпламга мисоллар: [ ], [ 2,4,5,3 ], [ ‘s’,’g’, ‘a’ ], [ n,m,4 ], [1,2. . 5], [n. . m], [ ‘a’. . ’f’,’t’,’x’. . ’z’] Тўпламда элементларнинг жойлашиш тартибини аҳамияти йў қ ва ҳар бир элемент бир марта ҳисобга олинади . Тўпламли турнинг берилиши қуйидаги кўринишда бўлади : <тўпламли тури > :: = set of < асос тур> <асос тур>::=<асос турнинг берилиши> ёки <асос турнинг номи> Масалан, set of 1. . 3 кўринишдаги тўпламли тури қиймати 1..3 диапазонидаги барча бутун сонларни ўз ичига олади. Шунинг учун, бу тўпламли турнинг қиймати бўш тўплам ва 1,2,3 сонларидан иборат тўпламлар бўлади:[ ], [1], [2], [3], [1,2],[1,3], [2,3],[ 1,2,3]. Шу тўпламларгина юқоридаги тўпламли турнинг қиймати бўлади. Тўплам турида амаллар. Тўпламли ифодалар. Паскал программалаш тилида тўпламли турнинг қийматлари устида қуйидаги амаллар аниқланган: қиймат бериш, яъни тўпламли турдаги ўзгарувчига тўпламли ифодани бериш, яъни ифоданинг қиймати тўплам бўлади(бунда ўнг ва чап томондаги қиймат бериш операторининг турлари бир бирига мос бўлиши керак) : бирлашма + ( маъноси худди математикадагидек) кесишма * ( маъноси худди математикадагидек) айирма - ( маъноси худди математикадагидек) А=В муносабати А ва В тўпламни устма-уст тушиши, А<>В - А ва В тўпламни устма-уст тушмаслиги, А В - А тўпламни В тўпламда ётиши,](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-57.png)
![А В - А тўплам В тўпламни ўз ичига олади, x in А - x - элемент А тўпламга тегишли. Шуни таъкидлаш керакки, юқорида санаб ўтилган биринчи учта амалнинг натижаси тўплам бўлади ва бу амаллар икки ўринли ҳисобланади. Уларнинг операндлари тўпламли ўзгармаслар, ўзгарувчилар ва тўпламли ифодалар. Муносабат амали эса мантиқий турдаги қиймат беради ва у ҳам икки ўринли ҳисобланади. x in А амалида биринчи операнд тўпламнинг асос турини элементи, иккинчи операнд эса тўпламли ифода, тўпламли ўзгармас ёки тўпламли ўзгарувчи бўлиши мумкин. 1-мисол. Элементлари харфлардан ташкил топган Y 1, Y 2, Y 3 тўпламлар асосида X =( Y 1 Y 2) ( Y 1 \ Y 2) тўплам ҳосил қилинсин ва Y X эканлиги текширилсин. Program T1; Type T=set of char; Var Y1,Y2,Y3:T; X:T; C:char; begin Y1: =[‘a’, ‘b’, ‘a’, ‘r’, ‘m’]; Y2: =[‘r’, ‘a’, ‘b’, ‘a’]; Y3: =[‘a’, ‘r’]; X: =(Y1*Y2) + (Y1-Y2); For c: =’a’ to ‘r’ do If c in x then write (c); If y3<=x then write(‘y3 in x’) else](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-58.png)
![write(‘y3 not in x’) end. 2- мисол . Нуқта билан тугайдиган берилган матнда а , е , с , h харфларининг неча марта учрашини аниқловчи программа тузилсин . Program N1; Var c1: char; k : integer; begin read(c1); k: =0; while c <> ’.’ do begin if c1 in [‘a’, ‘e’, ‘c’, ‘h’] then k: =k + 1; read(c1); end; writeln(k) end. Мустақил бажариш учун топшириқлар . 1) var p : set of 0..9; i,j : integer; Quyidagi o'zlashtirish operatorlari bajarilganda, i=3 va j=5 bo'lganida p o'zgaruvchisi qanday qiymat qabul qiladi: a) p:= [i+3, j div2, j..sqr(i)-3]; b) p:= [2*i..j]; v) p:=[i,j,2*i, 2*j] 2) type satr = array [1..100] of char; Berilgan s satrga kiruvchi ‘+’ , ’-‘ va ’*’ belgilarni va raqamlarning umumiy sonini hisoblovchi hisob(s) funktsiyasi tuzilsin.](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-59.png)
![Кўрсатгич туридаги ўзгарувчининг қиймати программа бажарилиши жараёнида амалга оширилади. Кўрсатгич тур синтаксиси қуйидагича <кўрсатгич тур> ^ < тур номи>, бу ерда - кўрсатгич тур аломати, <тур номи> - стандарт ёки олдин аниқланган тур. Мисол : type Vector array [1..100] of integer dinamic_vector ^ Vector; Var p:^ integer; q:^char; Dinvec:dinamic_vector; Одатда кўрсатгич туридаги ўзгарувчиларга (p, q, dinvec) кўрсатгичлар дейилади . Кўрсатгичлар схема ёрдамида қ уйидагича тасвирланади . р бизнинг ҳолда р Бўш объектга кўрсатагич nil сўзи орқали ифодаланади : p Кўрсатгичлар қиймати программа ишлаши жараёнида пайдо бўлади. Бунинг учун махсус процедура new аниқланган new (Р). Бу процедура ишлаши натижасида фактик параметрга мос динамик объект пайдо бўлади ва кўрсатгич (p) шу объектга қаратилади. Динамик объектга мурожаат синтаксиси * объект * * бутун сон](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-65.png)
![<кўрсатгич ўзгарувчи>^ Мисол учун Var p:^integer; new ( p ); p ^: 58 динамик объект 58 қийматини қабул қилади. Агар r ўзгарувчи integer турида бўлса қуйидагилар ўринли. r : r p^ r; p^ : p^ div 2; work_vec^[p^ 1] : 100; Кўрсатгич туридаги ўзгарувчилар учун ифода -қ иймат сифатида қ уйидагилар келиши мумкин : - бўш кўрстагич (nil); - кўрсатгич туридаги ўзгарувчи; - кўрсатгич туридаги функция. Бу ерда ифода тури ўзлаштирувчи кўрсатгич тури билан мос тушиши керак. Мисол. Қуйидаги ўзгарувчилар эълон қилинган. Var p,q : ^ integer; Амалларнинг чизмада кўриниши. Begin new(p); new(q); p q p^: 3; q^: 5 ; 5 3 * * * * 3 5](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-66.png)
![Element : Integer; Keyingi_Xalqa : Zangir End; Турбо-Паскалда модуллар. ТПдаги модуллар тадбиқий программалар кутубхонасини яратиш ва модулли программалаштириш учун кучли воситадир. Модуллар компиляция қилингандан кейин ишловчи программа (файллар) ҳосил бўлмайди балки уларни бошқа программалар таркибига қўшиш мумкин. Биламизки ТП ёрдамида компилятори программа коди 64 Кбайтдан ошмайдиган программаларни яратиши мумкин. Модулларнинг муҳим хусусиятлари шундан иборатки, ТП компилятори модулларнинг программа кодларини ҳар бир модул учун ажратилган сегмент 64 Кбайтдан катта бўлмаса ҳам алоҳида сегментларга жойлаштиради. Бу модулларни ўзига бириктирган (ишлатувчи) программа ўлчами 64 Кбайтдан катта бўлиб, фақат оператив хотира ўлчами билан чегараланиши мумкин. Бу ҳол ўз навбатида жуда ҳам катта программаларни яратиш имкониятини беради. Модуллар тузилиши. Модуллар қуйидаги тузилишга эга: UNIT < ном >; INTERFACE < интерфейс бўлими > IMPLEMENTATION < бажарилувчи қисм > [BEGIN < инициализация килувчи қисм >] END. Бу ерда UNIT–калит сўз ( инглизча модул ) бўлиб, модулнинг бошланиш қисмини билдиради; < ном > - модул номи (идентификатор). Бу ном модул файлининг дискдаги номи билан устма-уст тушиши керак.](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-68.png)
![Мисол . Var x:string; p, r:Pointer; . . . p: Addr(x); q: @x; { p º q } Pointer туридаги қ ийматни экранга чи қ ариб бўлмайди , лекин сегмент ва силжишларни алоҳида чи қ ариш мумкин : Writeln(‘ Сегмент -’,Seg(p), ‘ Силжиш - ’ , Ofs(p)); Ptr(Seg, Ofs : Word) – функцияси Addr функциясига нисбатан тескари иш қ илади , яъни сегмент ва силжиш кўрсатадиган жойга кўрстагич ҳосил қ илади . Одатда бу функция динамик структураларни хотиранинг резерв қилинган жойларига боғлаш учун ишлатилади. Қуйида кўрсатгични видеохотирага боғлашни кўришимиз мумкин. Type VideoArray Array [0..3999] of byte ; Var V:^VideoArray; Begin V: Ptr($B000,0); ... { V^[i] – бевосита видеохотира катагига мурожаат } ... End; Турбо-паскал тилининг махсус воситалари.](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-93.png)
![Бу массивлар индексларнинг берилиши билан оддий массивлардан фарқ қилади. Индекслар хотира катагининг Сегмент:Силжиш форматида қиймат бўлади. Мисол. Mem[$B000:$0000]– кўрсатилган адресдаги байт қиймати; MemW[$B000:$0000]- кўрсатилган адресдаги сўз қиймати; MemL[$B000:$0000]-кўрсатилган адресдаги иккиланган сўз қиймати; Ишлатишга мисол. Mem[$50:0] xor1{Shift-PrtScr босилишига акс таъсирни ўчириш - ёқиш} Одатда Mem, MemW, MemL массивлари хотиранинг системавий соҳасига мурожаат қилишда ишлатилади. Берилганларни кўчириш процедуралари. Бу Move процедураси бўлиб, у ўз моҳияти бўйича машина буйруғи даражасидаги амалдир. Ёзилиши . Move (Var Sourse, Dest, Nbytes : Word); Процедура учта параметрга эга бўлиб , оператив хотирадаги Nbytes – байт ўлчамидаги берилганларни кўчириш учун хизмат қ илади . Sourse – ихтиёрий турдаги ўзгаувчи бўлиб , кўчириладиган хотира бўлагининг адреси ( унинг биринчи байти ), Dest – хотирадаги кўчириш жойи ( биринчи байти ). Мисол . 1) А массив бошига В массив нусхасини олиш учун Move(B,A, SizeOf(B)) кўринишидаги мурожаатни ёзишимиз керак . 2) А массивдаги 1000 хақиқий қийматни 1- ўриндан бошлаб 100 та ўринга ўнгга силжитиш керак бўлсин . Бунинг учун оддий ҳолда - For i: 1000 Downto 1 Do A[i 100] : A[i]; Move ор қ али - Move (A[1], A[100], 1000*SizeOf(Real)); Бу ерда нусха олиш йўналиши Move томонидан автоматик тарзда аниқланади .](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-95.png)
![бошқа регистрлар чиқиш қийматлари учун ишлатилади (R.AL – функция қандай бажарилганлигини билдиради (0 – муваффақиятли ). Узилишлар билан ишлашга мисоллар. Курсорни матн экранининг (35,10) нуқтасига кўчириш. …R.AH : 2; R.DH : 10; R.DL: 35; Intr(10H, R); ... Субпроцессор ва резидент программалар . Фойдаланувчининг ўзи ҳам узилиш программаларини яратиши мумкин. Бу процедура бош қисми қуйидагича бўлиши керак. Procedure IntProc ( Flag , CS , IP , ..., ES , BP : Word ); Interrup ; Параметрлар рўйхатида узилиш бўлмаслиги керак. Бош қисмидан маълум қисмини ташлаб юбориш мумкин. Мисол . Uses Dos; Var GlVar1, GlVar2, GlVar3, ... , GlVarK : Word; {$F + } Procedure MyInterupt(Flag, Cs, Ip, Ax, ..., Bp : Word); Interrupt; Var { локал ўзгарувчилар } Begin GlVar1 : Ax; GlVar2 : Port[N]; . . . End; {$F-} Var](/data/documents/29753269-65f9-43da-965d-14c641db15b2/page-98.png)
