新手问问题,请指教 |
尚未結案
|
aioria
一般會員 發表:1 回覆:0 積分:0 註冊:2009-07-21 發送簡訊給我 |
hi,
我是DELPHI初学者, 我有问题想请教. 代码如下: Procedure DiscoverSomethingInteresting(Input : Array Of Integer; Out x, y, z : Integer); Var i, j, k : Integer; w : Integer; Begin z := -MaxInt; For i := 1 To Length(Input) Do Begin For j := 0 To Length(Input) - i Do Begin w := 0; For k := 0 To i - 1 Do Begin w := w Input[j k]; End; If w > z Then Begin z := w; x := j; y := j i-1; End; End; End; End; 问题: 1. 以上的代码, 有逻辑上的错误吗? 2. 从上面的代码, 可以说明, array有什么有趣的特性(应该是相对于其它的语言, 问题是这样问的.). |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |