大榕树 \ Pascal语言 \ Pascal练习

进位制转化

原文链接：http://www.mydrs.org/program/list.asp?id=62

进位制转化

[问题来源] 无
[问题描述] 将一个十进制数转化成二进制.
输入:[KEYBOARD] 输出:[SCREEN]
255
FF


[问题分析] 模拟手算.

program bin;

const
max=20;

var
i,j:integer;
str:array[1..max] of byte;

procedure print;
var k,r:integer;
begin
k:=max;
repeat
dec(k);
until str[k]=1;
for r:=k downto 1 do write(str[r]);
writeln;
end;

begin
write('Please input an integer between 1..32767:');readln(i);
j:=0;
repeat
inc(j);
str[j]:=i mod 2;i:=i div 2;
until i=1;
str[j+1]:=1;
print;
end.

作者：MQL
来源：Pascal Zone
时间：2001-06-21

上一篇：约瑟夫环
下一篇：汉诺塔

大榕树 版权所有 ©1999-2006