Skip to content

Latest commit

 

History

History
1239 lines (965 loc) · 27.3 KB

work.md

File metadata and controls

1239 lines (965 loc) · 27.3 KB

[TOC]

lex描述文件

基本结构:

<定义> (可选)

%%

<规则> (必选)

%%

<代码> (可选)

定义

定义部分主要包含三部分内容,分别是:

  • C 代码定义
  • 命名正则表达式定义
  • 指令定义

C 代码定义

%{
codes
%}

%{%} 之间定义 C 代码,lex 会将这些代码直接拷贝至输出文件中。一般会在这里定义变量,include 语句等。

命名正则表达式定义

命名正则表达式定义为一系列命名的正则表达式,用于描述不同的标识符,如:functionletimport,其基本格式如下所示:

name expression

命名与正则表达式之间使用空格进行分隔。由于为正则表达式提供了命名,我们可以在其他地方直接引用该命名,引用方式为 {name}。如下所示为一个简单的示例:

letter   [a-zA-Z]
digit    [0-9]
punct    [,.:;!?]
nonblank [^ \t]
name     {letter}({letter}│{digit})

指令定义

指令定义则是通过 lex 提供的一系列以 % 开头的指令来修改内置变量的默认值。比如:

  • %array:将内置的 yytext 变量的类型设置为 char 数组类型。
  • %pointer:将内置的 yytext 标量的类型设置为 char 数组指针类型。
  • %s STATE:定义一个 STATE 状态,STATE 可以是任意字符串。lex 默认以 INITIAL 作为初始状态。
  • %e size:定义内置的 NFA 表项的数量。默认值是 1000。
  • %n size:定义内置的 DFA 表项的数量。默认值是 500。
  • %p size:定义内置的 move 表项的数量。默认值是 2500。

规则

规则部分定义了一系列的 词法翻译规则(Lexical Translation Rules),每一条词法翻译规则可以分为两部分:模式动作

  • 模式:用于描述词法规则的正则表达式
  • 动作:模式匹配时要执行的 C 代码

词法翻译规则的基本格式如下所示:

pattern action
// or
pattern {
    action
}

匹配

当词法翻译规则的模式匹配成功时,lex 默认会将匹配的 token 值存储在 yytext 变量,将匹配的 token 长度存储在 yyleng 变量。如下所示,我们使用翻译规则来统计代码的字符数、单词数、行数。

%{
    int charcount=0, linecount=0, wordcount=0;
%}
letter [^ \t\n]

%%

{letter}+     {wordcount++; charcount+=yyleng;}
.             charcount++;
\n            {linecount++; charcount++;}

在很多场景下,词法分析器必须将识别结果返回给调用者。比如,在编译器中,当识别一个标识符时,必须同时返回 符号表表项的索引token 号。由于 C 语言的 return 语句只能返回一个值,我们可以通过内置的 yylval 变量存储 token 值(即符号表项的索引)和 token 号。如下所示:

{name} { yyval = lookup(yytext); return(NAME); }

状态

如果词法翻译规则的模式的匹配依赖上下文,那么我们可以有不同的方式来处理。我们可以根据其所依赖上下文的相对位置,分为:左状态(Left State) 和 右状态(Right State)两种。

左状态

左状态的基本格式如下所示:

<STATE>(pattern) { action; BEGIN OTHERSTATE; }

其中 STATE 为定义部分的状态定义所定义的状态,使用 %s STATE 进行定义。

右状态

右状态的基本格式如下所示:

pattern/context {action}

当匹配到 pattern 时,且紧随其后是 context,那么才算匹配成功。在这种情况下,/ 后面的内容仍然位于输入流中,它们可以作为下一个匹配的输入。

代码

代码部分用于定义自定义代码,如果希望单独使用 lex,那么我们可以在代码部分里包含 main 入口函数。如果代码部分为空,那么 lex 会自动添加默认的 main 入口函数,如下所示:

int main()
{
    yylex();
    return 0;
}

注意,yylex 包含了我们上述所定义的所有逻辑

案例

假如我们希望对一段文本内容的空格进行规范化,文本如下:

This    text (all of it   )has occasional lapses , in punctuation(sometimes pretty bad) ,( sometimes not so).


(Ha!) Is this: fun? Or what!

空格规范化的要求包括:

  1. 对于多个连续的空行,只能保留一个
  2. 对于多个连续的空格,只能保留一个
  3. 标点符号前,删除空格
  4. 标点符号后,添加空格
  5. 左括号后,右括号前,删除空格
  6. 左括号前,右括号后,添加空格
  7. 后括号可以紧跟标点符号

右状态方案

如下所示,为右边状态方案。我们通过匹配多余的空格,并通过操作 yytext 来删除空格。

punct [,.;:!?]   // 匹配所有符号
text [a-zA-Z]    // 匹配所有字母
%%

")"" "+/{punct}         {printf(")");}   // 遇到)+标点,则打印), +表示匹配多个空格
")"/{text}              {printf(") ");}  // 遇到)+字母,则打印)+空格
{text}+" "+/")"         {while (yytext[yyleng-1]==’ ’) yyleng--; ECHO;} // 遇到字母+空格,并紧跟),则去除所有空格

({punct}|{text}+)/"("   {ECHO; printf(" ");} // 两个括号之间添加空格
"("" "+/{text}          {while (yytext[yyleng-1]==’ ’) yyleng--; ECHO;} // 去除(之后的所有空格

{text}+" "+/{punct}     {while (yytext[yyleng-1]==’ ’) yyleng--; ECHO;} // 去除标点前的所有空格

^" "+                   ; // 匹配以空格开头的所有字符串,忽略,不会进行传递
" "+                    {printf(" ");}  // 多个空格只输出一个空格
.                       {ECHO;} // 
\n/\n\n                 ;  // 保留一个空行
\n                      {ECHO;}

%%

左状态方案

如下所示,为左状态方案。在右状态方案中,我们需要覆盖每一种情况,很容易遗漏。翻译规则的数量可能会随着我们在空格前后识别的类别数量乘积式增长。通过使用左状态方案可以避免翻译规则乘积式增长。

使用左状态,我们在 lex 内部实现了一个有限自动机,并且指定在不同的状态转移过程中如何处理空格。某些情况下,删除空格;某些情况下,掺入空格。

在左状态方案中,我们定义了 4 种状态,分别对应左括号、右括号、文本、标点符号。不同状态下,匹配相同的内容,其状态转移操作不同。

punct [,.;:!?]
text [a-zA-Z]

%s OPEN  // 定义状态
%s CLOSE
%s TEXT
%s PUNCT

%%

" "+ ;  // 消除所有空格

<INITIAL>"("            {ECHO; BEGIN OPEN;} // (开始则进入OPEN状态
<TEXT>"("               {printf(" "); ECHO; BEGIN OPEN;} // 字母后接(则添加一个空格, 进入OPEN状态
<PUNCT>"("              {printf(" "); ECHO; BEGIN OPEN;} // 标点符号后(则添加空格,同样进入OPEN状态

")"                     {ECHO ; BEGIN CLOSE;} // 匹配到),进入CLOSE

<INITIAL>{text}+        {ECHO; BEGIN TEXT;}
<OPEN>{text}+           {ECHO; BEGIN TEXT;}
<CLOSE>{text}+          {printf(" "); ECHO; BEGIN TEXT;} // )后的字符添加一个空格
<TEXT>{text}+           {printf(" "); ECHO; BEGIN TEXT;} // 字母后的字母添加一个空格
<PUNCT>{text}+          {printf(" "); ECHO; BEGIN TEXT;} // 标点符号的后的字母添加一个空格

{punct}+                {ECHO; BEGIN PUNCT;} 

\n                      {ECHO; BEGIN INITIAL;}

%%

使用方式

$ lex -t count.l > count.c
$ cc -c -o count.o count.c
$ cc -o count count.o -ll

通过控制台输入文本,最后输入结束符 Ctrl+D,查看统计结果。

任务一

双链DNA分子中,G、C碱基对所占比例越高,其稳定性越强。编写一个lex描述文件,计算指定碱基序列里G、C碱基的比例。

测试输入:ACGTTGATCGGAATCTTCGT 预期输出:0.450

测试输入:TTACGGTACCAATGCTAATGCCTA 预期输出:0.417

代码如下:

%{

#include <stdio.h>
int gc_count = 0;
int base_count = 0;

%}


%%
[AaTt]             { base_count++; }
[GgCc]             { gc_count++; base_count++; }
\n                 { printf("%.3f\n", (float)gc_count / base_count); }
.                  ;
%%

任务二

编写一个lex描述文件,识别出指定文本串里的单词、数字和符号(空格不作处理)。

测试输入:

using namespace std;
int main()
{
    int year = 2022;
    cout << "hello" << endl;
    return 0;
}

预期输出:

using 单词
namespace 单词
std 单词
; 符号
int 单词
main 单词
( 符号
) 符号
{ 符号
int 单词
year 单词
= 符号
2022 数字
; 符号
cout 单词
< 符号
< 符号
" 符号
hello 单词
" 符号
< 符号
< 符号
endl 单词
; 符号
return 单词
0 数字
; 符号
} 符号

代码如下

%{
#include <stdio.h>
#include <string.h>

int line_number = 1;
%}

%%
[a-zA-Z][a-zA-Z0-9]*  { printf("%s 单词\n", yytext); }
[0-9]+               { printf("%s 数字\n", yytext); }
[ \t]                { /* ignore whitespace */ }
.                    { printf("%c 符号\n", yytext[0]); }
\n                   { line_number++; }
%%

任务三

编写一个yacc描述文件,实现具有加法和乘法功能的计算器。

测试输入:5*7+2 预期输出:37

测试输入:9+3*6 预期输出:27

lex代码:

%{
#include <stdio.h>
%}

/* 定义 token */
%token NUM
%token PLUS
%token TIMES

/* 定义优先级和结合性 */
%left PLUS
%left TIMES

%%

/* 定义语法规则 */
calc: expr { printf("result: %d\n", $1); }
    ;

expr: expr PLUS term { $$ = $1 + $3; }
    | term          { $$ = $1; }
    ;

term: term TIMES factor { $$ = $1 * $3; }
    | factor            { $$ = $1; }
    ;

factor: NUM { $$ = $1; }
      | '(' expr ')' { $$ = $2; }
      ;

%%

/* 词法分析器 */
int yylex() {
    int c = getchar();

    if (c == '+' || c == '*') {
        return c;
    } else if (isdigit(c)) {
        int val = c - '0';
        while (isdigit(c = getchar())) {
            val = val * 10 + (c - '0');
        }
        ungetc(c, stdin);
        yylval = val;
        return NUM;
    } else if (isspace(c)) {
        return yylex();
    } else if (c == EOF) {
        return 0;
    } else {
        fprintf(stderr, "error: unrecognized character %c\n", c);
        return -1;
    }
}

/* 错误处理函数 */
void yyerror(char const *s) {
    fprintf(stderr, "error: %s\n", s);
}

/* 主程序 */
int main() {
    yyparse();
    return 0;
}

PL/0语言

介绍

PL/0是一种基于堆栈的编程语言,用于教学和学术研究。它最初由尼古拉斯·维尔特(Niklaus Wirth)在20世纪60年代设计,是他在开发Pascal编程语言之前所创建的。

PL/0具有简单的语法结构和一组基本的控制结构。它支持整数和布尔类型,以及基本的算术和逻辑运算符。PL/0的代码是按照过程结构组织的,并且可以通过一个称为“块”的机制实现局部变量。

PL/0编译器可以将PL/0代码编译成目标代码,可以通过虚拟机或实际硬件来执行。尽管不常用于实际生产环境中,但PL/0仍然被广泛用于编译原理和编程语言教育领域,因为它展示了编译器的基本工作原理。

扩展巴克斯范式

扩展巴克斯范式(Extended Backus-Naur Form,EBNF)是程序语言语法描述的一种形式,其所使用的元符号如下标所示:

元符号 含义
<> 用尖括号括起来的中文字表示语法构造成分,或称语法单位,为非终结符;而用尖括号括起来的英文字表示一类词法单元。
::= 表示左部的语法单位由右部定义,可读作“定义为”。
| 表示“或”,即左部可由多个右部定义。
{ } 用花括号括起来的成分可以重复0次到任意多次。
[ ] 用方括号括起来的成分为任选项,即出现一次或不出现。
( ) 用圆括号括起来的成分优先。

词法分析

PL/0的单词可以划分为5个大类:保留字(关键字)、标识符、运算符、无符号整数和界符。具体如下:

(1)保留字:共有13个,包括 const , var , procedure , begin , end , odd , if , then , call , while , do , read , write 。 (2)运算符:共有11个,包括4个整型算数运算符号 + 、 - 、 * 和 / ,6个比较运算符号 < 、 <= 、 > 、 >= 、 # 和 = ,1个赋值运算符 := 。 (3)界符:共有5个,包括 ( 、 ) 、 , 、 ; 和 . 。 (4)无符号整数:是由一个或多个数字组成的序列,数字为 0 , 1 , 2 , … , 9 。 (5)标识符:是字母开头的字母数字序列,字母包括大小写英文字母: a , b , ..., z , A , B , …, Z 。

任务要求

使用C/C++语言编写PL/0编译程序的词法分析程序。 需要注意的点:

  1. 识别非法字符:如 @ 、 & 和 ! 等;
  2. 识别非法单词:数字开头的数字字母组合;
  3. 标识符和无符号整数的长度不超过8位;
  4. 能自动识别并忽略/* */及//格式的注释信息;
  5. 词法分析过程中遇到错误后能继续往下识别,并输出错误信息。

测试说明

测试输入:

const a = 10;
var   b, c;

procedure fun1;
    if a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(b);
    while b # 0 do
        begin
            call fun1;
            write(2 * c);
            read(b);
        end
end.

预期输出:

(保留字,const)
(标识符,a)
(运算符,=)
(无符号整数,10)
(界符,;)
(保留字,var)
(标识符,b)
(界符,,)
(标识符,c)
(界符,;)
(保留字,procedure)
(标识符,fun1)
(界符,;)
(保留字,if)
(标识符,a)
(运算符,<=)
(无符号整数,10)
(保留字,then)
(保留字,begin)
(标识符,c)
(运算符,:=)
(标识符,b)
(运算符,+)
(标识符,a)
(界符,;)
(保留字,end)
(界符,;)
(保留字,begin)
(保留字,read)
(界符,()
(标识符,b)
(界符,))
(界符,;)
(保留字,while)
(标识符,b)
(运算符,#)
(无符号整数,0)
(保留字,do)
(保留字,begin)
(保留字,call)
(标识符,fun1)
(界符,;)
(保留字,write)
(界符,()
(无符号整数,2)
(运算符,*)
(标识符,c)
(界符,))
(界符,;)
(保留字,read)
(界符,()
(标识符,b)
(界符,))
(界符,;)
(保留字,end)
(保留字,end)
(界符,.)

测试输入:

const 2a = 123456789;
var   b, c;

//单行注释

/*
* 多行注释
*/

procedure function1;
    if 2a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(b);
    while b @ 0 do
        begin
            call function1;
            write(2 * c);
            read(b);
        end
end.

预期输出:

(保留字,const)
(非法字符(串),2a,行号:1)
(运算符,=)
(无符号整数越界,123456789,行号:1)
(界符,;)
(保留字,var)
(标识符,b)
(界符,,)
(标识符,c)
(界符,;)
(保留字,procedure)
(标识符长度超长,function1,行号:10)
(界符,;)
(保留字,if)
(非法字符(串),2a,行号:11)
(运算符,<=)
(无符号整数,10)
(保留字,then)
(保留字,begin)
(标识符,c)
(运算符,:=)
(标识符,b)
(运算符,+)
(标识符,a)
(界符,;)
(保留字,end)
(界符,;)
(保留字,begin)
(保留字,read)
(界符,()
(标识符,b)
(界符,))
(界符,;)
(保留字,while)
(标识符,b)
(非法字符(串),@,行号:17)
(无符号整数,0)
(保留字,do)
(保留字,begin)
(保留字,call)
(标识符长度超长,function1,行号:19)
(界符,;)
(保留字,write)
(界符,()
(无符号整数,2)
(运算符,*)
(标识符,c)
(界符,))
(界符,;)
(保留字,read)
(界符,()
(标识符,b)
(界符,))
(界符,;)
(保留字,end)
(保留字,end)
(界符,.)

代码实现

定义Token的类别:

enum TokenType {
  INVALID_INDENTIFIER,
  IDENTIFIER,
  NUMBER,
  RESERVED_WORD,
  OPERATOR,
  SEPERATER,
  LONG_IDENTIFIER,
  LONG_NUMBER,
  END,
};

Token类

class Token {
public:
  TokenType type;
  Token(const std::string &str, TokenType type)
      : lexeme(str), lineno(-1), type(type) {}
  Token(const std::string &str, TokenType type, int lineno)
      : lexeme(str), lineno(lineno), type(type) {}

  std::string getLexemeString() const { return lexeme; }

  int getLineno() { return lineno; }

private:
  std::string lexeme;
  int lineno;
};

工具类StringList,用于存放字符串并判断给定字符串是否在其中。

class StringList {
public:
  StringList(std::initializer_list<std::string> init_list)
      : strings_(init_list) {}

  void add(const std::string &str) { strings_.push_back(str); }

  bool contain(const std::string &target) const {
    for (const auto &s : strings_) {
      if (s == target) {
        return true;
      }
    }
    return false;
  }

private:
  std::vector<std::string> strings_;
};

将单词分为三类——操作符、分隔符、保留字

const StringList opreratorSymbols{"+", "-",  "*",  "/",  "=",  "<",
                                  ">", "<=", ">=", "<>", ":=", "#"};

const StringList seperateeSymbols{".", ",", ";", "(", ")"};

const StringList reservedWords{"const", "var",   "procedure", "begin", "end",
                               "if",    "then",  "while",     "do",    "call",
                               "read",  "write", "odd"};

工具函数,用于将Token打印为需要的格式:

void print_info(Token token) {
  std::cout << '(';
  std::cout << tokenTypeMapper[token.type] << ',' << token.getLexemeString();
  int lineno = token.getLineno();
  if (lineno >= 0)
    std::cout << ',' << "行号:" << lineno;
  std::cout << ")" << std::endl;
};

Lexer类,用于词法分析,接收一个代码字符串,拥有属性pose、cur_lineno、lineno、lexemeString,

语法分析

PL/0语言语法的EBNF描述

改写符号

PL/0语法单位 EBNF描述 改写符号
<程序> ::=<分程序>. P
<分程序> ::=[<常量说明部分>][<变量说明部分>][<过程说明部分>]<语句> P'
<常量说明部分> ::=const<常量定义>{,<常量定义>}; I
<常量定义> ::=<标识符>=<无符号整数> D
<变量说明部分> ::=var<标识符>{,<标识符>}; V
<过程说明部分> ::=<过程首部><分程序>{;<过程说明部分>}; || {<过程首部><分程序>;} I'
<过程首部> ::=procedure<标识符>; A
<语句> ::=<赋值语句>|<条件语句>|<当型循环语句>|<过程调用语句>|<读语句>|<写语句>|<复合语句>|<空语句> S
<赋值语句> ::=<标识符>:=<表达式> S'
<复合语句> ::=begin<语句>{;<语句>}end F
<空语句> ::=ɛ E'
<条件> ::=<表达式><关系运算符><表达式>|odd<表达式> C'
<表达式> ::=[+|-]<项>{<加减运算符><项>} E
<项> ::=<因子>{<乘除运算符><因子>} T
<因子> ::=<标识符>|<无符号整数>|’(’<表达式>’)’ T'
<加减运算符> ::=+|- L
<乘除运算符> ::=*|/ M
<关系运算符> ::==|#|<|<=|>|>= R
<条件语句> ::=if<条件>then<语句> C
<过程调用语句> ::=call<标识符> V'
<当型循环语句> ::=while<条件>do<语句> W
<读语句> ::=read’(’<标识符>{,<标识符>}’)’ H
<写语句> ::=write’(’<表达式>{,<表达式>}’)’ D'

改写其余符号:

<标识符> b
<无符号整数> n
const c
var v
procedure p
begin s
end e
if i
then t
call r
while w
do d
read y
write z
# ~
>= g
<= l
:= x
odd o

改写产生式:

P P'.
P' IVI'S
I cDA' | ε
D b=n | ε
V vbB' | ε
A' ,DA' | ε
B' ,bB' | ε
I' AP'Z
Z ;I'Z | ε
A pb
S S' | C | W | V' | C | D' | F | E'
S' bxE
F bSYe
Y ;SY | ε
E' ε
C' ERE | oE
E XTX'
X + | - | ε
X' +TX' | -TX' | ε
T T'Y'
Y' MY' | ε
T' b | n | (E)
L + | -
M * | /
R = | ~ | < | l | > | g
C iC'tS
V' rb
W wC'dS
C c(bU)
D' z(EU')
U ,bU | ε
U' ,EU' | ε

任务要求

基于第二章的词法分析程序,使用C/C++语言编写PL/0编译程序的语法分析程序。

测试输入:

const a = 10;
var   b, c;

procedure p;
    if a <= 10 then
        begin
            c := b + a;
        end;

begin
    read(b);
    while b # 0 do
        begin
            call p;
            write(2 * c);
            read(b);
        end;
end.
const a = 10;
var   b, c;

begin
    read(b);
    while b # 0 do
        begin
            call p;
            write(2 * c);
            read(b);
        end;
end.

预期输出:

语法正确

测试输入:

const a := 10;
var   b, c;

procedure p;
    if a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(b);
    while b # 0 do
        begin
            call p;
            write(2 * c);
            read(b);
        end;
end.

预期输出:

(语法错误,行号:1)

测试输入:

const a = 10;
var   b, c;

//单行注释

/*
* 多行注释
*/

procedure p;
    if a <= 10 then
        begin
            c := b + a
        end;
begin
    read(b);
    while b # 0 do
        begin
            call p;
            write(2 * c);
            read(b);
        end;
end.

预期输出:

(语法错误,行号:13)

测试输入:

const a = 10;
var   b, c;

//单行注释

/*
* 多行注释
*/

procedure p;
    if a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(b);
    while b # 0
        begin
            call p;
            write(2 * c);
            read(b);
        end;
end.

预期输出:

(语法错误,行号:17)

测试输入:

const a := 10;
var   b, c d;

//单行注释

/*
* 多行注释
*/

procedure procedure fun1;
    if a <= 10 
        begin
            c = b + a
        end;
begin
    read(b;
    while b # 0 
        begin
            call fun1;
            write 2 * c);
            read(b);
        end;
end.
const a := 10;
var   b, c d;

//单行注释

/*
* 多行注释
*/

procedure procedure fun1;
    if a <= 10 
        begin
            c := b + a;
        end;
begin
        begin
            call fun1;
            read(b);
        end;
end.
(语法错误,行号:1)
(语法错误,行号:2)
(语法错误,行号:10)
(语法错误,行号:11)
(语法错误,行号:13)
(语法错误,行号:16)
(语法错误,行号:17)
(语法错误,行号:20)

语义分析

任务要求

const a = 10;
var   b, c;

//单行注释

/*
* 多行注释
*/

procedure p;
    if a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(b);
    while b # 0 do
        begin
            call p;
            write(2 * c);
            read(b);
        end;
end.
语义正确
中间代码:
(1)(syss,_,_,_)
(2)(const,a,_,_)
(3)(=,10,_,a)
(4)(var,b,_,_)
(5)(var,c,_,_)
(6)(procedure,p,_,_)
(7)(j<=,a,10,$8)
(8)(+,b,a,c)
(9)(ret,_,_,_)
(10)(read,b,_,_)
(11)(j#,b,0,$13)
(12)(j=,b,0,$17)
(13)(call,p,_,_)
(14)(*,2,c,T1)
(15)(write,T1,_,_)
(16)(read,b,_,_)
(17)(syse,_,_,_)
符号表:
const a 10
var b 0
var c 0
procedure p
const a = 10;
var   a, b, c;
procedure p;
    if a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(b);
    while b # 0 do
        begin
            call p;
            write(2 * c);
            read(b);
        end;
end.
(语义错误,行号:2)
const a = 10;
var   b, c;

//单行注释

/*
* 多行注释
*/

procedure p;
    if a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(p);
    while b # 0 do
        begin
            call p;
            write(2 * c);
            read(b);
        end;
end.
(语义错误,行号:16)
const a = 10;
var   b, c;

//单行注释

/*
* 多行注释
*/

procedure p;
    if a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(p);
    while b # 0 do
        begin
            call q;
            write(2 * c);
            read(b);
        end;
end.
(语义错误,行号:19)
const a = 10;
var   a, b, c;

//单行注释

/*
* 多行注释
*/
procedure p;
    if a <= 10 then
        begin
            c := b + a;
        end;
begin
    read(p);
    while b # 0 do
        begin
            call q;
            write(2 * d);
            read(b);
        end;
end.
(语义错误,行号:2)
(语义错误,行号:16)
(语义错误,行号:19)
(语义错误,行号:20)