PROCEDURE sort(r
BEGIN
FOR i:=
BEGIN
x:=r(i);r(O):=x;j:=i
WHILE x
BEGIN
r(j+
END;
r(j+
END
END;
問題一
問題二
[
From:http://tw.wingwit.com/Article/program/sjjg/201311/22974.html
PROCEDURE sort(r
BEGIN
FOR i:=
BEGIN
x:=r(i);r(O):=x;j:=i
WHILE x
BEGIN
r(j+
END;
r(j+
END
END;
問題一
問題二
[