Question

delphi问题:声明一个过程,实现将任意数字字符串转换为数值型数据的功能(提示:类似

delphi问题：声明一个过程，实现将任意数字字符串转换为数值型数据的功能（提示：类似于标准过程val的功能，程序中只能用运算符及chr,ord函数）

Answer 1

给自己找麻烦呀? 为什么只能用运算符及chr,ord函数?

Answer 2

完整程序如下：delphi7 通过
program newval;
{$APPTYPE CONSOLE}
uses
SysUtils;
function newv(num1:string):integer;
var
i,j,len,num,jieguo:integer;
begin
len:=0;
i:=1;
while (num1[i]<>#0) do
begin
len:=len+1;
i:=i+1;
end;
jieguo:=0;
for i:=1 to len do
begin
num:=ord(num1[i])-48;
for j:=i to len-1 do
num:=num*10;
jieguo:=jieguo+num;
end;
result:=jieguo;
end;
var
i:integer;
n:string;
begin
readln(n);
i:=newv(n);
writeln(i);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

追问

这是声明的函数啊，那声明一个过程呢？

追答

函数改过程不是很简单的事
将返回值，变成过程的引用参数
procedure newv(num1:string;var jieguo:integer);
省下，自己想
很简单