Функциялар:
Copy(ts,m,n)-ts жолынан m позициясынан бастап n символын бөліп алады.Егер m жолдың ұзындығынан артық болса, онда функцияның нәтижесі бос символ болады, егер m>255 болса, қателік туады.
Tz:=’ABCDEFG’ Copy(tz,2,3) ‘BCD’
Tz:=’ABCDEFG’ Copy(tz,4,10) ‘DEFG’
Concat(tz1,tz2,…tzN)-tz1,tz2,…,tzN жолдарын көрсетілген ретпен біріктіреді.Біріктірілген жолдың ұзындығы 255-тен аспауы керек.
Concat(‘AA’,’XX’,’Y’) ‘AAXXY’
Concat(‘IBM’,’PC’) ‘IBMPC’
Length(tz)-tzжолының ұзындығын анықтайды.
Tz:=’123456789’ Length(tz) 9
Tz:=’IBM PC’ Length(tz) 6
Pos(tz1,tz2)-tz1 жолы tz2 жолында кездессе, қай жерден басталатынын көрсетеді.Нәтиже бүтін типті.tz2 жолында tz1 тізбегі кездеспесе, онда нәтиже 0-ге тең.
Tz2:=’abcdef’ Pos(‘de’, tz) 4
Tz2:=’abcdef’ Pos(‘r’, tz) 0
Val(st,n,code)-st жолдық типіндегі деректі бүтін немесе нақты типке ауыстырып, n айнмалысына меншіктейді, ал осы түрлендіру процедурасының дұрыс орындалғандығын туралы ақпарат code беріледі.
St:=1450 Val(st,n,code) code=0
Upcase(st)-қатарлы әріпті бас әріпке ауыстыру функциясы.
St:=program Upcase(st) PROGRAM
St:=turbo pascal Upcase(st) TURBO PASCAL
St:=begin Upcase(st) BEGIN
Жолдық типтегi Delete,Insert процедураларын және Pos функциясын қолданып, мысал келтiрейiк:
Program op;
Var
T,T1,T2:string[255];
I:integer;
begin
Writeln (‘текстi енгiз:’);
Readln (T);
Writeln (‘қандай символ ауыстыру керек’);
Readln (T1);
Writeln (‘ауыстыратын символ’);
Readln (T2);
While Pos (T1,T)>0 do
Begin
I:=Pos (T1,T);
Delete (T, I , Length(T1));
Insert (T2, T,I);
End;
Writeln(‘жаңа текст:’,t)
End.
Достарыңызбен бөлісу: |
