我正在编写一个将十进制整数转换为二进制数的简单程序。 我是初学者,因此可能存在多种错误。
这是我正在使用的功能:
function DecToBin (dec:integer): string;
var
bin: string;
bit:real;
begin
write('Enter the decimal integer to be converted: ');
readln(dec);
bin := '';
repeat
bit := dec mod 2;
bin := inttostr(bit) + bin;
dec := dec div 2;
until dec = 0;
result :=bin;
end;
我得到的错误是 "没有超载版本的' inttostr'可以使用这些参数调用"。
提前感谢您的帮助。