logo
  1. Главная страница
  2. Рефераты
  3. Информатика и ИТ
  4. Каторлар

Каторлар

Загружено в:

20.09.2019

Скачано:

0

Размер:

84.5 KB
Скачать
www.arxiv.uz Каторлар Режа : 1. Каторли типдаги ёзувлар 2. Каторли ифодалар 3. Каторли функция ва процедуралар www.arxiv.uz Катор - бу персональ компьютернинг кодли таблицасидаги символлар кетма-кетлигидир. Ифодаларда каторлардан фойдаланилганда каторлар апостроф ичига олинади.Каторлардаги символлар сони (катор узунлиги) 0- 255 гача узгариши мумкин. Каторли типдаги берилганларни аниклаш учун string идентификаторидан фойдаланиб квадрат кавс ичида берилган каторнинг максимал узунлик киймати курсатилади. Бу киймат курсатилмаганда катор узунлиги 255 байтга тенг булади. Каторли типдаги узгарувчиларни аниклаш типларни аниклаш булимида типларни келтириш оркали ёки булмаса, тугридан-тугри узгарувчиларни эълон килиш оркали амалга ошириш мумкин. Каторли берилганлар дастурда константалар сифатида хам иштирок этиши мумкин. CASE операторида бу типдаги узгарувчилар кулланилмайди. Каторли типдаги узгарувчиларни аниклаш катор канча символлардан ташкил топганини курсатади. Ёзилиши: TYPE <тип номи> = string [каторнинг максимал узунлиги]; VAR <идентификатор,...> : < тип номи>; String типдаги узгарувчини куйидагича хам курсатиш мумкин: VAR <идентификатор,...> : string [ каторнинг максимал узунлиги]; Масалан. CONST Address = &#39; Фаргона кучаси, 2&#39;; { каторли константа } TYPE Flot = string[125]; www.arxiv.uz VAR Fstr : Flot; { берилган типлар билан ёзиш } St1 : string; {оддий холатда катор узунлиги = 255 } St2, St3 : string[50]; Nazv : string[280]; { хато , Nazv узунлиги 255 дан ортик } Каторни жойлаштириш , талаб килинган хотирани байтлардаги хажмини аниклаш учун , унинг максимал узунлиги кийматига 1 кушилади . Масалан , хотирага Fstr, St1, St2 узгарувчиларини жойлаштириш учун 126, 35 ва 51 байт керак булади . Каторнинг бошида (0 - номерли ) кушимча байт жойлашган булади ва жорий катор узунлигини курсатади. Куйидаги мисолда каторни хотирага жойлашиш структурасини куриб чикамиз. М-каторнинг максимал киймати булсин, L- жорий узунлик, А- хотира ячейкаси. У холда: A - жорий узунликни курсатади. A+1 - биринчи белги ... A+L - охирги белги A+L+1 ... - хотирадаги буш ячейка A+M Каторли ифодалар Кушиш операцияси (+),муносабат операциялари (=, <>, >, <, >=, <=) Каторли операндалар хисобланган ифодалар каторли дейилади.Улар каторли константалар, узгарувчилар ва курсаткичли функция ва операциялардан ташкил топади. Каторли берилганлар устида кушиш ва муносабат операцияларини утказиш мумкин. www.arxiv.uz Кушиш операцияси (+) бир нечта каторларни битта натижавий каторга бирлаштириш учун кулланилади. Ифода Натижа &#39;A&#39;+&#39;T&#39;+&#39; &#39;+&#39;386&#39; &#39;AT 386&#39; &#39;А&#39;+&#39;Б&#39;+&#39;В&#39;+&#39;Г&#39;+&#39;Д&#39; &#39;АБВГД&#39; Натижавий каторнинг узунлиги 255дан ортик. Муносабат операциялари (=, <>, >, <, >=, <=) 2 та каторли операндаларни солиштиради ва солиштириш чапдан унг томонга булиб, олдин хамма кушиш операциялари бажарилиб охирида муносабат операциялари амалга оширилади. Каторли операндалар устида муносабат операцияларини бажариш булев типида булиб, агар ифода рост булса, True, ёлгон булса, False кийматни кабул килади. Ифода Натижа &#39; DOS4.0&#39;<&#39;DOs4.0&#39; True &#39;akkord&#39;>&#39;AKKORD&#39; True Каторлар узунлиги буйича тенг булганда ва бир хил символлардан ташкил топгандагина каторлар бир-бирига тенг хисобланади. Ифода Киймат &#39;Принтер &#39;>&#39;Принтер&#39; True &#39;XXXXXXX&#39;>&#39;XXXXX&#39; True &#39;Office&#39;=&#39;Office&#39; True Каторли узгарувчи каторли ифодани узлаштириши учун узлаштириш оператори (:=) дан фойдаланилади. Масалан: Str1 := &#39;укувчилар гурухи&#39;; Str2 := Str1 + &#39; биринчи курс&#39;; www.arxiv.uz Fio := &#39;Шарипов Л.И.&#39;; Оператор бажарилгандан сунг узгарувчининг киймати узунлиги максимал кийматдан ортик булса, у холда унг томондаги ортикча белгилар ташлаб кетилади. A ёзуви Ифода A нинг киймати A: string[6] A := &#39;ГУРУХ 1&#39;; &#39;ГУРУХ&#39; A: string[8] A := &#39;ГУРУХ 1&#39;; &#39;ГУРУХ 1&#39; A: string[2] A := &#39;ГУРУХ 1&#39;; &#39;ГР&#39; Битта ифодада литерли ва каторли операндалар катнашиши мумкин. Агарда литерли узгарувчи каторли кийматни узлаштирса, катор узунлиги 1 га тенг, акс холда дастур бажарилишида хато булиши мумкин. Каторнинг алохида белгиларига каторнинг тартиб номери буйича (индекси) мурожаат килиш мумкин. Индекс бутун сонлардан ташкил топган булиб, индентификатордан сунг квадрат кавс ичига олинади. Масалан, Str2[1+2] ва Str2[7] лар юкорида келтирилган Str2 узгарувчининг охирги кийматларини учинчи(&#39;Д&#39;) ва еттинчи (&#39;Z&#39;) белгиларига утишни таъминлайди. Каторли берилганлар билан ишлашда махсус процедура ва функциялардан фойдаланиш мумкин. Каторли процедура ва функцилар Учириш, кушиш, сонни белгига айлантириш(STR), белгилилик кийматни сонга айлантириш (VAL), сцепление(CONCAT), катор узунлиги, поиск вхождения подстроки (POS) Delete (St,Poz,N) - St каторида Poz позициясидан бошлаб, N белги учириш,агар Poz > 255 булса, дастурда узилиш булади. Stнинг киймати Ифода Натижа &#39;абвгде&#39; Delete(Str, 4, 2); &#39;aбве&#39; &#39;река Волга&#39; Delete(Str, 1, 5); &#39;Волга&#39; www.arxiv.uz Insert (Str1, Str2, Poz) - Str1 каторининг ичига Str2ни кушиш, Poz позициясидан бошлаб. Масалан . VAR S1, S2, S3 : string[11]; ... S1 := &#39; ЕС &#39;; S2 := &#39; ЭВМ 1841&#39;; S3 := Insert(S1,S2,4); Охирги ифодани бажарилиши натижасида S3 каторининг киймати &#39; ЭВМ ЕС 1841&#39; га тенг булади . Str (IBR,St) -IBR даги кийматни сонли кийматга айлантириб натижани St каторига жойлаштириш . IBRнинг киймати Ифода Натижа 1500 Str(IBR:6,St) &#39;__1500&#39; 4.8E+03 Str(IBR:10,St) &#39;______4800&#39; 76854 Str(-IBR:3,St) &#39;-76854&#39; Val (St,IBR,Code) - St кийматни бутун ёки хакикий кийматга айлантириб, натижани IBRга жойлаштириш. Code -бутун узгарувчи. Агарда операция вактида айлантириш хатолиги руй бермаган булса, у холда Code нолга тенг. Хатолик руй берган булса, (масалан, литерли киймат сонли кийматга айлантирилган булса), Code хатолик йул куйилган белгининг позиция номерини олади. IBR киймат эса аникланмайди. Stнинг киймати Ифода Натижа &#39;1450&#39; Val(St,IBR,Cod) 1450 Code=0 &#39;14.2E+02&#39; Val(St,IBR,Cod) 1420 Code=0 &#39;14.2A+02 Val(St,IBR,Cod) ? Code=5 www.arxiv.uz Copy (St,Poz,N) - St дан N та белгилик ост каторни Poz позициядан бошлаб ажратиш. Агарда Poz > Length(St) булса, у холда натижа пробелга тенг булади, агар Poz > 255 булса бажарилишда хатолик булади. Length функцияси кейин ёритилади. Stнинг киймати Ифода Натижа &#39;ABCDEFG&#39; Copy(St, 2, 3) &#39;BCD&#39; &#39;ABCDEFG&#39; Copy(St, 4, 10) &#39;DEFG&#39; Concat (Str1,Str2,...,StrN) -каторларни руйхатда курсатилган тартибда илаштириш операциясини бажаради. Илаштирилган каторлардаги белгилар йигиндиси 255 дан ортмаслиг керак. Ифода Натижа Concat(&#39;AA&#39;,&#39;XX&#39;,&#39;Y&#39;) &#39;AAXXY&#39; Concat(&#39;Индекс &#39;,&#39;603000&#39;) &#39;Индекс 603000&#39; Length (St) - St каторидаги белгиларнинг жорий узунлигини хисоблайди. Натижа бутун типли булади. Stнинг киймати Ифода Натижа &#39;123456789&#39; Length(St) 9 &#39;System 370&#39; Length(St) 10 Pos (Str1,Str2) - Str2 каторда Str1 ост каторини пайдо булишини топади. Натижа бутун типли булиб, Str1 ост каторининг биринчи белгиси тартиб номерига тенг булади. Агар Str2.да Str1 ост катори топилмаса, натижа нолга тенг. Str1нинг киймати Ифода Натижа &#39;abcdef&#39; Pos(&#39;de&#39;,Str1) 4 &#39;abcdef&#39; Pos(&#39;r&#39;,Str1) 0 www.arxiv.uz UpCase (Ch) - каторли харфни босма харфга айлантиради. Натижа ва параметр литерли типда булади. Факат лотин алфавитидаги харфлар билан ишланади Киймат Ифода Натижа &#39;a&#39; UpCase(Ch) &#39;A&#39; Каторларни ишлатилишига мисол Мисол сифатида “югурувчи катор” дастурининг вариантларидан бирининг матнини келтирамиз. PROGRAM DemoStringGo; { Мисол : &#34; югурувчи катор &#34; } USES Crt; TYPE Stroka = string[160]; VAR Vhod: Stroka; PROCEDURE GoString (X,Y:byte; InSt:Stroka); { X,Y - “югурувчи катор”координаталари } VAR St1: Stroka; I: byte; BEGIN St1:=&#39; &#39;; ClrScr; St1:= St1+InSt; FOR I:= 1 TO Length(St1) DO BEGIN www.arxiv.uz Delete(St1,1,1); GoToXY(X,Y); Write(St1); Sound(1000); { Каторни харакатини овозли кузатиш } Delay(5); NoSound Delay(90); DelLine END END; { GoString } BEGIN { DemoStringGo } GoString(1, 10, &#39; принтерни уланг !!!&#39;); { параметр - киймат } Vhod:= &#39; Когозни урнатинг !!!&#39;; GoString(1, 14, Vhod) { параметр - узгарувчи } END. { DemoStringGo } GoString процедурасининг кулланилиши жуда кенг булиб , авария сигналларидан тортиб , то меню элементларини ташкил килишгача бажариш мумкин .

Похожие

Формал тил ва грамматикалар
Microsoft Excel 98 (2)
Microsoft Word мавзусидаги маърузани укувчиларга утиш тартиби
Microsoft Word
Тил синтаксиси ва семантикаси