output.txt

词法、语法分析程序。 绝对不是目前网络上流行的任何一个版本

1
program

51
testexample

28
;

2
const

52
num

20
=

1001
20

27
,

53
times

20
=

1002
10

28
;

3
var

54
k

27
,

55
sum1

27
,

56
sum2

27
,

57
x

29
:

4
integer

28
;

13
begin

55
sum1

30
:=

1003
0

28
;

56
sum2

30
:=

1003
0

28
;

54
k

30
:=

52
num

28
;

9
while

31
(

54
k

24
>=

1004
1

32
)

10
do

13
begin

11
read

31
(

57
x

32
)

28
;

7
if

31
(

57
x

24
>=

1003
0

32
)

8
then

55
sum1

30
:=

55
sum1

16
+

57
x

28
;

56
sum2

30
:=

56
sum2

16
+

57
x

28
;

54
k

30
:=

54
k

17
-

1004
1

28
;

14
end

28
;

12
write

31
(

55
sum1

32
)

28
;

12
write

31
(

53
times

18
*

56
sum2

19
/

52
num

32
)

28
;

14
end

26
.