UC知道Delphi一简单问题高分找人回答？
来源：百度知道 编辑：UC知道 时间：2024/06/07 04:49:44
procedure TForm1.Button1Click(Sender: TObject);
var i,n,s:integer;
begin
readln(n);
n:=Edit1.text;
for i=1 to n;
s:=s+i;
label2.caption:=inttostr(n),'的累加和是：',inttostr(s);
修改上面代码的错误，要使该程序是在edit1中输入任意大于0的数，单击计算按钮，在label2中显示从1到该数的累加和。比如：输入10，则显示“10的累加和是：55”。修改代码中的错误
var i,n,s:integer;
begin
readln(n);
n:=Edit1.text;
for i=1 to n;
s:=s+i;
label2.caption:=inttostr(n),'的累加和是：',inttostr(s);
修改上面代码的错误，要使该程序是在edit1中输入任意大于0的数，单击计算按钮，在label2中显示从1到该数的累加和。比如：输入10，则显示“10的累加和是：55”。修改代码中的错误
procedure TForm1.Button1Click(Sender: TObject);
var i,n,s:integer;
begin
readln(n);
n:=Edit1.text;
for i=1 to n;
s:=s+i;
label2.caption:=inttostr(n),'的累加和是：',inttostr(s);
中的几个错误：
1、s没有赋初值
2、字串连接用+
3、文本框中是文本，要转换成数值
4,for循环中最后关键字do缺少
procedure TForm1.Button1Click(Sender: TObject);
var
i,n,s:integer;
begin
s:=0;
n:=strtoint(Edit1.text);
for i=1 to n do
s:=s+i;
label2.caption:=inttostr(n)+'的累加和是：'+inttostr(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i,n,s:integer;
begin
n:=0;
s := 0;
try
n := strtoint(Edit1.text);
except
showmessage('请在文本框内输入数字！');
exit;
end;
if n>=0 then
for i := 1 to n do
s := s + i
else
begin
showmessage('你输入的是负数！');
exit;
end;
label2.caption := inttostr(n)+' 的累加和是：