帮我答题400分相送!!(急！！！！！！HELP ME)

Question

1.function sum(i:integer):integer;
   var s:integer;
  begin
    if i=1 then
           result:=1
    else
    result:=i*sum(i-1);
  end;

Answer 1

1、思路：
Round(lg(1) + lg(2) + lg(3) + ... + lg(n)) // 自然对数

Answer 2

Delphi和C++哪两个类的示例不错。比较精典，可以在候捷的论谈上找到正确的说法。两个说明一样。其实关键要考的是哪个纯虚函数为什么是Private，定义了工ABSTRACT后，为什么还要PRIVATE呢。比较有趣。如果想知道为什么，可与我联系。[email protected]。

Answer 3

dancemaple(枫之舞)
第一题用round函数不妥，round是pascal的四舍五入，现在只需要取整，将round换成trunc,并最终结果+1就行了。好在本例N！>=1，且N>=1.不然比较麻烦。
由于N!>0,所以才可以用对数来定,不然需要做一些处理。

Answer 4

請多指教:
(1) function Factorial(n:integer):int64;
    var i : integer;
    Result :=1;
    if n > 1 then 
    begin
    For i= 2 to n 
       Result := Result*n
    end;(2) A - 2; 
    B - 3;
    C - 3;
    D - 2;
    E - 4?  Having Avg(scorce) >85