我刚学问一个简单的问题1+到100的 ( 积分: 50 )

随能帮帮我编一个线程的程序实现1加到100
万分感谢啊

随能帮帮我编一个线程的程序实现1加到100
万分感谢啊

function myadd:integer
begin
result:=0;
for i:=1 to 100do
result:=result+i;
end;

要多线程的啊[]

有必要用线程吗?
你只是求算法吧
(1+100)*100/2算了

不是是一个公司的应聘题啊
各位帮帮忙了啊[]

我在线等请帮帮忙了

放到线程中

贴一个代码看看啊

帮帮我啊

贴一个最简单的给你，unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
aThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute;
override;
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ccc : aThread;
begin
ccc := aThread.Create(false);
ccc.Resume;
end;

{ aThread }
procedure aThread.Execute;
var
i, j : Integer;
begin
j := 0;
for i := 1 to 100do
begin
j := j + i;
end;
Form1.Edit1.Text := IntToStr(j);
end;

end.

接受答案了.