袋子中有五只颜色不同的球,每次任取三只,有几种不同取法pascal程序
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/04 13:08:52
袋子中有五只颜色不同的球,每次任取三只,有几种不同取法pascal程序
用集合,写出每种的结果
用集合,写出每种的结果
![袋子中有五只颜色不同的球,每次任取三只,有几种不同取法pascal程序](/uploads/image/z/6652274-50-4.jpg?t=%E8%A2%8B%E5%AD%90%E4%B8%AD%E6%9C%89%E4%BA%94%E5%8F%AA%E9%A2%9C%E8%89%B2%E4%B8%8D%E5%90%8C%E7%9A%84%E7%90%83%2C%E6%AF%8F%E6%AC%A1%E4%BB%BB%E5%8F%96%E4%B8%89%E5%8F%AA%2C%E6%9C%89%E5%87%A0%E7%A7%8D%E4%B8%8D%E5%90%8C%E5%8F%96%E6%B3%95pascal%E7%A8%8B%E5%BA%8F)
program ball;
const
infile='';
outfile='';
var
fin,fout:text;
color:array[1..3] of integer;
use:array[1..5] of boolean;
procedure put(x:integer);
var
i:integer;
begin
if x=4 then begin
for i:=1 to 3 do write(fout,color[i],' ');
writeln(fout);
exit;
end;
for i:=1 to 5 do
if not(use[i]) then begin
use[i]:=true;
color[x]:=i;
put(x+1);
use[i]:=false;
end;
end;
begin
assign(fin,infile);
assign(fout,outfile);
reset(fin);
rewrite(fout);
put(1);
close(fin);
close(fout);
end.
输出全排列
const
infile='';
outfile='';
var
fin,fout:text;
color:array[1..3] of integer;
use:array[1..5] of boolean;
procedure put(x:integer);
var
i:integer;
begin
if x=4 then begin
for i:=1 to 3 do write(fout,color[i],' ');
writeln(fout);
exit;
end;
for i:=1 to 5 do
if not(use[i]) then begin
use[i]:=true;
color[x]:=i;
put(x+1);
use[i]:=false;
end;
end;
begin
assign(fin,infile);
assign(fout,outfile);
reset(fin);
rewrite(fout);
put(1);
close(fin);
close(fout);
end.
输出全排列
袋子中有五只颜色不同的球,每次任取三只,有几种不同取法pascal程序
袋子里有红、黄、蓝三种颜色的珠子,每次任意取出3粒.共有多少种不同的可能性?
有10件不同的产品,每次取出2件检查,共有多少种不同取法?
小明口袋内有三种颜色的球各三个,每次取出三个不同颜色的球,有几种取法
有六本不同的数学书任取三本有几种取法?
书架上有6本不同的画报和7本不同的书,每次各取一本,有多少种不同的取法.
书架上有6本不同的画报和8本不同的故事书,每次只能取二本,共有多少种不同的取法?
5种不同颜色的小球放进5种不同颜色的袋子中,球与袋子颜色不同的放法有多少种
袋子里有两种大小相同,颜色不同的球,至少摸出几个,就能保证有2个同色
从1-9中每次取两个不同的数相加,和大于10的共有多少种取法
袋子有一些玻璃球,如果你每次从袋子里取出3个,或者每次从袋子里取出2个,或者每次从袋子里取出5个,这3种取法取,袋子里的
袋中有5个红球,3个白球和2个黑球,从中任取两个,取出的两个球颜色不同的取法有多少种