Tasdiqlayman: O`ib direktor o`rin bosari Sana IX- sinflar



Download 1,74 Mb.
bet51/86
Sana21.05.2022
Hajmi1,74 Mb.
#605444
1   ...   47   48   49   50   51   52   53   54   ...   86
Bog'liq
9-синф конспекти

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 satr­da 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.

              1. 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.

              2. a-informatika' bo'lsa, n:=Length(a); operatori bajarilganda n ning qiymati 11 ga teng bo'ladi.

              3. 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. '

              4. 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.

                1. 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

Download 1,74 Mb.

Do'stlaringiz bilan baham:
1   ...   47   48   49   50   51   52   53   54   ...   86




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2025
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish