作业帮 > 综合 > 作业

pascal,从n个数中选择m个数,输出每一种组合,并统计总的个数

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 17:26:12
pascal,从n个数中选择m个数,输出每一种组合,并统计总的个数
从n个数中选择m个数,输出每一种组合,并统计总的个数.(0
program zhjh;
type stype=set of 1..100;
var
n,r:longint;
s:stype;
a:array[1..10000] of longint;
procedure print;
var
i:longint;
begin
for i:=1 to r-1 do
write(a[i],' ');
writeln(a[r]);
end;
procedure se(t,k:longint);
var i:longint;
begin
if k>r then begin print; exit; end;
for i:=t to n do
if i in s then begin
a[k]:=i;
s:=s-[i];
se(i,k+1);
s:=s+[i];
end;
end;
begin
readln(n,r);
s:=[1..n];
se(1,1);
end.
绝对正确,选我,加分