初学者请教问题

HitSoft 2008-01-07 05:26:30
var
a:array [1..3,1..4,1..5] of Integer;
s,i,j,k:Integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }
for i:=Low(a) to High(a) do
for j:=Low(a[i]) to High(a[i]) do
for k:=Low(a[i,j]) to High(a[i,j]) do
a[i,j,k]:=1;
s:=0;
for i:=Low(a) to High(a) do
for j:=Low(a[i]) to High(a[i]) do
for k:=Low(a[i,j]) to High(a[i,j]) do
s:=s+a[i,j,k];
Writeln(s);
Readln;
end.
我想知道a[i,j,k]:=1;该语句在上面程序起到什么作用?当删除这条语句的时候,结果是0。
原答案:60。
...全文
84 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
HitSoft 2008-01-07
  • 打赏
  • 举报
回复
我自己用白纸计算上面程序的答案,我得出的结果是59,还有一个1不知道跑那里去。
hongqi162 2008-01-07
  • 打赏
  • 举报
回复
数组赋值
现在很多做透明加解密的初学者都比较困惑,不知从何下手,我也是如此,从什么都不会开始,慢慢肯文件系统内幕,到OSR上面请教,四个月的时间还是收获颇丰。其实真正研究以后会发现,很多都是体力活,要不断的去跟踪文件的操作流程。在这里发一个基于minifilter的透明加解密的驱动源码仅供大家参考,其中也实现了对文件标识的处理,文件标识放在文件尾部。算是抛砖引玉吧。坦白的说,这个代码并不稳定(偶尔与norton杀毒软件会有冲突),但是我觉得整个流程是正确的,可能有些细节还没有考虑清楚,我觉得对初学者还是有一定帮助吧,当然大虾们可以跳过,呵呵。另外,有关加解密算法的代码由于不是我写的,也不好公开,所以我把相关代码用“\\\”给注释掉了(但没有去掉),请大家见谅,不过不会对整个流程产生影响。大家可以重点看一下各个派遣函数的实现。 欢迎大家拍砖,觉得有点意思就顶一下啊,在看代码的过程中如果有什么好的建议,也希望能告诉我。 最后非常感谢XiangXiangRen,zzbwang,neak47等网友在这段时间内对我的帮助。XiangXiangRen的书以及zzbwang的帖子对我完成这项工作有很大的帮助和参考价值,在此谨与大家分享。 编译环境:WDK6001.18002 XP x86 PS: 您可以将附件中的代码进行修改和转发,但转发时请注明出处。 http://bbs.driverdevelop.com/htm_data/39/1001/119736.html

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧