Question

请用delphi编写一段代码，计算1到100之间所有整数的和

请用delphi编写一段代码，计算1到100之间所有整数的和
急需 谢谢

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
s,i:Integer;
begin
s:=0;
for i:=1 to 100 do
begin
s:=s+i;
end;
ShowMessage(VarToStr(s));
end;

Answer 2

function IntSum(aInt : integer):Integer;
var
i : integer;
begin
result : = 0;
for i := 1 to aInt do
Result:= Result + i;
end;
//example
// ShowMessage(IntToStr(IntSum(100)))

Answer 3

var
i,j:integer;
begin
j:=0;
for i:=1 to 100 do
begin
j:=j+i;
end;
showmessage(inttostr(j));
end;