聪明人的游戏---Pascal编程探秘.ppt

随机函数 random 意义：产生大于等于0，小于1的数 即[0,1)范围内的随机小数. 说明: 如果想每次运行都可能产生不同的数,请在使用这个函数前加一个randomize(随机种子). 1 、产生P-Q（PQ）之间的随机整数（包括A，B） 公式: P+trunc((Q-P+1)*random) 例如: 50-80范围内的整数 50+trunc(31*random) 小练习: 1 、要随机产生一系列5～20范围内的整数，可用的表达式是（ ）。 A、trunc(5+15*random) B、16+trunc(5*random) C、5+trunc(15*random) D、5+trunc(16*random) 2 、写出产生下列范围随机数的表达式. (1)三位以内的整数 0+trunc(1000*random) (2)3-12范围内的整数 3+trunc(10*random) (3)50-100范围内的整数 50+trunc(51*random) (4)四位整数 1000+trunc(9000*random) 公式: P+trunc((Q-P+1)*random) 2 、产生P-Q（PQ）之间的随机数（不包括A，B） 公式: P+(Q-P)*random 例如: 100-150范围内的数 100+50*random 小练习: 1 、要随机产生一系列5～20范围内的数，可用的表达式是（ ）。 A、5+15*random B、16+5*random C、5+trunc(15*random) D、5+trunc(16*random) 2 、写出产生下列范围随机数的表达式. (1)三位以内的数 999*random (2)3-12范围内的数 3+9*random (3)50-80范围内的数 50+30*random (1)产生两个100-500之间的随机整数,输出较大的一个. var d1,d2:integer; begin randomize; d1:=____________; d2:=100+round(400*random); if _______ then writeln(d1) else writeln(d2) ; end. 小练习：根据题意完成程序 (2)根据学生的成绩给予相应的等级,对应关系如下:A:90-100 B:80-89 C:60-79 D:60分以下 var sc:integer;ch:char; begin readln(sc); case _____ of 10,9:ch:=‘A’; 8:ch:=‘B’; 6,7:ch:=‘c’; else __________; end; writeln(sc,’?’,ch) ; end. 公式: P+trunc((Q-P+1)*random) P+(Q-P)*random Lesson 14 字符串处理函数及过程 字符串用于存放批量字符的一串字符。 Var a：string; 或Var a：string[n]; A:=‘hello’ 其中正整数n(1=n=255)表示构成字符串的字符最多个数。 若字符串说明中没有指定长度，缺省值为255。 字符串 1 、 length(st) 意义：求字符串st的长度 练习： l:=length(‘pascal’) l=6 l:= length(‘23+54’) l=5 2 、 pos(st1,st) 意义：查找子串st1在st中的起始位置 练习： a:=pos(‘in’,‘windows’) a=2 a:=pos(‘+’,‘1+2=’) a=2 3 、 copy(st,p,n) 意义：提取字符串st中从第p个起的连续n个字符 说明：若p大于st的长度，则返回空串；否则，若p+n大于st的长度，则截断。 练习： a:=copy(‘windows’,4,3) a= 字符串处理函数 1 、 val(st,a,code) 意义：将字符串st转换为数值a，code存放返回的错误代码 练习： val(‘