用delphi实现s=1+(1+2)+(1+2+3)+(1+2+3+4)+...+(1+2+...+100)的值

 我来答
windblast
推荐于2017-10-25 · 知道合伙人软件行家
windblast
知道合伙人软件行家
采纳数:5633 获赞数:13620
毕业于空军第一航空学院电子专业,1991年开始接触电脑,从事多年计算机编程,具有较丰富的经验。

向TA提问 私信TA
展开全部

试编写代码如下:

function TForm1.DoAdd(iMax:Integer):Integer;
var
  i: Integer;
  s: string;
begin
  Result := 0;
  s := '';
  for i := 1 to iMax do
  begin
    Result := Result + i;
    s := s + '+' + IntToStr(i);
  end;
  Delete(s,1,1);
  s := s + '=' + IntToStr(Result);
  mmo1.Lines.Add(s);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  i, i1, iTotal: Integer;
  s: string;
begin
  iTotal := 0;
  for i := 1 to 100 do
  begin
    iTotal := iTotal + DoAdd(i);
    mmo1.Lines.Add(Format('%d >> %d',[i, iTotal]));
    mmo1.Lines.Add('');
  end;
end;

运行截图:

景茹炜L8
2012-09-28 · TA获得超过481个赞
知道小有建树答主
回答量:617
采纳率:0%
帮助的人:377万
展开全部
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function SumTotal(ACnt:Integer):Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
i,iCnt,iSum:Integer;
begin
iCnt:=StrToInt(Edit1.Text);
iSum:=0;
for i := 0 to iCnt do
begin
iSum:=iSum+SumTotal(i);
end;
Memo1.Lines.Add(IntToStr(iCnt)+' : '+IntToStr(iSum));
end;

function TForm1.SumTotal(ACnt: Integer): Integer;
var
i:Integer;
begin
Result:=0;
for i := 0 to ACnt do
begin
Result:=Result+i;
end;
end;

end.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
syht2000
高粉答主

2012-09-28 · 关注我不会让你失望
知道大有可为答主
回答量:3万
采纳率:79%
帮助的人:1.4亿
展开全部
var i,s,item:integer;
begin
s:=0;
item:=0;
for i := 1 to 100 do
begin
item:=item+i;
s:=s+item;
end;
showmessage('s='+inttostr(s));
end;
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
rivorse
2012-09-28 · 超过28用户采纳过TA的回答
知道答主
回答量:117
采纳率:0%
帮助的人:69.7万
展开全部
楼上说的应该没问题,为什麼不结案呢?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
fengyun745
2012-09-28
知道答主
回答量:80
采纳率:0%
帮助的人:25.4万
展开全部
同上
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式