repeat-until.txt

编译原理课程设计,清华大学版教材的pl0编译器的源码.

var x,y,rem;
begin
  read(x);
  read(y);
  repeat
    rem:=x;
    x:=x-1;
    write(x);
  until rem=0;
  write(x)
end.