2个回答
展开全部
用内置的val过程,例:
var s:string;
code:integer;
l:longint;
r:real;
begin
s:='12345';
val(s,l,code);
s:='123.456';
val(s,r,code);
writeln(l);
writeln(r:0:3);
end.
//注:val的使用方法为:val(s,n,code);
//////s为字符串,n为转换后储存的变量(可是整型或者实型),code是当转换出错是把出错代码放置在code变量里(如果s中含有非数字字符,就会出错)
var s:string;
code:integer;
l:longint;
r:real;
begin
s:='12345';
val(s,l,code);
s:='123.456';
val(s,r,code);
writeln(l);
writeln(r:0:3);
end.
//注:val的使用方法为:val(s,n,code);
//////s为字符串,n为转换后储存的变量(可是整型或者实型),code是当转换出错是把出错代码放置在code变量里(如果s中含有非数字字符,就会出错)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询