宁波中小学计算机程序设计备考：Pascal字符串函数 标签：程序设计
<p>宁波中小学计算机程序设计备考：Pascal字符串函数，希望这些资料的整理对大家有所帮助。</p><p><strong>求长度length</strong></p><p>定义：function Length(S: String): Integer;</p><p>例子：</p><p>var</p><p>S: String;</p><p>begin</p><p>Readln (S);</p><p>Writeln(‘"‘, S, ‘"‘);</p><p>Writeln(‘length = ‘, Length(S));</p><p>end.</p><p><strong>复制子串copy</strong></p><p>定义： function Copy(S: String; Index: Integer; Count: Integer): String;</p><p>注意：S 是字符串类型的表达式。Index和Count是整型表达式。Copy 返回S中从Index开始，Count个字符长的一个子串。</p><p>例子：</p><p>var S: String;</p><p>begin</p><p>S := ‘ABCDEF‘;</p><p>S := Copy(S, 2, 3); { ‘BCD‘ }</p><p>end.</p><p><strong>插入子串insert</strong></p><p>定义：procedure Insert(Source: String; var S: String; Index: Integer);</p><p>注意：Source 是字符串类型的表达式。 S 是任意长度字符串类型变量。Index 是整型表达式。Insert 把 Source插在S中Index处。如果结果字符串的长度大于255，那么255之后的字符将被删除。</p><p>例子：</p><p>var</p><p>S: String;</p><p>begin</p><p>S := ‘Honest Lincoln‘;</p><p>Insert(‘Abe ‘, S, 8); { ‘Honest Abe Lincoln‘ }</p><p>end.</p><!--分页--><p><strong>删除子串delete</strong></p><p>定义：procedure Delete(var S: String; Index: Integer; Count:Integer);</p><p>注意：S 是字符串类型变量。 Index和Countare是整型表达式。Delete 删除S中从Index开始的Count个字符。如果Index大于S的长度，则不删除任何字符;如果Count大于S中从Index开始的实际字符数，则删除实际的字符数。</p><p>例子：</p><p>var</p><p>s: string;</p><p>begin</p><p>s := ‘Honest Abe Lincoln‘;</p><p>Delete(s,8,4);</p><p>Writeln(s); { ‘Honest Lincoln‘ }</p><p>Delete(s,9,10);</p><p>Writeln(s); { ‘Honest L‘ }</p><p>end.</p><p><strong>字符串转为数值val</strong></p><p>定义： procedure Val(S; var V; var Code: Integer);</p><p>在这里:</p><p>S 是由一系列数字字符构成的字符串类型变量;。</p><p>V 是整型或实型变量;</p><p>Code 是Integer型变量</p><p>注意：Val将S转为它的数值形式。</p><p>例子：</p><p>var s:string;I, Code: Integer;</p><p>begin</p><p>s:=‘2023‘;</p><p>val(s,i,code);</p><p>writeln(i); { 2023 }</p><p>end.</p><p><strong>数值转为字符串str</strong></p><p>定义： procedure Str(X [: Width [: Decimals ]]; var S:string);</p><p>注意：将数值X转成字符串形式。</p><p>例子：</p><p>var</p><p>S: string;</p><p>begin</p><p>Str(I, S);</p><p>IntToStr := S;</p><p>end;</p><p>begin</p><p>Writeln(IntToStr(-2023));</p><p>Readln;</p><p>end.</p><!--分页--><p><strong>求子串起始位置pos</strong></p><p>定义：function Pos(Substr: String; S: String): Byte;</p><p>注意：Substr和S字符串类型表达式。Pos在S中搜索Substr并返回一个integer值。这个值是Substr的第一个字符在S中的位置。如果在S中没有找到Substr，则Pos返回0。</p><p>例子：</p><p>var S: String;</p><p>begin</p><p>S := ‘ 123.5‘;</p><p>{ Convert spaces to zeroes }</p><p>while Pos(‘ ‘, S) > 0 do</p><p>S := ‘0‘;</p><p>end.</p><p><strong>字符完全串连+</strong></p><p>定义：操作符+把两个字符串联在一起。</p><p>例子：</p><p>var s1,s2,s:string;</p><p>begin</p><p>s1:=‘Turbo ‘;</p><p>s2:=‘pascal‘;</p><p>s:=s1+s2; { ‘Turbo pascal‘ }</p><p>end.</p><p><strong>字符串压缩空格串连-</strong></p><p>定义：操作符-去掉第一个字符串最后的空格后，将两个字符串联在一起。</p><p>例子：</p><p>var s1,s2,s:string;</p><p>begin</p><p>s1:=‘Turbo ‘;</p><p>s2:=‘pascal‘;</p><p>s:=s1-s2; { ‘Turbopascal‘ }</p><p>end.</p>
页:
[1]