数字变量排列组合

A/a,B/b,C/c,D/c,共有四组变量,两两交叉后总共有16种(2x2x2x2),请帮助排列下。
实现的大致效果,比如:ABCD,AbCD,aBCD,

const a:array[0..3]of integer=(1,2,4,8);

var i,j:integer;

begin

  for i:=0 to 15 do

  begin

    for j:=0 to 3 do

      write(chr(65+j+ord(i and a[j]>0)*32));

    writeln;

  end;

end.

温馨提示:答案为网友推荐,仅供参考
第1个回答  2014-02-18
ABCD,ABCd;
ABcD,ABcd;
AbCD,AbCd;
AbcD,Abcd;
aBCD,aBCd;
aBcD,aBcd;
abCD,abCd;
abcD,abcd
第2个回答  2014-02-18
15位的排列太大了,你恐怕没有考虑到,我这个例子只给了5位的一个排列
相似回答