Question

设计程序，求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ，用delphi程序

各位大吓 帮帮忙

Answer 1

楼上的写得不对啊
应该有两个循环。
function SumXXX:integer;
var
i,k:integer;
begin
Result:=0;
for i:=1 to 100 do
begin
for k:=1 to i do Result:=Result+k;
end;
end;

在按钮的Click事件中
edit1.text:=inttostr(sumxxx);

Answer 2

借楼上的代码改一下

producer xxxxx;
var s,sum,i:integer;
begin
sum:=0;
s:=0;
for i:=1 to 100 do
begin
s:=s+i;
sum:=sum+s;
end;
showmessage('sum='+inttostr(sum));
end;

追问

根据这张图片，该如何写程序？？

追答

加两个控件会吧，button和edit。

我给你的就是一个过程，你写在按钮的单击事件里就行了。

showmessage('sum='+inttostr(sum));
最后这一句换成
edit.text:=inttostr(sum);

Answer 3

不会delphi
var sum=0
var s=0
for(i=1;i<=100;i++){
s+=i
sum+=s
}