test.pl0

来自「为PL0编译器」· PL0 代码 · 共 29 行

PROGRAM TEST;
VAR A;B;C;D;
BEGIN
A:=0;
B:=0;
C:=0;
WHILE A<10
DO A+=A++;
WRITE(A);
REPEAT
B++;
C--;
UNTIL B>=A;
WRITE(B);
WRITE(C);
FOR D:=0
TO A+B
DO 
IF C<0
THEN C++
ELSE C--;
WRITE(C);
WRITE(D);
IF C<>0
THEN D:=100
ELSE D-=A*B+C;
WRITE(D)

END.