DELphi中声明过程 数字字符串转换为数值型数据 循环里语句Incompatible types: 'Integer' and 'Extended'
procedurechange(a:string);varsum,i,j:integer;beginj:=length(a);fori:=1tojdosum:=sum+e...
procedure change(a:string);
var
sum,i,j:integer;
begin
j:= length(a);
for i:=1 to j do
sum:=sum+exp((j-i)*ln(10))*(Ord(a[i])-48);
showmessage(inttostr(sum));
procedure TForm1.Button1Click(Sender: TObject);
begin
change(edit1.text);
end;
end; 展开
var
sum,i,j:integer;
begin
j:= length(a);
for i:=1 to j do
sum:=sum+exp((j-i)*ln(10))*(Ord(a[i])-48);
showmessage(inttostr(sum));
procedure TForm1.Button1Click(Sender: TObject);
begin
change(edit1.text);
end;
end; 展开
1个回答
展开全部
你直接
n:=strtoint(a);
就可以了，为啥大费周折
n:=strtoint(a);
就可以了，为啥大费周折
追问
哥这个是题目 。。。老师恶心我有什么办法 看看
追答
那你这样
sum:=sum+trunc(exp((j-i)*ln(10)))*(Ord(a[i])-48);
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
