pascal 程序题

来源：百度知道 编辑：UC知道 时间：2024/06/01 08:31:37
问题描述：编程实现将一个N(N<10)进制的数转化为二进制的数。
输入描述：两行，第一行为N，第二行为该N进制的数。
输入样例：10
5
输出描述：一行,为转换后的二进制数。
输出样例：101

var a:arrau[1..10000]of integer;
n,i,j,x:integer;
begin
readln(n);readln(x);
repeat
inc(i);
a[i]:=n mod x;
n:=n div x;
until n=0;
for j:=i downto 1 do write(a[j]);
writeln;
end.

处理大一些的也没问题。处理到longint范围内。

var a:array[0..100]of longint;
i,k,n:longint;

begin
readln(n);
fillchar(a,sizeof(a),0);
while n<>0 do
begin
inc(k);
a[k]:=n mod 2;
n:=n div 2;
end;
for i:=k downto 1 do write(a[i]);
writeln;
end.

IntToHex()
HexToBin()
这样就达到你要得目的了.
不过是delphi里面的.

1楼是错的，n是n进制，不是10进制的n，程序太简单了，懒得写了