Pascal：Val（）函数返回负数

debugcn 发表于 Dev

路易斯·门德斯

我一直试图将字符串转换为整数，并且val（）过程返回负数，我认为这是因为字符串太大（没有意义，字符串的长度约为8），所以我尝试手动进行转换，它返回的数字与val（）返回的数字完全相同：

program a;
uses crt;

var
    text:string;
    number, code:integer;

begin
    number:=0;
    
    text := '3142436';
    val(text, number, code);
    
    writeln('Number: ', number);
    writeln('Code: ', code);
    
    
end.

它返回：

Number: -3292
Code: 0

进行自己的转换过程：

program a;
uses crt;

var
    numero, cod:integer;
    info:string;
    i:char;

begin
    cod:=0;
    numero:=0;
    info:='3142436';

    for i in info do
        begin
            case i of
                '0': cod:= 0;
                '1': cod:= 1;
                '2': cod:= 2;
                '3': cod:= 3;
                '4': cod:= 4;
                '5': cod:= 5;
                '6': cod:= 6;
                '7': cod:= 7;
                '8': cod:= 8;
                '9': cod:= 9;
            end;
            numero := (numero * 10) + cod;
            write('Now: ', numero);
            writeln(' (Adding ',cod, ')');
        end;
    
    writeln('Result: ', numero);
    
end.

返回完全相同：

Now: 3 (Adding 3)
Now: 31 (Adding 1)
Now: 314 (Adding 4)
Now: 3142 (Adding 2)
Now: 31424 (Adding 4)
Now: -13437 (Adding 3)
Now: -3292 (Adding 6)
Result: -3292

我做错什么了吗？

安德烈亚斯·瑞布兰德（Andreas Rejbrand）

您显然使用的是16位整数类型。

3142436是$ 2FF324，它被截短为一个单词是$ F324。解释为有符号整数，十进制为-3292。

有很多Pascal实现。您没有指定要使用的Integer是哪个，但显然是当前编译器设置的16位整数。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。