作业帮PASCAL 组合字串
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/28 08:00:02
PASCAL 组合字串
输入
输入的第一行包含两个整数为 N 和 K 以空格隔开$（1
输入
输入的第一行包含两个整数为 N 和 K 以空格隔开$（1
其实我不是很明白题目的意思
var n,k,i,j,sum:longint;
b:array[1..26] of boolean;
temp:char;
s:string;
procedure f(s0:string);
var i:longint;
begin
if sum=k then exit;
if length(s0)=4 then begin
writeln(s0);
inc(sum);
exit;
end;
for i:=1 to n do begin
if b[i] then continue;
b[i]:=true;
f(s0+s[i]);
b[i]:=false;
end;
end;
begin
readln(n,k);
readln(s);
for i:=1 to length(s) do
for j:=i+1 to length(s) do if s[i]>s[j] then begin
temp:=s[i]; s[i]:=s[j]; s[j]:=temp;
end;
f('');
end.
var n,k,i,j,sum:longint;
b:array[1..26] of boolean;
temp:char;
s:string;
procedure f(s0:string);
var i:longint;
begin
if sum=k then exit;
if length(s0)=4 then begin
writeln(s0);
inc(sum);
exit;
end;
for i:=1 to n do begin
if b[i] then continue;
b[i]:=true;
f(s0+s[i]);
b[i]:=false;
end;
end;
begin
readln(n,k);
readln(s);
for i:=1 to length(s) do
for j:=i+1 to length(s) do if s[i]>s[j] then begin
temp:=s[i]; s[i]:=s[j]; s[j]:=temp;
end;
f('');
end.