大师作文网谷仓安全保护 pascal
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/10/03 21:18:11
谷仓安全保护 pascal
FJ给谷仓安装了一个新的安全系统,并且要给牛群中的每一个奶牛安排一个有效的密码.一个有效的密码由L（3
FJ给谷仓安装了一个新的安全系统,并且要给牛群中的每一个奶牛安排一个有效的密码.一个有效的密码由L（3
递归的组合数生成法
var i,j,s,L,C:longint;
a,b:array[0..30] of char;
y:char;
procedure xuan(i,j:longint);
var k,m,n:integer;
begin
if j>L then
begin
m:=0;n:=0;
for k:=1 to L do
case b[k] of
'a','e','i','o','u':m:=m+1;
else
n:=n+1;
end;
if (m>=1)and(n>=2) then
begin
for k:=1 to L do write(b[k]); writeln;
end;
exit;
end else if i>C then
exit
else begin
b[j]:=a[i];
xuan(i+1,j+1);
xuan(i+1,j);
end;
end;
begin
readln(L,C);
for i:=1 to C do
read(a[i]);
for i:=1 to C-1 do
for j:=i+1 to C do
if a[i]>a[j] then begin y:=a[i];a[i]:=a[j];a[j]:=y end;
xuan(1,1);
end.
var i,j,s,L,C:longint;
a,b:array[0..30] of char;
y:char;
procedure xuan(i,j:longint);
var k,m,n:integer;
begin
if j>L then
begin
m:=0;n:=0;
for k:=1 to L do
case b[k] of
'a','e','i','o','u':m:=m+1;
else
n:=n+1;
end;
if (m>=1)and(n>=2) then
begin
for k:=1 to L do write(b[k]); writeln;
end;
exit;
end else if i>C then
exit
else begin
b[j]:=a[i];
xuan(i+1,j+1);
xuan(i+1,j);
end;
end;
begin
readln(L,C);
for i:=1 to C do
read(a[i]);
for i:=1 to C-1 do
for j:=i+1 to C do
if a[i]>a[j] then begin y:=a[i];a[i]:=a[j];a[j]:=y end;
xuan(1,1);
end.