put.txt

这是我用VC写 的一个小程序希望对大家有用

PROGRAM 1 1 1
365 1 9
CONST 2 2 4
x 2 10
= 20 2 11
31 2 12
. 27 2 14
5 2 15
; 28 2 16
BEGIN 13 3 1
DO 10 4 4
y 4 9
= 20 4 10
13 4 11
; 28 4 13
IF 7 5 1
( 31 5 3
X 5 4
<= 23 5 5
Y 5 7
) 32 5 8
THEN 8 6 4
ok 6 9
= 20 6 11
x 6 12
* 18 6 13
y 6 14
; 28 6 15