袋子中有五只颜色不同的球,每次任取三只,有几种不同取法pascal程序
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/15 02:02:05
袋子中有五只颜色不同的球,每次任取三只,有几种不同取法pascal程序
用集合,写出每种的结果
用集合,写出每种的结果
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个黑球,从中任取两个,取出的两个球颜色不同的取法有多少种