TYPE ar=ARRAY[
PROCEDURE perm ( a: ar; k
VAR x: datatype; i:integer;
BEGIN
(
THEN BEGIN
(
(
writeln;
END
ELSE BEGIN
(
(
(
END;
END;
設k的初值等於
i:=
REPEAT
i:=i+
s:=s+
UNTIL NOT((i<n) AND (s<n));
TYPE num=ARRAY [
PROCEDURE Inc (VAR a
VAR i
BEGIN i
WHILE A[i]=
BEGIN A[i]
END
A[i]
END Inc
[
From:http://tw.wingwit.com/Article/program/sjjg/201311/23514.html