10wMP求将此PACSAL语言转化为C语言。。在线等(发帖人MP:122902)
管帖
杂烩式阅读
关注-
zhangkai85
楼主
- 某机要部门安装了电子锁。Ｍ个工作人员每人发一张磁卡，卡上有开锁的密码
特征。为了确保安全，规定至少要有Ｎ个人同时使用各自的磁卡才能将锁打开。问
电子锁上至少要有多少种特征? 每个人的磁卡上至少要有多少特征? 如果特征的编
号以小写英文字母表示，将每个人的磁卡的特征编号打印出来，要求输出的电子锁
的总特征数最少。
设 3<=M<=7, 1<=N<=4, Ｍ与Ｎ由键盘输入，工作人员编号用 1#,2#,...表示.
program lxw010;
无效 row=array [1..20] of shortint;
set1=set of char;
var p: row;
m,n,n2,i,j: integer;
c1,c2:longint;
s1:set1;
s2:array [1..10] of set1;
a1:char;
procedure comb2(m,n:integer; var cmn:longint);
var c:longint;
i:integer;
begin
n2:=n;
if n>(m div 2) then n2:=m-n;
c:=1;
for i:=1 to n2 do
c:=c*(m-i+1) div i;
cmn:=c;
end;
procedure comb1(n,r:integer; var p:row; var i:integer);
var j,k:integer;
begin
i:=1;
for j:=r downto 1 do
if (p[j]
begin
inc(p[j]);
for k:=j+1 to r do p[k]:=p[k-1]+1;
exit
end;
i:=0;
end;
procedure process;
var i:integer;
begin
a1:=succ(a1);
for i:=1 to n-1 do
s2[p[i]]:=s2[p[i]]+[a1];
end;
begin {main}
writeln('输入人员总数 M(<8), 开锁必需人数 N:(<=M),'); readln(m,n);
comb2(m,n-1,c1);
comb2(m-1,n-1,c2);
writeln('特征总数:',c1, ' 每个磁卡特征数:',c2);
a1:=pred('A'); s1:=[];
for i:=1 to m do s2[i]:=[];
for i:=1 to c1 do
begin a1:=succ(a1); s1:=s1+[a1] end;
for i:=1 to n-1 do p[i]:=i; p[n]:=m+1;
i:=1; a1:=pred('A');
while i>0 do
begin
process;
comb1(m,n-1,p,i);
end;
for i:=1 to m do
begin
s2[i]:=s1-s2[i];
a1:=pred('A'); write(i,'# ');
for j:=1 to c1 do
begin
a1:=succ(a1);
if a1 in s2[i] then write(a1:2);
end;
writeln;
end;
end.
2005-06-12 22:44:30-
zhangkai85
楼主(1)
- 过了没啊？
有没审核啊？
-
zhangkai85
楼主(2)
- 过了没啊？
有没审核啊？
-
strayaway
3楼
- 唉，c语言倒是会，哪个什么pacsal的就米有听说过了。帮忙顶吧！
楼主要耐心等高人啊
-
zhangkai85
楼主(4)
- 哎
好郁闷哦
-
NicotineEx
5楼
- Dragostea Din Tei
-
那一年的我们
6楼
- 帮顶了，希望达人尽早出现。
-
zhangkai85
楼主(7)
- 有无高手救救偶啊
-
珍猪
8楼
- 在北京吗？rmb交易可
-
珍猪
9楼
- 有意QQ：5492878，注明pascal，c，mop
-
Roway007
10楼
- 100w mp还可以考虑下的所。考完软考这些东西忘得差不多了。
-
小韭菜合子
11楼
- 帮顶了
-
kk20034
12楼
- 帮顶，楼主要厚道啊！！
-
zhangkai85
楼主(13)
- 晕
我总共就10几W的MP。。
到哪弄100W啊。。。
-
我们的奇迹
14楼
- 这一行有个关键字被mop转义了
无效 row=array [1..20] of shortint;
请问那个无效代表什么，要帮你也不难，只不过上次帮忙却被人骗了。
-
落日.飞鸟
15楼
- 帮顶
-
ewolf0000
16楼
- C会一点儿，就是你这个PACSAL不会，帮顶吧
-
guzhu818
17楼
- 帮顶！！！
-
泣歌之谷
18楼
- 大哥，你这个问题可以去CSDN上去问的阿！那里niu人多的像你身上的毛一样啊！BS
-
秀逗引擎
19楼
- 不捣乱，帮顶
-
goodkbb
20楼
- 小猫会C#pacsal和不会C语。。。。。。。。。