哪位大侠帮忙翻译一下啊

[later]

翻译成c语言，小弟只懂c 语言
program lxw010;
type 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]<n+j-r) then
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
program lxw010;
type 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]<n+j-r) then
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;
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.

[demetry]

这个代码很简单，你如果懂C，应该可以看懂上面的程序。
自己的问题还得自己解决

[zhenxizhou]

PASCAL和C差不了多少的

[season11]

还是自己动手，丰衣足食！

[later]

哦，谢谢各位大哥，可是第一句话我就不明白啊
和c 中一般的typedef有什么区别啊

[peterguan]

type row=array [1..20] of shortint;
是不是这个意思：
shortint *row;
shortint array[20];
row=arry;

[Xeroo]

type row＝array[1..20] of shortint;
意思是
定义一个数组，上界是20，下界是1，为shortint型

[Xeroo]

sorry
是指定义一个type type名为row 类型为shortint型数组

[later]

那这又是什么意思了？？
type row=array [1..20] of shortint;
set1=set of char;

代码为：
type 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的是不是不是变量啊
谢谢

[内存泄漏]

不对，type row=array [1..20] of shortint;
set1=set of char;
这是宏定义，type 相当于c中的typedef。

[Xeroo]

type 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;

type 可以认为和typedef相同 set of char 意思是指由char组成的集合，就是在set1里面只能出现char
var 是用来定义变量的
var p:row;
c1,c2:longint;
s1:set1;
相当于
row p;
longint c1,c2;
set1 s1;
procedure comb2(m,n:integer; var cmn:longint);
里面的var不是变量名，变量名是cmn

[arvid_gs]

你对c语言到了白痴的地步

[later]

s2:array [1..10] of set1;
为什么不写成
s2:array [1..10] of char;

[qhluo02]

太长啦 .........
=:就是＝＝

[qing_li73]

If u really know c, the snippet above is simple

[ruihuahan]

up