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


Download 1.74 Mb.
bet52/96
Sana30.04.2023
Hajmi1.74 Mb.
#1413831
1   ...   48   49   50   51   52   53   54   55   ...   96
Bog'liq
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:
1   ...   48   49   50   51   52   53   54   55   ...   96




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