pascal题目 数组类 十进制转换二进制

来源：百度知道 编辑：UC知道 时间：2024/06/01 02:23:48
编写程序，输入一个十进制数，将其转换成二进制数并输出。

program tentotwo;
var x,i:longint;
a:array [0..10000] of longint;
begin
read(x);{读入待处理的数}
i:=1;
while x<>0 do begin{开始计算}
a[i]:=x mod 2;{算出二进制的数的每一位}
x:=x div2;{更换待处理数}
i:=i+1;{运算下一位}
end;
end;
注意:根据二进制数运算的特点,现算出的数(既数组a)是颠倒的,输出或继续运算时须小心.
注意:根据二进制数运算的特点,现算出的数(既数组a)是颠倒的,输出或继续运算时须小心.
注意:根据二进制数运算的特点,现算出的数(既数组a)是颠倒的,输出或继续运算时须小心.

var
i,j,k:longint;
n,m:int64;
a:array[1..100000] of integer;
begin
readln(n);
m:=0;
while n<>0 do
begin
inc(m);
a[m]:=n mod 2;
n:=n div 2;
end;
for i:=m downto 1 do
write(a[i]);
end.

var
n:qword;
s:string;
begin
readln(n);
s:='';
repeat
s:=chr(n mod 2+48)+s;
n:=n div 2;
until n=0;
writeln(s);
end.

program sunny;
var
a:array[1..100000]of integer;
x,i,s,j:integer;
BEGIN<