Delphi面试题

Question

原题，没头，没尾，填空。function getSum(ilist:Array of integer;icount:Integer):integer;
begin
   if iCount > 0 then
      result :=______________________________
   else
      result :=______________________________;   
end;

Answer 1

uses Math;
function getSum(ilist:Array of integer;icount:Integer):integer;
begin
   if iCount > 0 then
      result := SumInt(ilist)
   else
      result := 0;
end;

Answer 2

递归调用 难道？
function getSum(ilist:Array of integer;icount:Integer):integer;
begin
   if iCount > 0 then
      result := ilist[icount]+getSum(ilist,icount-1)
   else
      result := ilist[0];
end

Answer 3

GetSum按字面意思是求和
楼上的递归蛮不错的

Answer 4

function getSum(ilist:Array of integer;icount:Integer):integer;
begin
   if iCount > 0 then
      result := ilist[icount-1] + getSum(ilist,icount-1)
   else
      result := 0;
end;

Answer 5

看主要考什么了，如果是考函数，则SumInt，如果是考递归，则用vividw的方法，不过考递归，表示出这个题的人不咋样。