设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/21 13:53:38
设计程序,求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);
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!,界面如图: