Pascal 如何把字符串转为字符

ganbu：char

ganbu:=copy(s,1,1);

像这一句

参见以下程序：

Var s:string;

Begin

  readln(s);

  writeln(s[1]);

End.

s[1]就是字符串第一位上的字符，可以直接调用。

for i:=1 to length(str) do

 ch[i]:=str[i];

{如果s的长度大于1，ganbu的类型是字符串数组}

for i:=1to length(s)do    ganbu[i]:=ganbu[i];

{如果s的长度是1，ganbu是字符型}

ganbu:=s[1];

（如果没记错的话，   ganbu:=copy(s,1,1);

这句应该编译不过，因为  copy(s,1,1);  是字符串型，ganbu是字符型）

其实PASCAL中的STRING也是一个数组，在第0位放了字符串长度比如a:string[20];

其中将a赋值为abc

于是有

a[0]=3;

a[1]='a';

a[2]='b';

a[3]='c';

所以，要取得一个字符串中第x位的字符，只需要ch:=a[x]就可以了