字符串

大榕树 \ Pascal语言 \ Pascal入门

字符串

原文链接：http://www.mydrs.org/program/list.asp?id=177

〖语法分析〗

    字符串用于存放整批的字符数据。通常编程中使用字符串存放字符化了的数字数据。如高精度运算时存放操作数和运算结果。字符串可以看作是特殊的字符串数组来处理。当然，它也有自已的特点。下面是字符串定义的格式：

var

s:string; s1:string[15];

字符串定义时，如不指定长度，则按该类型的最大长度（255个字符）分配空间，使用时最大可用长度为255个；如果在中括号中给出一个具体的值（1—255之间），则按这个值的大小分配空间。使用时，最大的可用长度即为该值。

     1、字符串的输入、输出：

字符串类型既可按数组方式输入、输出，也可直接输入、输出：readln(s)；writeln(s)；多个字符串输入时以回车作为数据间的分隔符；每个readln语句只能读入一个字符串。

2、有关字符串的操作：

操作

类型

作用

返回值

例子

length(s)

函数

求字符串s的长度整型 s:='123456789';

l:=length(s);{l的值为9}

copy（s,w,k)

函数

复制s中从w开始的k位字符串 s:='123456789';

s1:=copy(s,3,5);{s1的值是'34567'}

val(s,k,code)

过程

将字符串s转为数值，存在k中；code是错误代码

var s:string;k,code:integer;

begin

s:='1234';

val(s,k,code);

write(k);{k=1234}

str(i,s)

过程

将数值i转为字符串s i:=1234;

str(i,s);

write(s);{s='1234'}

Delete(s,w,k)

过程

在s中删除从第w位开始的k个字符 s := 'Honest Abe Lincoln';

Delete(s,8,4);

Writeln(s); { 'Honest Lincoln' }

Insert(s1, S, w)

过程

将s1插到s中第w位 S := 'Honest Lincoln';

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

Pos(c, S)

函数

求字符c在s中的位置整型 S := ' 123.5';

i :=Pos(' ', S);{i的值为1}

+

运算符

将两个字符串连接起来 s1:='1234';

s2:='5678';

s:=s1+s2;{'12345678'}

   练习题：

1、做一个加法器。完成30000以内的加法，两个加数间用“+”连接，可以连加，回车表示式子输入完成；“#”表示结束运算，退出加法器。

2、做一个编译器，解释pascal的循环语句。

作者：
来源：NOI信息学竞赛
时间：2001-08-21

上一篇：
下一篇：过程和函数(子程序)

操作	类型	作用	返回值	例子
length(s)	函数	求字符串s的长度	整型	s:='123456789'; l:=length(s);{l的值为9}
copy（s,w,k)	函数	复制s中从w开始的k位	字符串	s:='123456789'; s1:=copy(s,3,5);{s1的值是'34567'}
val(s,k,code)	过程	将字符串s转为数值，存在k中；code是错误代码		var s:string;k,code:integer; begin s:='1234'; val(s,k,code); write(k);{k=1234}
str(i,s)	过程	将数值i转为字符串s		i:=1234; str(i,s); write(s);{s='1234'}
Delete(s,w,k)	过程	在s中删除从第w位开始的k个字符		s := 'Honest Abe Lincoln'; Delete(s,8,4); Writeln(s); { 'Honest Lincoln' }
Insert(s1, S, w)	过程	将s1插到s中第w位		S := 'Honest Lincoln'; Insert('Abe ', S, 8); { 'Honest Abe Lincoln' }
Pos(c, S)	函数	求字符c在s中的位置	整型	S := ' 123.5'; i :=Pos(' ', S);{i的值为1}
+	运算符	将两个字符串连接起来		s1:='1234'; s2:='5678'; s:=s1+s2;{'12345678'}