output.txt

来自「计算机科学与技术专业课程编译原理的课程实验代码」· 文本 代码 · 共 185 行

1	program

51	testexample

28	;

2	const

52	num

20	=

101	20

27	,

53	times

20	=

102	10

28	;

3	var

54	k

27	,

55	sum1

27	,

56	sum2

27	,

57	x

29	:

4	integer

28	;

13	begin

55	sum1

30	:=

103	0

28	;

56	sum2

30	:=

103	0

28	;

54	k

30	:=

52	num

28	;

9	while

31	(

54	k

24	>=

104	1

32	)

10	do

13	begin

11	read

31	(

57	x

32	)

28	;

7	if

31	(

57	x

24	>=

103	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	-

104	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	.