Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма
Download 1.74 Mb.
|
Turbo Pascal назария
var st:String;
begin ………… if st[s] = A then … end. Сатрдаги энг биринчи байт индекси 0 ва у сатрнинг жорий узунлигига эга. Сатрнинг 1-аниќлик белгиси иккинчи байтни эгаллайди ва 1 индексга эга бўлади. Сатр узунлиги устида зарурий амалларни бажариш ва шундай йўл билан узунликни ўзгартириш мумкин. Масалан, сатрдаги ћамма маълум бўшлиќларни ќуйидагича йўќотиш мумкин: 9.7-дастур var st:String; i:Byte; begin ………… i:=ord(st[0]); {i-} whille (i<>0) and (st[i]= ) do begin dec (i); st[0]:= chr(i) end; …………… end. Сатрнинг жорий узунлигини, яъни ORD(st[0]) ќийматни LENGTH(st) функция ёрдамида ћам ћосил ќилиш мумкин, масалан: while (Length (st) <>0) and (St[Length (st)] = ) do st[0]: = chr (Length (st)-1) Сатрларга «+» - улаш амалини ќўллаш мумкин, масалан: st:=a+b; st:=st+c; {st «abc» га эга} Агар уланган сатр узунлиги максимал мумкин бўлган узунликдан (N дан) ошса, «ортиќча» белгилар ташлаб юборилади. Масалан, ќуйидаги дастур, 1 белгини чоп этади: var st:String [1]; begin st:=123; writeLn (st) end. Сатрлар ва белгилар устидаги бошќа амаллар ќуйида келтириладиган стандарт процедура ва функциялар ёрдамида амалга оширилади. CONCAT (S1 [,S2, …, SN]) – S1, S2, …, SN сатр-параметрлар уланишини ифодаловчи string туридаги функция сатрни ќайтаради. COPY (ST, INDEX, COUNT) – INDEX раќамдан бошлаб, ST COUNT сатрдан белгиларни нусхаловчи string туридаги функция. DELETE (ST, INDEX, COUNT) – INDEX раќамли белгидан бошлаб, COUNT белгиларни ST сатрдан йўќотувчи процедура. INSERT (SUBST, ST, INDEX) – INDEX раќамли белгидан бошлаб. SUBST сатрни ST сатр орасига киритувчи процедура. LENGTH (ST) – Integer туридаги функция, ST сатр узунлигини ќайтаради. POS (SUBST, ST) – Integer туридаги функция, ST сатрдан SUBST ички сатрнинг биринчи киришини излайди ва ўзи бошланган хона раќамини ќайтаради, агар ички сатр топилмаса, нолни ќайтаради. STR (x[:WIDTH[:DECIMALS]], ST) – чиќариш олдидан WRITELN процедураси бажаргани каби, ихтиёрий ћаќиќий ёки бутун турдаги Х сонини ST символлар сатрига, ўзгартирувчи процедура; WIDT ва DECIMALS параметрлар, агар улар мавжуд бўлса, ўзгариш форматини беради: WIDTH ћаќиќий ёки бутун сонни символли ифодалаш учун ажратилган тегишли майдоннинг умумий энини, DECIMALS бўлса, каср ќисмидаги символлар сонини (бу параметр Х фаќат ћаќиќий сон бўлгандагина маънога эга) аниќлайди. VAL (ST, X, CODE) – ST символлар сатрини бутун ёки ћаќиќий Х ўзгарувчи тури билан аниќланадиган ўзгарувчининг ички ифодаланишига ўзгартирувчи процедура; CODE параметри, агар ўзгартириш муваффаќиятли ўтган бўлса, нолга эга бўлади, ва шунда Х га ўзгартириш натижаси жойлаштирилади, акс ћолда, у хато символ топилган ўрин раќамини ST сатрда саќлайди, ва бу ћолда Х таркиби ўзгармайди; ST сатрда етакчи бўшлиќлар бўлиши мумкин, лекин маълум бўшлиќларга йўл ќўйилмайди; масалан val ( 123,к,i) муваффаќиятли ўтади: К 123 ќийматни ќабул ќилади ва i га 0 жойлаштиради, val (123 ,к,i) эса хато, деб топилади: К нинг ќиймати ўзгармайди, i эса 4 га эга бўлади. UPСASE (CH) – CHAR туридаги функция, агар СН символ ифода кичик лотин ћарфини ифодаласа, функция мос бош ћарфни ќайтаради; агар СН ќиймати ихтиёрий бошќа символ бўлса (шу жумладан кирилча кичик ћарф), функция уни ўзгаришсиз ќайтаради. Мисоллар: 9.7-дастур Download 1.74 Mb. Do'stlaringiz bilan baham: |
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling