聪明人的游戏 上课稿第09课199.pptVIP

智能计算 及时充电（字符串处理函数） 求字符串长度函数：length(st) 作用：求出字符串st的长度。 示例：length（’Pascal’)的值是6； 查找子串的函数：pos(st1，st) 作用：求子串st1在字符串st中的起始位置 示例：pos(‘in’，‘window’)的值是2； 求子串的函数：copy(st，p，n) 作用：提取字符串st中从第p个起的连续n个字符 示例：copy(‘window’，4，3)的值是 ‘dow’ 及时充电（字符串处理过程） 将字符串转换为数值：val(st，a，code) 作用：将st中的数字字符串转换为数值，存入变量a中，code存放返回的错误代码。 示例：val(’359’，a，c1)执行后a的值为359 将数值转换为字符串：str(v，st) 作用：将数值v转为字符串，存入字符串变量st中 示例：str(128，s1)执行后s1的值为‘128’ 插入字符串：insert(st1，st2，n) 作用：将st1中的字符串插到字符串st2的第n个位置 删除字符串：delete(st1，n1，m) 作用：删除字符串st中第n1个位置起的m个字符 智能化的加法运算 探索奥秘 展示实力 写出下列表达式的值 Length(’my name is lifeng’) Copy(’nanhai’,4,3)+’nan’ Pos(’,’,’hello Mike’) Pos(’news’, ’We have 6 new lights.’) 展示实力 * * 输入： 13 25 输出： 13+25=38 Var a,b:integer; Begin readln(a,b); Writeln(a,’+’,b,’=’,a+b); End. 输入与输出 程序 Program P1_9_1； var ch:char; sw,sw1,sw2:string; t1,a,b,c1,c2:integer; z:real; Begin Readln(sw); t1:=pos(‘+’,sw); sw1:=copy(sw,1,t1-1); sw2:=copy(sw,t1+1,length(sw)-1-t1); Val(sw1,a,c1); Val(sw2,b,c2); Writeln(sw,a+b); End. Program P1_9_2； var dm,dm1,sp,yea1,vs:string; yea:integer; Begin Readln(dm); Readln(sp); Readln(yea); dm1:=copy(dm,5,2)+copy(dm,1,4); insert(‘m’,sp,4); str(yea,yea1); vs:=chr(66)+dm1+yea1+’ ‘+sp; Writeln(vs); End. jingei olypaid 2008 Var xs,ms:string; x,y,z:real; Begin readln(x); z:=x*x; str(z:0:2,ms); str(x:0:2,xs);  ms:=xs+’*’+xs+’=‘+ms; writeln(ms); End. (运行时输入12) Var xx,x1,x2:string; w1,w2,c:integer; Begin xx:=‘1234567890’; x1:=copy(xx,2,3); x2:=copy(xx,6,2); val(x1,w1,c); val(x2,w2,c); writeln(w1+w2); End. 写出下列程序的运行结果 *