Question

用delphi编写 求1+2+3+4+5+…+100的和。

Answer 1

function add:integer;
var
i,s:integer;
begin
s:= 0;
for i:= 0 to 100 do
begin
s := s + i;
end;
Result := s;
end;

procedure Button1Click(Sender:TObject)
begin
ShowMessage(IntToStr(add));
end;

Answer 2

function Sum0To100():integer;
var
i,s:integer;
begin
s:= 0;
for i:= 1 to 100 do s:=s+i;
result:=s;
end;