字符串及其应用.ppt

var s,a,b:string; k1,k2,t,n,code:integer; begin readln(s); t :=pos(+,s); n:=length(s); a:=copy(s,1,t-1); b:=copy(s,t+1,n-t); val(a,k1,code); val(b,k2,code); writeln(K1+k2); end. 1) L=length(s) 2) Copy(s,w,k) :复制s中从第w开始长度为k的子串。 s4=copy(s,5,3) 3) Pos(c, S): 求字符(串)c在串s中的位置 k=pos(s2,s) 4) + :将两个字符串连接起来 s5=s1+s2 S=‘student’ s1=‘stu’ s2=‘dent’ {L的值是7} {K的值是4} {s4的值是‘ent} {s5的值是‘student} val(s,k,code):将字符串s转为数值，存到变量k中；code是错误代码,转换成功值为0；否则返回出错位置。 val(s,k,c); 另一种转换方法： n:=length(s);k:=0;for i:=1 to n do k:=k*10+ord(s[i])-48; s=‘2007’ s1=‘324ab56’ 过程：val(s,a,c)中，c只能是整型数，如果转化成功c:=0。a可以是实数也可以是整数。 Val(’12.6’,a,c); a:=12.6 str(i,s) :将数值i转换为字符串s. i=2008 str(i,s); s=‘2008’ 7) delete(s,w,k) :在s中删除从第w位开始的连续k个字符 delete(s,4,3) 8) Insert(s1, S, w) :将s1插到s中第w个位置。 insert(s3,s,5); S=‘student’ s1=‘stu’ s2=‘den’ s3=‘2007’ {执行delete后，s的值是‘stut’} {执行insert后，s的值是‘stud2007ent’} 字符串使用中的有关说明和注意事项: 1、字符串的输入和输出: 输入:字符串是以回车作为结束标志的。所以输入必须readln(s)；每个readln语句只能读入一个字符串。不能readln(s1,s2); 输出:writeln(s); 2、字符串可以和数组一样操作： a:=’nabcdeg’; 则：a[1]:=‘n’;a[3]:=b; 输出：writeln(a); 或：for i:=1 to length(a) do write(a[i]); 3、从键盘只能接受254个字符;一般都是文件输入。 4、严格区分数字字符、数字字符串与数值的区别，但可以相互转化。 ‘4’4 ‘1326’1326 如：var a:char; i:integer; a:=‘4’;i:=ord(a)-48; writeln(i); {i=4} 字符串的应用 1、输入一个长度不超过255的字符串，将其倒置后输出。 var s:string; i:integer; begin readln(s); for i:= length(s) downto 1 do write(s[i]); end. 2、读入一个字符串，判断该字符串是否构成回文？(字符串的第一位和倒数第一位相同，第二位和倒数第二位相同……如：abcdcba，123321)，是则输出”yes”,否则输出“no” 分析： n:=length(s); s[i]与s[n-i+1] 进行比较 if s[i]s[n-i+1] then bo:=false; var s:string; bo:boolean; n,i:integer; begin readln(s); n:=length(s); bo:=true;//假设为回文 for i:=1 to n div 2 do if s[i]s[n-i+1] then bo:=false;//不是回文 if bo then writeln(yes) else writeln(no); end. 3、正确的邮箱地址格式是“用户名@服务器名”，输入一个邮箱地址，