让这几个数去减同一个数,我好像看见过这种算法的
解决方案 »
- 关于Adoquery的问题,求解答!在线等答案
- 开发多窗口聊天工具 客户端如何准确的在好友聊天框里显示聊天消息
- 窗体闪烁
- 高分(100分)求解DHTMLEdit 的N个问题!急急急!在线等待!
- 大家帮帮我,这条SQL语句该怎么写,应该不困难……
- 帮我看看那里有错
- qtintf.dll这个文件是用来做什么的?
- 有没有兴趣讨论如何用DELPPHI开发三层结构的MIS系统
- 请问Delphi里面在类中添加方法,函数,是否只有手工添加?还是有其他类似VC的那种方法添加而我不知道的?
- 送分!!如何调整DELPHI的环境变量设置!急!!!!
- TFileStream对读入的文件大小有限制,如何突破?
- 编译出错,请问如何解决!
我觉得这个没有特别的算法,这样就可以了啊。
1.用一个临时变量保存临时最大值。
2.把第一个元素作为临时最大值
3.从第二个元素开始循环,如果哪个元素比这个临时最大值大,把这个元素赋值给这个临时最大值
4.循环到最后,这个临时最大值就是真正的最大值了。function Max(const Aints: array of Integer): Integer
var
iIndex: Integer;
begin
if High(Aints) >=0 then begin
Result := Aints[0];
end
else begin
Exception.Create('没有元素,无法获取最大值!');
end;
for iIndex := 1 to High(Aints) do begin
if Aints[iIndex] > Result then begin
Result := Aints[iIndex];
end;
end;
end;