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

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/14 06:10:57

设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序
各位大吓帮帮忙

借楼上的代码改一下
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);

设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序设计程序,求s=1+(1+2)+(l+2+3)+…+(1+2+3+…+100)的值对任意正整数n,设计一个程序框图求s=1+1/2+1/3+...+1/n的值,并写出程序. 对任意正整数n,请设计一个程序框图,求s=1×2+2×3+3×4+…+n(n+1)的值,并写出程序对任意正整数n(n>1)设计一个程序框图求s=1/2+1/3+...+的值,并写出程序设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+n)的值设计算法求S=1／2+1／3+1／4、、、、+1／20的值及程序框图设计一个算法求S=1+2+3+…n的值,并画出程序框图对正整数100,设计一个程序框图求S=1+1/2+1/3..+1/100的值,并写出程序设计一个程序框图求S=1+1/2+1/3+1/4+……+1/n之值,并写出程序设计算法求1/1×2+1/2×3+~+1/99×100的值要求画出程序框图,写出用基本语句编写的程序请用for ….. next 设计一个程序,求：s=1!+2!+3!+…n!,界面如图：