a

来自「编译器包括词法分析器,语法分析器,最后生成四元式」· 代码 · 共 136 行

program
example
;
var
a
,
b
,
c
:
integer
;
x
:
char
;
begin
if
(
a
+
c
*
3
>
b
)
and
(
b
>
3
)
then
c
:=
3
;
x
:=
2
+
(
3
*
a
)
-
b
*
c
*
8
;
if
(
2
+
3
>
a
)
and
(
b
>
3
)
and
(
a
>
c
)
then
c
:=
3
;
for
x
:=
1
+
2
to
3
do
b
:=
100
;
while
a
>
b
do
c
:=
5
;
for
x
:=
1
+
d
to
3
do
b
:=
15
;
while
t
>
b
do
c
:=
5
;
repeat
a
:=
10
;
until
a
>
b
;
end
.