第二章 Object Pasacal语言.pptVIP

2.6 语句 6．复合语句 根据语法需要，例如，如果某个条件成立则需要执行多个语句。这时候将多个语句用begin和end括起来，形成复合语句。复合语句的格式为： begin 语句1; …… 语句n; end; 2.5.1 数学运算函数和过程 （6）指数函数 指数函数的格式为：function Exp(X: Real): Real;（说明：返回e） （7）对数函数 对数函数的格式为：function Ln(X: Real): Real;（说明：返回自然对数log x） 2.5.1 数学运算函数和过程 （8）随机函数 随机函数的格式为： function Random [ ( Range: Integer) ]; 说明： ① 返回一个大于或者等于0且小于range（range是整数）的随机整数。 ② 无参数用法，a=random，a的取值范围是0=a1。 2.5.1 数学运算函数和过程 （9）随机过程 随机过程的格式： procedure Randomize; 说明：随机种子，可以让Random产生的随机数没有规律。 2.5.1 数学运算函数和过程 （10） 函数 函数的格式为： function Pi: Extended; 说明：返回 值3.1415926535897932385。 2.5.2 字符处理函数和过程 （1）大小写转换函数 function UpperCase(const S: string): string; 说明：用于将s字符串中的所有小写字母转化为大写字母，其它字符不变。 function LowerCase(const S: string): string; 说明：用于将s字符串中的所有大写字母转化为小写字母，其它字符不变。 2.5.2 字符处理函数和过程 （2）比较字符串大小函数 比较字符串大小的格式为： function CompareStr(const S1, S2: string): Integer; 说明：s1s2返回大于0的数、s1=s2返回0，s1s2返回负数。 2.5.2 字符处理函数和过程 （3）将一个或者多个字符串连接起来的函数 函数格式为： function Concat(s1 [, s2,..., sn]: string): string; 说明：将s1、s2…sn依次连接起来。 （4）查找字符串函数 函数格式为： function Pos(Substr: string; S: string): Integer; 说明：返回substr字符在s字符串中的位置，如果找不到substr则返回0。 2.5.2 字符处理函数和过程 （5）取自字符串函数 函数格式为： function Copy(S; Index, Count: Integer): string; 说明：在s中从第index位置开始取长度为count的字字符串。如果count大于s字符串长度，则取空串，如果从index开始到最后不足count个字符，则取从index开始的所有字符。 2.5.2 字符处理函数和过程 （6）求字符串长度函数 函数格式为： function Length(S): Integer; 说明：返回s字符串的长度。 2.5.2 字符处理函数和过程 （7）去掉字符串前置不可见字符的函数 函数格式为： function TrimLeft(const S: string): string; overload; function TrimLeft(const S: WideString): WideString; overload; 说明：去掉s字符串的前置不可见字符，然后再返回s。s可以是字符型或者是宽字符型。小于或者等于#32看着不可见字符。 2.5.2 字符处理函数和过程 （8）取掉字符串前置和后面的不可见字符的函数 函数格式为： function Trim(const S: string): string; overload; function Trim(const S: WideString): WideString; overload; 说明：去掉s前面和后面的不可见字符，再返回s字符串。 2.5.2 字符处理函数和过程 （9）删除子字符串过程 函数格式为：： procedure Delete(var S: string; Index, Count:Integer); 说明：用来在字符串s中删除从index开始，count个字符长的子字符串。如果index大于字符串长度则不删除字符，如果从index到字