Concat(s1,s2,…,sn);
bu yerda s1,s2,…,sn lar satrli yoki belgili o‘zgaruvchilar yoki o‘zgarmaslar bo‘lib, mazkur funksiya ularni bir biriga ketma-ket ulaydi.
Length funksiyasi satrning uzunligini (belgilari sonini) aniqlaydi. Uning yozilishi quyidagicha:
Length(s);
Agar a=‘informatika‘ bo‘lsa, n:=Length(a); operatori bajarilganda n ning qiymati 11 ga teng bo‘ladi. Chunki “informatika” so‘zida 11 ta belgi bor.
Pos funksiyasi satrdan ko‘rsatilgan belgini izlaydi. Uning yozilishi quyidagicha:
Pos(b,s);
bu yerda b – belgi, s – satr bo‘lib, Pos funksiyasi s satrdan b belgini izlaydi. Agar belgi topilsa, funksiya qiymati shu belgining satrda turgan o‘rnining son qiymatiga teng bo‘ladi. Agar berilgan satrda izlanayotgan belgi bo‘lmasa, Pos funksiyasining qiymati nolga teng bo‘ladi.
Copy funksiyasi satrning ko‘rsatilgan qismidan nusxa oladi. Uning yozilishi quyidagicha:
Copy(s,n1,n2);
bu yerda s – satr, n1 va n2 – butun sonlar bo‘lib, Copy funksiyasi s satrning n1-belgisidan boshlab n2 ta belgining nusxasini oladi. Bularning ishlatishni misollar orqali tushuntiriladi.
Concat(Sl,S2,
...,SN)
|
S1,S2,...,SN satrli (belgili) o'zgaruvchilar (o'zgarrnash7r~^" bir- birigaketma-ket ulaydi " ' 1 ,ni
|
Length(S)
|
S satrning uzunligini (belgilari sonini) aniqlaydi. "—
|
Pos(b,S)
|
S satr ichidan b so'zni izlaydi
|
Copy(S,nl,n2)
|
S satrning n 1 -belgisidan boshlab n2 tabelgining nusxasini^oiadT"
|
Ord(B)
|
Bbelgining ASCII kodini aniqlab beradi
|
Chr(a)
|
ASCII kodi agateng belgini aniqlaydi
|
|
Standart protseduralar
|
Shuni ta'kidlash joizki, dasturda funksiyalar qo'llanilganda ularning qiymati biror o'zgaruvchiga o'zlashtiriladi, protseduralar ishlatilganda esa o'zlashtirish operatorisiz yoziladi.
Endi sodda misollar ko'rib chiqiladi.
a-Sog'lom tanda -sog aql.' bo'lsa, c:= Concat(a,b); operatori bajarilganda с ning qiymati 'Sog4om tanda sog aql.'ga teng. Lekin c:= Concat(a,b); o'rniga c:=a+b; deb yozish ham kerakli natijani beradi.
a-informatika' bo'lsa, n:=Length(a); operatori bajarilganda n ning qiymati 11 ga teng bo'ladi.
a:=Pos('m', 'informatika'); operatori bajarilganda a ning qiymati 6 ga, a:=Pos('ma', 'informatika'); operatori bajarilganda ham a ning qiymati 6 ga, a:=Pos('sn', 'sinf); operatori bajarilganda a ning Qiymati 0 ga, a:=Pos(V, sinf); operatori bajarilganda esa, a ning qiymati ga teng bo'ladi. '
a:=Copy ('informatika' ,3,5); operatori bajarilsa, a ning qi>'ma 'forma' so'ziga teng bo'ladi.
a:='A' bo'lsa, Ord(a) funksiyaning qiymati 65 ga teng bo Chunki 'A' (lotin) harfining ASCII kodi 65. Ord ftmksiyasining argum o'zgarmas bo'lsa, u apostrof ichida yoziladi
Var d : String;
Begin
d:=Concat(b,a,c); WriteLn(d);
End.
misol. Kiritilgan so'zni teskarisiga o'girib beruvchi dastur tuzing. Masalan, 'ota' so'zidan 'ato' so'zi hosil bo'lishi kerak.
Yechish. Kiritilgan so'zni a, hosil bo'ladigan so'zni b bilan belgilanadi. b ning qiymatini bo'sh satrga tenglanadi (b:= "). a ning uzunligi aniq- anadi va uning chap tomonidan boshlab bittadan belgisini olib b ga chap tomondan birlashtirib boriladi. Program Teskari;
a, b, belgi: String; i, len : Integer; Begin
Write('So'z kiriting : '); ReadLn(a); Len:=Length(a); b:="; For i:=l To len Do begin
belgi:=Copy(a,i,l);{fl ning i-belgisining nusxasi olindi} b:=belgi+b; {a dan nusxasi olingan belgi b ning chap
Do'stlaringiz bilan baham: |