Программа денесі(операторлар тізбегі)
жүктеу/скачать 4,26 Mb.
|
cda6b05d-8cb5-11e3-bf6e-f6d299da70eeУММ ПР1
- Бұл бет үшін навигация:
- Length
| Функциялар:
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. жүктеу/скачать 4,26 Mb. Достарыңызбен бөлісу:
|