Problem

8 /13


遍历所有字符

Theory Click to read/hide

由于可以通过索引访问字符,因此可以使用变量循环遍历所有字符,这些字符将采用可能的索引值。例如,显示字符串 s 的所有字符代码的程序如下所示 <前> for i := 1 to length(s) 做 writeln(s[i], ord(s[i])) 节目说明:
1) length(s) 函数求字符串的长度。第一个字符的索引是 1,最后一个字符的索引是 length(s)。循环变量i只会取值从1到length(s)。
2) 在每一行中,首先显示交易品种本身,然后是其代码,由内置函数ord()
返回
相同的枚举可以写得更短: <前> 对于 c in s do      writeln(c, ord(c)); 在这个片段中,循环头循环遍历所有字符 s,依次将它们放入变量 c 中。

Pascal 在处理字符串时的特点是字符串是可变对象。换句话说,我们可以改变字符串的单个字符。
例如,以下语句将起作用 <前> s[5] := 'a'; 您还可以根据需要更改的字符组成新字符串。
例如,替换所有字符“a”的程序到角色“b”看起来像这样: <前> 阅读(S);     for i := 1 to length(s) 开始        如果 s[i] = 'a' 则 s[i] := 'b';    结尾; writeln(s); 在这个例子中,我们循环遍历字符串 s 的所有字符。在循环体中,我们检查变量 s[i] 的值:如果字符与字符 'a' 匹配,则我们将其替换为 'b'。
 

Problem

编写一个程序,用零和所有字母“X”替换字符串中的所有句点单位。 

例子 <头> <日># <正文>
输入 输出
1 ..X..XX 0010011