主题:问一个问题
yb101
[专家分:0] 发布于 2006-04-11 19:30:00
输入一个数.取出绝对值.
应该要怎么下代码?
回复列表 (共5个回复)
沙发
progfan [专家分:2270] 发布于 2006-04-11 21:40:00
edit2.text:=inttostr(abs(strtoint(edit1.text)));
板凳
chenying6981 [专家分:60] 发布于 2006-04-12 01:05:00
result:=abs(strtofloat(edit1.text))
3 楼
yb101 [专家分:0] 发布于 2006-04-12 22:15:00
为什么使用 IF语句错误好多啊.
能用IF 写的吗?
高手给个!
4 楼
zwt [专家分:1230] 发布于 2006-04-13 09:01:00
var
i:integer;
begin
i:=StrtoInt(Edit1.text);
if i<0 then
edit2.text:=inttostr(abs(i))
else
edit2.text:=inttostr(i);
end;
5 楼
yb101 [专家分:0] 发布于 2006-04-13 18:17:00
谢谢.果然比我写得要好,看来我还得努力~
我来回复