Ia9 -fesil-1: 9 qxd

WriteLn(Length(S)); { Çıxışa 0 qiyməti veriləcək }

• 
  Copy (St,Index,Count).Bəzən sətrin müəyyən hissəsini ayırıb götürmək la-zım gəlir. Məsələn, əgərDatedəyişəninə mənimsədilmiş'17 may 2008'sət-rindəki üç komponenti (gün, ay, il) ayrı-ayrı emal etmək tələb olunursa, bunuCopyfunksiyası vasitəsilə etmək mümkündr.
  

Tutaq ki, proqramda tarix sətri GG AAA İİİİ formatındadır. (Burada GG -ayın gününü (1-2-ci simvollar), AAA - ayın adının qısaldılması (4-6-cı sim-vollar) və İİİİ - ili (8-11-ci simvollar) göstərir). ƏgərDate, Month, DayvəYearsətir dəyişənləridirsə, aşağıdakı operatorDaydəyişəninəDatesətrininbirinci simvolundan başlayaraq iki ardıcıl simvol ('17') mənimsədəcək.

Day := Copy (Date, 1, 2);

Eyni qayda ilə ayı göstərən alt sətir ('may')Monthdəyişəninə, ili bildirənalt sətir ('2008') isəYeardəyişəninə mənimsədilir.

Month := Copy (Date, 4, 3);

Year := Copy (Date, 8, 4);

• Insert (Subst,St,Index).Bu prosedurStsətrinəIndexmövqeyindən başla-yaraqSubstsətrini artırır. Məsələn,

Insert ('p', 'Alay', 3) prosedurunun icrasından sonra

'Alay' sətri'Alpay' sətrinə çevriləcək

• 
  Delete (St,Index,Count).
  
• 
  Bu prosedurStsətrininIndexmövqeyindən baş-layaraqCountsayda simvolu silir. Məsələn,Delete ('Alqoritm',1,4)prosedu-runun tətbiqi nəticəsində'Alqoritm'sətri'ritm'sətrinə çevriləcək.
  
• 
  Pos (Subst,St).Bu funksiyaStsətrindəSubstalt sətrini axtarır. Əgər axta-rış uğurlu olarsa, funksiya nəticədə alt sətrin aşkarlandığı mövqenin nömrəsi-ni verir. Əks halda, yəni axtarış uğursuz olarsa, funksiyanın nəticəsi 0 (sıfır)olacaq. Nəzərə almaq lazımdır ki, bu funksiya alt sətri birinci aşkarladığımövqenin nömrəsini çıxışa verir. Başqa sözlə, əgər sətirdə axtarılan alt sətirdəbir neçə dəfə rast gəlinirsə, funksiyanın nəticəsi olaraq alt sətrin ilk aşkarlan-dığı yerin nömrəsi götürüləcək.
  

S := '1 nömrəli orta S1 := 'orta'; J := Pos(S1, S); WriteLn(J); { Ekrana

məktəb';

11 ədədi çıxarılacaq }

0 ədədi çıxarılacaq }
S1 := 'əsas'; J := Pos(S1, S); WriteLn(J); { Ekrana

• Val (St,X,Code).Turbo Pascalda sətri ədədə çevirən standart funksiya -Val funksiyası vardır. Bu zaman, təbii ki, çevrilən sətir ədədi sətir olmalıdır (yəni,ədəddən ibarət olmalıdır, məsələn, '17.5' , yaxud '1234' ). Funksiyanın para-metrlərindənStilkin sətrin özü,Xalınan ədədin mənimsədildiyi dəyişən,Code isə çevrilmənin uğurla keçib-keçmədiyini bildirən parametrdir. Belə ki,çevrilmə uğurlu olarsa,Codeparametrinin qiyməti 0 olacaq, əks halda həminparametrə sətirdə səhvin baş verdiyi yerin nömrəsi yazılacaq. Aşağıdakı pro-qram fraqmentiNumStrdəyişəninə tam ədədi qiymət verir.

repeat