十进制实数转二进制的程序
题目
十进制实数转二进制的程序
Program zy6;
var bin:array [0..50] of 0..1;
x:longint;
k,i:integer;
begin
writeln('read decimal data x:'); read(x);
for i:=0 to 50 do bin[i]:=0;
k:=0;
while x>0 do
begin
bin[k]:=x mod 2;x:=x div 2;
k:=k+1;
end;
writeln('Binary:');
for i:=k-1 downto 0 do write(bin[i]:1);
end.
答案
你这是整数的转换程序啊.
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 英语翻译
- 高中数学直线和圆的方程有关问题
- 下列属于化学性质的是( ) A.铜是紫红色的固体 B.金刚石在天然界硬度最大 C.铁钉会生锈 D.氮气常温下是气体
- 4A=5B,A与B成比例吗
- 是空气密度大还是氧气密度大 谁可能往上浮
- 介词填空 ---How much ______ the exercise book and the magazine?----That _____ ninety dollars.
- 在三角形ABC中,a,b,c分别是三个内角A,B,C的对边,且a、b、c互不相等,设a=4,c=3,A=2C.(1)求cosC的值 (2)求b的值
- 克数用英文字母怎么表示?
- 12- 请你阅读下面的诗句:“栖树一群鸭,鸭树不知数,三只栖一树,五只没去处,五只栖一树,请你仔细数,鸦树哥几何?”诗句中谈到的鸦为___只,树为_____棵
- 简单数学化简