『原创』把字符串中的数字转换成数字 [复制链接]

请看 Turbo 的帮助

procedure str(i:integer/longint/real;var s:string);
  将数i转化为字符串，并保存在变量s中；
procedure val(s:string;var i:longint/integer/real;var code:integer);
  将字符串s转化为数i,并保存在变量i中,如果code=0说明转化成功，否则code值为出错的字符序数；
function chr(i:integer):char;
  返回ASCII码为i的字符；
function ord(ch:char):integer;
  返回字符ch的ASCII码。

GOOD

TP需要CODE，FP我没写也可以过…………

是吗？

恩,今天考试的时候我就没写

完了！

诶？虾米？完了？

"val"不是‘ｖａｒ＇

字符串转数是val(s,x,code)s为字符串，x为整数或实数