取小数函数frac(x)

　　定义：function Frac(X: Real): Real; 注意：X 是实型表达式. 结果返回 X 的小数部分; 也就是说，Frac(X) = X - Int(_X). 例子：

　　CODE:

　　var

　　R: Real;

　　begin

　　R := Frac(123.456); { 0.456 }

　　R := Frac(-123.456); { -0.456 }

　　end.

　　插入子串insert

　　定义：procedure Insert(Source: String; var S: String; Index: Integer);

　　注意：Source 是字符串类型的表达式。 S 是任意长度字符串类型变量。Index 是整型表达式。Insert 把 Source插在S中Index处。如果结果字符串的长度大于255，那么255之后的字符将被删除。

　　例子：

　　CODE:

　　var

　　S: String;

　　begin

　　S := 'Honest Lincoln';

　　Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }

　　end.

　　取整函数int(x)

　　定义：function Int(X: Real): Real; 注意：X是实型数，返回值也是实型的;返回的是X的整数部分，也就是说，X被截尾了(而不是四舍五入)例子：

　　CODE:

　　var R: Real;

　　begin

　　R := Int(123.567); { 123.0 }

　　R := Int(-123.456); { -123.0 }

　　end.

　　求长度length

　　定义：function Length(S: String): Integer;

　　例子：

　　CODE:

　　var

　　S: String;

　　begin

　　Readln (S);

　　Writeln('"', S, '"');

　　Writeln('length = ', Length(S));

　　end.

　　求子串起始位置pos

　　定义：function Pos(Substr: String; S: String): Byte;

　　注意：Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到Substr，则Pos返回0。

　　例子：

　　CODE:

　　var S: String;

　　begin

　　S := ' 123.5';

　　{ Convert spaces to zeroes }

　　while Pos(' ', S) > 0 do

　　S[Pos(' ', S)] := '0';

　　end.

　　四舍五入函数round(x)

　　定义：function Round(X: Real): Longint; 注意：X是实型表达式. Round 返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围，则出错. 例子：

　　CODE:

　　begin

　　Writeln(1.4, ' rounds to ', Round(1.4)); { 1 }

　　Writeln(1.5, ' rounds to ', Round(1.5)); { 2 }

　　Writeln(-1.4, 'rounds to ', Round(-1.4));{ -1 }

　　Writeln(-1.5, 'rounds to ', Round(-1.5));{ -2 }

　　end.