Question

编程：口袋中有红、黄、蓝、白、黑5种颜色的球若干个。每次从口袋中先后取3个球，问得到3种不同颜色的

编程：口袋中有红、黄、蓝、白、黑5种颜色的球若干个。每次从口袋中先后取3个球，问得到3种不同颜色的可能取法，打印出出每种排列情况

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

排列程序：
var
b:array[1..5] of string[2];
i,j,k:integer;
begin
b[1]:='红'; b[2]:='黄'; b[3]:='蓝'; b[4]:='白'; b[5]:='黑';
for i:=1 to 5 do for j:=1 to 5 do for k:=1 to 5 do
if (j<>i)and(k<>i)and(k<>j) then
writeln(b[i]:2,b[j]:2,b[k]:2);
end.
红黄蓝
红黄白
红黄黑
红蓝黄
红蓝白
红蓝黑
红白黄
红白蓝
红白黑
红黑黄
红黑蓝
红黑白
黄红蓝
黄红白
黄红黑
黄蓝红
黄蓝白
黄蓝黑
黄白红
黄白蓝
黄白黑
黄黑红
黄黑蓝
黄黑白
蓝红黄
蓝红白
蓝红黑
蓝黄红
蓝黄白
蓝黄黑
蓝白红
蓝白黄
蓝白黑
蓝黑红
蓝黑黄
蓝黑白
白红黄
白红蓝
白红黑
白黄红
白黄蓝
白黄黑
白蓝红
白蓝黄
白蓝黑
白黑红
白黑黄
白黑蓝
黑红黄
黑红蓝
黑红白
黑黄红
黑黄蓝
黑黄白
黑蓝红
黑蓝黄
黑蓝白
黑白红
黑白黄
黑白蓝
====================================================
组合程序：
var
a:array[1..5] of byte;
b:array[1..5] of string[2];
c:array[1..500] of byte;
i,j,k,m,n,t:integer;
begin
a[1]:=1; a[2]:=2; a[3]:=4; a[4]:=8; a[5]:=16;
b[1]:='红'; b[2]:='黄'; b[3]:='蓝'; b[4]:='白'; b[5]:='黑';
m:=0;
for i:=1 to 5 do for j:=1 to 5 do for k:=1 to 5 do
if (j<>i)and(k<>i)and(k<>j) then begin
inc(m);
c[m]:=a[i]+a[j]+a[k];
t:=0;
for n:=1 to m-1 do if c[m]=c[n] then inc(t);
if t=0 then writeln(b[i]:2,b[j]:2,b[k]:2);
end;
end.

红黄蓝
红黄白
红黄黑
红蓝白
红蓝黑
红白黑
黄蓝白
黄蓝黑
黄白黑
蓝白黑