心若向阳年华未央:求Pascal中十进制转换为二进制的程序````

来源:百度文库 编辑:高校问答 时间:2024/05/02 18:49:28
求Pascal中十进制转换为二进制的程序````
加上小数部分的程序好吗~?

以下是十进制转化为任意进制数的代码 y为要转化成的进制数

var a:array[1..50] of integer;
n,x,y,i:integer;
begin
write('input number x,y:');
read(x,y); t:=y;
writeln;
i:=0;
repeat
i:=i+1;
a[i]:=y mod x;
y:=y div x
until y=0;
for n:=i downto 1 do
write(a[n]);
writeln;
end.