VC/MFC
哪位大侠帮忙翻译一下啊
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区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.
相关推荐
psdock:简单智能的过程监控
psdock 一个简单的工具来启动和监控进程。 ＃安装 Linux curl -sL https://github.com/applidget/psdock/releases/download/v1.1.1/psdock_Linux_x86_64.tar.gz | tar -C /usr/local/bin -zxf - 操作系统 curl -sL https://github.com/applidget/psdock/releases/download/v1.1.1/psdock_darwin_x86_64.tar.gz | tar -C /usr/local/bin -zxf - ＃用法 ###Basic Psdock 可以非常简单地启动一个进程： psdock --command ls ###Configuration files 可以使用配置文件代替。 Juste 创
晴窗中文大侠5.0钻石版汉化工具详解
在计算机技术的初期阶段，中文处理软件工具的出现标志着中文信息处理的新纪元。由于中文字符的复杂性，早期的中文输入法、编码标准、字体设计等都经历了从无到有的过程。这些基础性工具的开发，为后续的中文信息处理奠定了坚实的基础。钻石版软件不仅仅是一个单一的翻译工具，它还提供了丰富的自定义功能，让高级用户能够根据自己的工作习惯和需求进行个性化配置。这些自定义功能涉及翻译流程的方方面面，包括快捷键设置、翻译模板和自动化脚本编写等。
TC8测试TCP-UNACCEPTABLE-04/006
TC8测试TCP-UNACCEPTABLE-04/006
PSIM-串联谐振半桥LLC开关电源+PFM变频闭环控制【仿真+计算书+参考文献】
内容概要：本文档系统性地整合了电力电子与控制系统仿真领域的丰富资源，聚焦于基于PSIM和Simulink平台的串联谐振半桥LLC开关电源建模与仿真，深入探讨PFM变频闭环控制策略的设计与实现。内容涵盖LLC谐振变换器的工作原理、关键参数设计、开环与闭环仿真模型构建、软开关技术（ZVS/ZCS）、恒压恒流双竞争控制机制以及调频控制等核心技术，配套提供完整的仿真文件、计算书和参考文献，有助于深入理解高频开关电源系统的动态响应特性与稳定性分析方法。此外，文档还汇集了大量拓展性仿真资源，涉及双向DC-DC变换器、PWM整流器、PFC电路、储能系统、微电网优化、DAB变换器、并网逆变器等多个方向，构成一套完整的科研与工程实践参考资料体系。; 适合人群：适用于电力电子、电气工程及其自动化等相关专业的高校本科生、研究生，以及从事开关电源设计、新能源系统开发、电力变换器研发等工作的工程技术人员。; 使用场景及目标：①深入学习LLC谐振变换器的拓扑结构与闭环控制原理；②掌握PSIM/Simulink在电力电子系统中的高精度建模与仿真技能；③为科研项目、学位论文或产品开发提供可复用的技术方案与代码基础；④深化对PFM控制、软启动过程、ZVS/ZCS实现机制及系统稳定性的理解； 阅读建议：建议结合文档中提供的仿真模型与计算书进行同步操作，优先剖析主电路拓扑与控制逻辑架构，再逐步开展参数调节与仿真验证实验，同时可参考所列相关资源拓展技术视野，提升综合设计能力。
【MATLAB例程，无人机避障7】基于RRT*与人工势场法（RRT*+APF）的多无人机二维动态路径规划与避障
程序采用快速扩展随机树星算法（RRT*）与人工势场法（APF），实现四架无人机在二维动态障碍环境中的路径规划与协同避碰。通过RRT*的邻域选父和节点重连优化全局参考路径，利用APF进行局部动态避障，绘制全局路径、实际轨迹、安全净间隙、速度与加速度及航程等图像，对比RRT+APF与RRT*+APF的规划效果。无人机起终点、障碍物分布、采样次数及运动约束均可自行调整。
