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

发布网友发布时间：2023-11-14 07:49

共2个回答

热心网友时间：2024-11-25 03:25

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

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

热心网友时间：2024-11-25 03:25

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

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

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