程序设计-省句中.ppt

Ord(x) 求字符对应的序号与就是ASCII码 Chr(x)求ASCII码对应字符 ord(‘A’) ord(‘A’)+32 Chr(ord(‘A’)+32) 65 97 ‘a’ st china St[1] St[2] St[3] St[4] St[5] c h i n a 可以看成 字符串是由字符组成的有穷序列。一个字符串中的字符可以通过其对应的下标灵活使用 操作 类型 作用 返回值 例子 length(s) 函数 求字符串s的长度 整型 s:=123456789;l:=length(s);{l的值为9} copy（s,w,k) 函数 复制s中从w开始的k位 字符串 s:=123456789;s1:=copy(s,3,5);{s1的值是34567} val(s,k,code) 过程 将字符串s转为数值，存在k中；code是错误代码 ? var s:string;k,code:integer;begins:=1234;val(s,k,code);write(k);{k=1234} str(i,s) 过程 将数值i转为字符串s ? i:=1234;str(i,s);write(s);{s=1234} Delete(s,w,k) 过程 在s中删除从第w位开始的k个字符 ? s := Honest Abe Lincoln;Delete(s,8,4);Writeln(s); { Honest Lincoln } Insert(s1, S, w) 过程 将s1插到s中第w位 ? S := Honest Lincoln;Insert(Abe , S, 8); { Honest Abe Lincoln } Pos(c, S) 函数 求字符c在s中的位置 整型 S := 123.5;i :=Pos( , S);{i的值为1} + 运算符 将两个字符串连接起来 ? s1:=1234;s2:=5678;s:=s1+s2; 操作 类型 作用 返回值 例子 length(s) 函数 求字符串s的长度 整型 s:=123456789;l:=length(s);{l的值为9} copy（s,w,k) 函数 复制s中从w开始的k位 字符串 s:=123456789;s1:=copy(s,3,5);{s1的值是34567} val(s,k,code) 过程 将字符串s转为数值，存在k中；code是错误代码 ? var s:string;k,code:integer;begins:=1234;val(s,k,code);write(k); {k=1234} str(i,s) 过程 将数值i转为字符串s ? i:=1234;str(i,s);write(s); {s=1234} Delete(s,w,k) 过程 在s中删除从第w位开始的k个字符 ? s := Honest Abe Lincoln;Delete(s,8,4);Writeln(s); { Honest Lincoln } Insert(s1, S, w) 过程 将s1插到s中第w位 ? S := Honest Lincoln;Insert(Abe , S, 8); { Honest Abe Lincoln } Pos (c, S) 函数 求字符c在s中的位置 整型 S := 123.5;i :=Pos( , S);{i的值为1} + 运算符 将两个字符串连接起来 ? s1:=1234;s2:=5678;s:=s1+s2; var s:string; i,j,len,k:integer; begin readln(s); len:=length(s); for i:=1 to len do if (ord(s[i])=ord(A)) and (ord(s[i])=ord(Z)) then s[i]:=chr(ord(s[i])-ord(A)+ord(a)); for i:=1 to len do if (ord(s[i])ord(x)) then s[i]:=chr(ord(s[i])+3) else s[i]:=chr(ord(s[i])-23); write(s); write(/); for j:=1 to 3 do begin i:=1; while i=len-j do begin s[i]:=s[i+j];