PROCEDURE bubblesort (r
BEGIN
i:=
WHILE (i<=(
BEGIN
flag:= (
FOR j:=
IF r[j]
BEGIN flag:= (
END;
i:=i+
END;
END
(
(
(
(
[
From:http://tw.wingwit.com/Article/program/sjjg/201311/22975.html
PROCEDURE bubblesort (r
BEGIN
i:=
WHILE (i<=(
BEGIN
flag:= (
FOR j:=
IF r[j]
BEGIN flag:= (
END;
i:=i+
END;
END
(
(
(
(
[