Pascal语言PL0程序GetSym的实现过程

Pascal语言PL0程序中，GetSym是一个获取下一个符号的过程，它的实现过程如下：

1. 定义一个字符数组ch，用来存储当前读入的字符。
2. 跳过空格、Tab、换行符等空白符号，直到读入第一个非空白符号。
3. 根据读入的第一个字符判断符号的类型，可以分为以下几种情况：

(1) 标识符：读入的第一个字符是字母，继续读入后续的字母和数字，直到读入的字符不再是字母或数字为止。

(2) 数字：读入的第一个字符是数字，继续读入后续的数字，直到读入的字符不再是数字为止。

(3) 符号：读入的第一个字符是符号，根据不同的符号返回不同的符号类型。

(4) 结束符：读入的第一个字符是文件结束符EOF，表示已经读取完整个源程序，返回结束符类型。

4. 如果读入的字符不属于以上任何一种类型，则抛出一个异常，表示无法识别的符号类型。
5. 返回读取到的符号类型和符号本身的值。